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EINLEITUNG 


Nur Fliegen ist schöner 


W enn Sie die Wahl hätten zwi¬ 
schen einem Auto und einem 
Sportflugzeug, um ein Ziel 
möglichst schnell zu erreichen, für 
welches Transportmittel würden Sie 
sich entscheiden? Wohl für das Flug¬ 
zeug. Fliegen will aber gelernt sein! 

Daher scheidet für die meisten von 
uns diese Möglichkeit der Fortbewe¬ 
gung aus. 

Ähnlich verhält es sich mit Basic 
und Assembler (Maschinensprache) 
auf dem C64: Die meisten Problem¬ 
stellungen und Aufgaben lassen sich 
in Basic lösen. Nur ist das Resultat in 
der Geschwindigkeit und Flexibilität 
oft nicht befriedigend. Und manches 
geht eben gar nicht - ebensowenig wie 
Sie allein mit dem Auto den Ozean 
überqueren können! 

In dieser Analogie ist auch der Grund zu suchen, warum 
Assembler für die einen die »einzig wahre Art« der Pro¬ 
grammierung, für die anderen (noch) ein Buch mit sieben 
Siegeln darstellt: Die Kunst der Assembler- 
Programmierung ist nicht ganz einfach zu beherrschen 
und will erlernt sein. 

Daher haben wir für Sie dieses Sonderheft zusammen¬ 
gestellt, das die Verbindung zwischen dem vertrauten 
Basic Ihres C64 und der Assembler-Sprache herstellt. 

Für Einsteiger in die »hohe Schule« der Assembler- 
Programmierung bieten wir mit dem Kurs »Keine Angst vor 
Maschinensprache« einen Beitrag, der Schritt für Schritt in 
diese Materie einführt. 

Haben Sie die ersten Hürden genommen, so steht Ihrem 
Wechsel ins Lager der Assembler-Alchimisten nichts mehr 
entgegen. In dem Kurs »Von Basic zu Assembler« greifen 
wir in unsere Trickkiste. Denn eins ist wichtig zu wissen: 
Durch die Kenntnis der einzelnen Assembler-Befehle allein 
kann man noch nicht programmieren. Dies gilt zwar für alle 
Computersprachen, aber in erhöhtem Maße für Assembler. 
Denn nur durch das Nachvollziehen und Analysieren ande¬ 
rer Programme, sowie durch Tips & Tricks eines erfahrenen 
Programmierers lernt man, das erworbene Wissen richtig 
anzuwenden. Genau das bewirkt dieser Kurs. 

Neben den erwähnten Kursen hält dieses Sonderheft 
noch einige andere »Juwelen« für Sie bereit: 

An erster Stelle ist hier der Makro-Assembler »Giga-Ass« 
zu nennen. Er tritt die Nachfolge unseres bewährten 
Assemblers Hypra-Ass an und läßt durch seinen Komfort 
das Programmieren in Assembler zum Vergnügen werden. 

Ebenfalls hervorzuheben ist die Makro-Bibliothek für den 
Hypra-Ass. In Ihr finden Sie zahlreiche Routinen und 


Makros mit häufig benötigten Funktio¬ 
nen. Diese Bibliothek erspart Ihnen, 
bei Programmprojekten jeweils das 
Rad »neu erfinden« zu müssen. 

Eine geradezu »klassische« Anwen¬ 
dung der Assembler-Sprache, um fas¬ 
zinierende Effekte im Bildschirmrah¬ 
men zu erzielen, ist der Rasterzeilen- 
Interrupt. Das Programm »Magic Bor- 
der Beams« erlaubt es nun, mit einem 
komfortablen Editor farbige Effekte zu 
entwerfen und in eigene Programme 
einzubinden. Es lassen sich mit 
»Magic Border Beams« Filme mit bis 
zu 256 verschiedenen Bildsequenzen 
entwerfen, die sogar fließend wir¬ 
kende Farbübergänge erlauben. 

Auch an die Druckerfans wurde 
gedacht. Mit »Obsess V 3.1« lassen 
sich mit jedem Commodore- oder 
Epson-kompatiblen Drucker farbige Hardcopies von 
Multicolor-Malprogrammen wie Paint-Magic oder Koala- 
Painter ausdrucken. Auch hier befindet sich, wie bei 
nahezu allen Programmen, der dokumentierte Assembler- 
Quellcode auf der Programmservice-Diskette, so daß Sie 
demnächst Ihr Hardcopy-Wunschprogramm selbst schrei¬ 
ben können. 

Last not least stellt Ihnen dieses Sonderheft drei Basic- 
Erweiterungen zur Verfügung, von denen jede ihre ganz 
speziellen Vorzüge hat: 

So ist es mit »DMA-Basic« erstmals möglich, die 
Commodore-Speichererweiterungen für den C128 am C 64 
zu verwenden. Mit der Speichererweiterung 1750 stehen 
Ihnen damit sage und schreibe 576 KByte am C64 zur Ver¬ 
fügung - mehr als mancher Personal-Computer zu bieten 
hatl 

»Paradoxon-Basic« bietet Ihnen 50 KByte freien Basic- 
Speicher und eine Reihe verbesserter Befehle. Berechnete 
Zeilennummern bei GOSUB und GOTO seien hier nur ein 
Beispiel. 

»Rekursiv-Basic« ist wieder von anderer Qualität: Rekur¬ 
sive Programmierung, Definitionen von Prozeduren und 
neuen Befehlen werden damit zum Kinderspiel. 

Ein umfangreicher und sehr nützlicher Tabellenteil mit 
einer Übersicht aller Assembler-Befehle der 6510-CPU und 
der wichtigsten ROM-Routinen runden dieses Sonderheft 
ab und machen es sowohl für den Einsteiger als auch für 
den Assembler-Profi zu einem unverzichtbaren Wegbeglei¬ 
ter beim Streifzug durch die faszinierende Welt der 
Assembler-Programmierung. 
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Ihr Klaus Schrödl, Redakteur 
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Direkt bestellen statt abtippen! 

Die aktuelle Diskette zum Heft: 

Assembler-Programmierung einfach wie In Basic 

GIGA-ASS: Ein neu gestalteter Makro-Assembler der Spitzenklasse erlaubt es, 
Maschinensprache-Programme so komfortabel wie in Basic zu schreiben. Durch 
ein mitgeliefertes Konvertierungsprogramm können auch Hypra-Ass-Quelltexte mit 
Giga-Ass verarbeitet werden. Eine grolle Hilfe beim Schreiben eigener Maschinen¬ 
programme ist auch die Makro-Bibliothek auf Diskette, die oft verwendete Routinen 
bereitstem. Auch für den Basic-Programmierer wird einiges geboten: DMA-BASIC. 
Mit diesem Programm können Sie die 512-KByte-RAM-Erweiterung von Commo- 
dore am C 64 verwenden und somit über 576 KByte Speicherplatz verfügen. 
PARADOXON-BASIC. Eine weitere Basic-Erweiterung, stellt dem Basic Program¬ 
mierer 50 KByte lür seine Programme und eine Reihe neuer mächtiger Befehle zur 
Verfügung. REKURSIV-BASIC. Diese Erweiterung ist von einer anderen Qualität: 
Sie erlaubt, wie der Name schon sagt, rekursive Programmierung durch einen ver- 

8 rößerten Stack und vor allem die Definition von Prozeduren wie in Pascal, 
BSESS V3.1. Dieses Programm erlaubt es, auf einfache Weise mit normalen 
Matrixdruckern Mullticolor-Grafiken in strahlenden Farben auch zu Papier zu brin¬ 
gen. Ergänzt werden die Programme durch eine Reihe von Tips&Tricks. Für den 
ambitionierten Programmierer befinden sich des weiteren sämtliche Quell-Codes 
der Maschinenprogramme auf Diskette. Natürlich enthält die Programmservice- 
Diskelte auch alle Prr 
sind. 


Programme, die mit einem Diskettensymbol gekennzeichnet 


1 Diskette für C64/C128 
Best.-Nr. 15721 


sFr 24,90/öS 299,-’ 


DM29,90* 


Bestellnummern für Disketten zum 64’er-Magazin 

Programmservice-Disketten sind zu allen Ausgaben des 64'er-Magazins erhältlich. Bitte 
geben Sie aut der in diesem Heit abgedrucklen Zahlkarte die Bestellnummer an. Diese 
Nummer setzt sich wie folgt zusammen: 

64'er-Sonderhefte ab Ausgabe 13/1987: 

Konstant Jahr Ausgabe 

□ 0 0 00 

z. B,: 15716 für die Diskette zum Sonderheft 16/1987 

64’er-Magazln, Ausgaben 1/85 bis 12/86: 

Konstant Jahr Ausgabe 

00 00 00 0 

z.B.: L6 86 06 D lür die Diskette zur Ausgabe 6/1986. 

64’er-Magazin ab Ausgabe 1/1987: 

Konstant Jahr Ausgabe 

□ 00 0 0 

z.B. ,:;oi für die Diskette zur Ausgabe 1/1987. 


Der gute Geist für Ihre Floppy 1541 

Disk-Demon. Disk-Demon Ist ein Diskettenmonltor ganz besonderer Art. Wenn Sie Probleme mit feh¬ 
lerhaften Disketten haben, aut denen wichtige Daten gespeichert sind, oder Sie eine Diskette ledig¬ 
lich einmal genauer unter die Lupe nehmen wollon, dann ist der Disk-Demon genau das richlige 
Werkzeug tür Sie. Er liest, analysiert und repariert defekte Sektoren, bearbeitet die Spuren 0 bis 42 
aut einer Diskette und unterstützt Sie auch dann, wenn es um die Entwicklung eigener Kopierschulz- 
mothoden gehl. Ht-Eddl+ mit Maua Mil diesen Routinen kann man die Proporlional-Maus von Reis¬ 
ware lür die Steuerung von Hi-Eddi+ verwenden Hlm 64. Hirn 64 ist ein mit Hypra-Baslc geschrie¬ 
benes Spiel, des auch Sie in seinen Bann ziehen wird, Es ist eine grafisch ausgefeilte Variante des 
bekannten Masterminds, auch als Superhirn bekannt. Die Beschreibung finden Sie in Ausgabe 8/87 
Diskelle für C.64/C.128, Besl.-Nr. 10708 sFr 24,90/öS 299,-’ DM29,90* 

Mastertext 128 - kaum zu übertreffen 

Master-Text 128. Das super-prolessionelle Mastet-Tex! tür den C128 bielel professionelle Lelsfungs- 
morkmalo. Durch Menü- und Window-Steuerung ist das Programm anwenderlreundlich und bielel 
neben dem Sfandard an Befehlen noch Textbaustein-Funktionen, einen Terminal-Modus, einen Inte- 

S tierten Taschenrechner sowie eine Uhr mil Alarmfunktion. Textos, Dos Toxtverarbeltungsprogromm 
exlas läuft auf dern C 64 und isl speziell für den MPS 801 und kompatible Drucker entwickelt worden. 
Mit selbstdetinierbarem Zeichensalz stellt Texlas nun auch die doulschon Sondorzolchon zur Vorfü¬ 
gung, bielol eine deutlich bessere Druckqualitäl und erlaubt sogar das Einbinden von Hlres-Gralikon 
und Sprites MocMatrix. Mil MacMalrix stellon wir Ihnen ein Programm zur Verlegung, mit dem Sie 
aut komfortable Art und Weise NLQ-Zelchensälze lür Ihren NL-tO mit Commodore-Intorlace entwer¬ 
ten können. Aulierdem sind noch viele Tips und Tricks, zum ßolopiol lür Vlzawrlte, aul der Diskette 
enthalten. Die Beschreibungen linden Sie im Sonderheit Ausgabe 18/87 (Drucker). 

1 Diskette lür C 64/C 128, Best.-Nr. 15718 sFr 24,90/öS 299,-• DM29,90* 

Weitere Angebote zum Thema Assembler 

Kontrolle über Jedes BIT Im Speicher 

Promon 64. Promon 64 Ist ein vollkommen überarbeiteter SMON, der über einen riesigen und lei¬ 
stungsfähigen Befehlssalz verfügt. Neben den Befehlen des SMON können Sie Hires-Graflken 
Buchen und ASCII-Tabellen eingeben. Illegale Opcodes könnon sowohl assembliorl als auch dlsas- 
sembllert werden. Ein Diskotionmonitor, aul dom sich alle Befehle von Promon 64 anwanden lassen, 
ist integriert. CP/M <-> CBM. Mit diesem Programm wird zum ersten Mal die Möglichkeit geboten, 
Daten und Programme aul einfachem Weg zwischen dem CP/M- und C 64-Format beliebig hin und 
her zu transferieren. Auflordem viele Tips und Tricks lür den C 64. Die Beschreibungen linden Sie 
Im Sonderheit Ausgabe 12/86 (Assembler, Programmiersprachen). 

1 Diskette lür den C 64, Besl.-Nr. L086S12D sFr 24,90/öS 299,-• DM29,90* 

Ein Muß für Assembler-Programmierer 

SMON. SMON gehört zu den besten erhältlichen Monitoren. Er zeichnet sich besonders durch seine 
Vielzahl von Befehlen, seine Arbeitsgeschwindigkeit und 6oinen Bedienungskomfort aus. Hypro- 
Ass. Hypra-Ass ist ein rein In Maschinensprache geschriebener Drei-Pafl-Makroassembler mit inte¬ 
griertem Editor lür C 64 mit Floppy 1541, Hypra-Ass gehört, was Leistung und Schnelligkeit betrifft, 


zu den besten Assemblern. Re-Ass. Mil diesem Programm können Sie Maschinenprogramme wie¬ 
der in Quellcode lür den Hypra-Ass zurückvorwandein. Außerdem viele Tips und Tricks lür den C 
64. Die Beschreibungen linden Sie im Sonderheft Ausgabe 8/85 (Assembler). 

1 Diskeile für C 64, Besl.-Nr. L68SS8D sFr 24,90/ÖS 299,-’ DM29,90* 


Von Profi-Ass zu Hypra-Ass 

Pth-Ttens. Mil Pth-Trans können Sie Quelltexte, die mir dem Proli-Ass orzeugl wurden, eintach und 
roblemlos ins Hypra-Ass-Format wandeln. Kudl 64. Dieses Programm kann mir einigen neuen 
asic-Betohlon oino vollständige Kurvendiskussion durchführen. Es errechnet Ableitungen, Nullstel¬ 
len. Extrema sowie Definitionslücken und stellt diese grafisch dar. THckfllm mit dem C 64. Dieser 
Tricklilmgenerator konvertiert Hires-Graliken in den Lores-Bildschirm und bietet Editor-Funktionen 
lür Filmschnilte und zum Erstellen von Filmsequenzen. Aul der Programmservice-Diskelle linden Sie 
zusätzlich zwei eindrucksvolle Filme. Spllt-Screen. Splll-Screen ist eine Erweiterung zu Hypra-Basic, 
mit deren Hille man den Bildschirm an beliebiger Stelle zwischen Grafik- und Textbildschirm leiten 

kann. Zusätzlich viele Utilities lür den C 64/C !28sowieC 16, Die Beschreibungen linden Sie In Aus¬ 
gabe 2/87. 

Diskette für C 64, Besl.-Nr. 10702 sFr 24,90/öS 299,-- DM 29,90* 


Maschinensprache für Basic-Programmierer 

Ascoplter 64. Ascopiler 64 isl ein kurzer und schnell arbeitender 3-Paß-Compiler, der ein vereinfach¬ 
tes, sogonannlos Tiny-Basic in reinen Maschinencode übersetzt. Dadurch lassen sich zeitkritische 
Routinen in Basic-Programmen, ohno Kenntnis von Assembler, erheblich beschleunigen. Dotework- 
Basic. Diese 8asic-Erweitorung erleichorl In erster Linie das Programmieren von Dateiprogrammen, 
besonders derjenigen, die mit Bildschirmmaskon arbeiten. Hierzu stehen 22 neue Belohlo zur Verfü¬ 
gung. Ute. Lite Ist wohl eine der faszinierendsten Simulationen von biologischen Vorgängen aul 
Computern. Mil Lllo lassen sich evolutionäre Abläulo spielerisch verstehen lornen. Bordcr-Clock. 
Dieses Programm stellt während des Ediliorens oder Ablauts von Basic- oder Maschinensprache- 
rogrammen Im unteren Rand des Bildschirms eine absolut genaue Uhr mit Stunden-, Minuten und 
okundonanzolge dar. Zusätzlich viele Tips und Tricks lür den C 64. Die Beschreibungen linden Sie 
in Ausgabe t/86 

Diskette (ür C 64, Best.-Nr. L68601D sFr 24,90/ÖS 299,-• DM29,90* 


Makro-Assembler der Spitzenklasse 

Hypra-Ass. Hypra-Ass isl ein rein in Maschinensprache geschriebener Droi-Poß-Makroassembler 
mir integriertem Editor lür C 64 mit Floppy 1541. Hypra-Ass gehört, was Leistung und Schnelligkeit 
betritt!, zu den besten Assemblern. Super Term 64, Dieses Terminalprogramm zeichnet sich beson¬ 
ders durch seine hohe Benutzerlreundlichkeit und einen großen Terminal-Speicher aus. Modulator. 
Mil diesem Programm können Sie nun sämtliche Parameter des SID übersichtlich einstellen und den 
SID als Synthesizer verwenden, Weiterhin viele Tips und Tricks lür den C 64 und C 16 
Die Beschreibungen linden Sie in Ausgabe 7/85. 

Diskette lür C 64, Besl.-Nr. L68507A sFr 24,90/öS 299, DM 29,90* 

• inkl. MwSl. Unverbindliche PreisempTehlung 


Bestellungen bitte an: Markt&Technik Verlag AG, Unternehmensbereich Buchverlag, Hans-Pinsel-Straßo 2, D-8013 Haar, Telefon (089) 4613-0. Schweiz: Markt&Technik Vertriebs AG, 
Kollerstrasse 3, CH-6300Zug, Telefon (042) 415656. Österreich: Ueberreuler Media Handels- und Verlagsgesellschalf mbH (Großhandel), Alser Slraße 24. A-1091 Wien, Telelon (0222) 481538-0; 
Microcompulique E. Schiller, Fasangasse 24, A-1030 Wien, Telefon (0222) 785661; Bücherzenfrum Meidling, Schönbrunner Slraße 261. A-1120 Wien, Telefon (0222) 833196. Bestellungen aus 
anderen Ländern bitte nur schriftlich an: Markt&Technik Verlag AG, Abt. Buchvertrieb, Hans-Pinsel-Straße 2, D-8013 Haar, und gegen Bezahlung einer Rechnung im voraus. 


Bille verwenden Sie für Ihre Bestellung und Überweisung die abgedruckte Postgiro-Zahlkarte, oder senden Sie uns einen Verrechnungs-Scheck mit Ihrer Bestellung, Sie erleichtern uns die 
Aultragsabwicklung, und dafür berechnen wir Ihnen keine Versandkosten. 
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C64 


Alles über den 
Commodore 64 

Dieser erste Band aus der 
Commodore-Sachbuchreihe 
von Markt & Technik ist ein 
Standardwerk zum C64. Erst¬ 
mals auf der Hannover Messe 
1984 angeboten, erfüllt dieses 
nun überarbeitete Program¬ 
mierhandbuch einen lange 
gehegten Wunsch vieler Pro¬ 
grammierer: Der englischspra¬ 
chige »Programmers Reve- 
rence Guide« wurde ins Deut¬ 
sche übersetzt. 

Das über 500 Seiten starke 
Programmierhandbuch ist in 
vier wesentliche Abschnitte 
gegliedert: die Programmie¬ 
rung in Basic, in Assembler, die 
Beschreibung der Hardware 
und das neue Betriebssystem 
»Geos«. In allen Abschnitten 
wird auf die besonderen Bau¬ 
gruppen des C64 für Grafik, 
Musik, Ein-/Ausgabe und 
deren Programmierung einge¬ 
gangen. Dem Konzept fol¬ 
gend, kein Lehrbuch, sondern 
mehr ein Nachschlagewerk zu 
sein, sind die angeführten Bei¬ 
spiele relativ kurz gehalten. 

Gerade in der Kürze der Dar¬ 
stellung liegt der wichtigste 
Vorteil dieses Buches: Es fällt 
einem sehr leicht, Informatio¬ 
nen zu den verschiedensten 
Problemen zu finden. 



ProgrammtMtMnrihiK li 



Hinten im Buch ist sogar ein 
kompletter Schaltplan des C 64 
eingeheftet. 

Es gibt kaum ein Buch zum 
C64, das gleichermaßen 
umfassend informiert und 
trotzdem leicht verständlich 
geschrieben ist. Das Program¬ 
mierhandbuch »Alles über den 
Commodore 64« sollte neben 
jedem C64 liegen, auch wenn 
59 Mark zusätzlich investiert 
werden müssen. 

(aw/sk) 

-Alles Ober den Commodore 64-, Markt & 
Technik Verlag. Commodore Sachbuchreihe 
Band 1,513 Selten, ISBN 3-89090-379-7, Preis 
59 Mark 
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C64 - Programmieren 
in Maschinensprache 

Dieses Buch spricht den 
Leserkreis an, der sich schon 
gut in Basic eingearbeitet hat 
und der jetzt mit der fortge¬ 
schrittenen Programmierung 
in Maschinensprache seine 
Programme optimieren will. 
Dazu bietet das Buch zahlrei¬ 
che fertig ausgetestete Pro¬ 
gramme aus allen Anwen¬ 
dungsbereichen wie beispiels¬ 
weise Grafik, Floppy und 
Datenverwaltung. Der Anwen¬ 
der muß die für ihn zutreffende 
Problemlösung nur noch von 
der mitgelieferten Diskette 
laden und in sein eigenes Pro¬ 
gramm einbinden. 

Das Buch ist aber nicht nur 
als Softwarebibliothek zu 
betrachten, es enthält zudem 
zahlreiche Beispiele und Auf¬ 
gaben, die den Sinn haben, 
das in den Programmen ver¬ 
mittelte Wissen weiter auszu¬ 
bauen und zu vertiefen. Ganz 
hervorragend werden die Ein- 
und Ausgaberoutinen und 
sämtliche Arithmetikfunktio¬ 
nen erklärt. 

Weiterhin findet man im 
Anhang eine Tabelle mit dem 
vollständigen Befehlssatz des 
6502-Prozessors; jeder Befehl 
ist mit einem Beispiel ver¬ 
sehen, das die Wirkung auf die 
Flags gut darstellt. Genauso 
ausführlich werden die wichtig¬ 
sten Einsprungadressen in 
das Betriebssystem beschrie¬ 
ben. Somit erhält sowohl der 
weniger Versierte als auch der 
Profi für einen Preis von 52 
Mark mit dem Buch und der 
Diskette sowohl ein inhaltstar¬ 
kes Nachschlagewerk, das sei¬ 
nesgleichen sucht als auch 
eine wahre Fundgrube an oft 
benötigten Assembler-Routi¬ 
nen. (Udo Reetz/sk) 

Winfried und Frank Kamera: C 64 - Pro¬ 
grammieren in Maschinensprache, Markt & 
Technik Verlag, 327 Selten, ISBN 
3-89090-168-9, Preis 52 Mark 


64 Intern 

Obwohl Data Becker in den 
letzten Jahren den Computer- 
Literaturmarkt mit einer Viel¬ 
zahl von Werken über¬ 
schwemmt hat, gehört eines 
der ersten Bücher zu den 
besten: Es befreite den mit sei¬ 
nem Handbuch alleine gelas¬ 
senen C64-Besitzer von sei¬ 
nen Informationsdefizit. 

1986 erschien eine überar¬ 
beitete und erweiterte Auflage 
von »64 Intern«, die auch das 
neue Betriebssystem »Geos« 
berücksichtigt. 

Ähnlich wie ein System¬ 
handbuch aufgebaut, soll »64 
Intern« durch gute Beschrei¬ 
bung der Hardware und ihrer 
Programmierung ein ständiger 
Begleiter beim Programmieren 
sein. Diesen Anspruch unter¬ 
streicht das kommentierte 
ROM-Listing und der Schalt¬ 
plan des C64. Die wichtigsten 
Kapitel dieses Buches sind: 

- Hardware (CPU, Speicherbe¬ 
legungspläne, User-Port, 
Expansion-Port) 

- Tonprogrammierung (der 
SID, Register, A/D-Wandler, 
Synthy 64) 

- Grafik (der VIC, Registerbe¬ 
schreibung, Betriebsarten, 
Schnittstellen zum Prozessor) 

- Ein-A , _ ,o gabebausteine (Re- 
gister-Pian, Ports, Timer, die 
CIAs, Joystickprogrammie¬ 
rung) 

- Der Basic-Interpreter (Erwei¬ 
terung des Basic, Monitor- 
Programm, wichtige Kernel- 
Adressen, RS232, serieller 
Bus) 

- Vergleich: VC 20 - CBM - 
C64 

- ROM-Listing 

»64 Intern« kann mit Fug und 
Recht als eines der Standard¬ 
werke für den Assembler- 
Programmierer auf dem C64 
bezeichnet werden. (aw/sk) 

BrOckmann, Englisch u.a.: 64 Intern, Dala 
Bockor, 1986, ISBN 3-89011-000-2, 628 Sol¬ 
len, Preis 69 Mark 



C64 Computer- 
Handbuch 

Auf der Titelseite heißt es: »Ein¬ 
führung und Referenz für kom¬ 
petentes Arbeiten«. Und das ist 
es in der Tat. Das Buch ist eine 
deutsche Übersetzung und 
Bearbeitung der englischen 
Originalausgabe »Program¬ 
ming the Commodore 64« und 
kann getrost als eines der 
wenigen Standardwerke zum 
C64 gelten. 

Auf 600 Selten findet jeder, 
der sich intensiver mit dem 
C64 beschäftigen will, eine 
Menge Informationen, Wis¬ 
senswertes, Tips und Tricks, 
Grundlagen und Hinweise für 
Profis. Man merkt mit jeder 
Seite, daß dieses Buch von 
einem wirklichen Könner mit 
langer praktischer Erfahrung 
geschrieben wurde, ohne 
überflüssigen Ballast, konzen¬ 
triert und doch an wichtigen 
Stellen ausführlich genug. Das 



Buch hat 17 Kapitel, dazu 
kommt ein Anhang mit wichti¬ 
gen Tabellen sowie ein aus¬ 
führliches Stichwortregister. 
Behandelt werden das Basic 
des C64 und eine optimierte 
Programmierung in dieser 
Sprache. Einen breiten Teil 
nehmen ein die Architektur, die 
Hardware und die Ports des 
C64, Besonderer Wert wurde 
zudem auf die Programmie¬ 
rung des C64 in Maschinen¬ 
sprache gelegt. Daher fehlt 
auch eine ausführliche Be¬ 
schreibung der ROM-Routinen 
nicht. 

Dieses Buch kann jedem 
wärmstens empfohlen werden, 
der sich etwas näher mit dem 
C64 beschäftigen will, sei es 
nur in Basic oder auch in 
Maschinensprache. Ein Hand¬ 
buch, das garantiert nicht im 
Regal verstaubt. 

(gk/sk) 

Raolo Wosl: C64 Computer Handbuch, TeWi- 
Vorlag, 600 Seiten, ISBN 3-921803-24-1, Preis 
66 Mark 


6 


SONDERHEFT 21 


























< 333 1 


tut 


0 V.\V3 e 


;\\e 


Co«' H ' 

ow°'° er 


,^jjs9 


obe 




f° tb Ö^' d 

Gf°'' wsR cni.'n» . Tpsbi 

«StsSS 3 ^ 


«aefcei'*®”' ? , 0 be- 

''f ios^ 01 ' 1 ' 

>' bVe, r«mV^° n5 ' 














tA’et«, 

^o^VeÄ'e 


tesWjw 'Wb"" . 0 , 
neta^vJbra ^ 6 


Kjen 


sch^e 


aW 


QUB 


aU' 




ode' 


\ n ou 


Gußehe 


lechen 


nd«5en- 


Ü.euel' 


Heben 


r;n 




Po^hoh® 


MW 




s/ertiie“ 


•«)A 


G4er-onllne.Pe 

fi4er.millne.nel 



64’er-REFERENZ 


C64 


Assembler-Programmierhilfen 
aus dem 64'er-Magazin 


Das vor Ihnen liegende Sonderheft ist randvoll 
mit nützlichen Programmen und Tips zum Thema 
Basic und Assembler. Doch das 64’er-Magazin 
hat sich schon früher intensiv mit diesem Thema 
beschäftigt. Lesen Sie, was auch ältere Ausgaben 
des 64’er und der Sonderhefte zu bieten haben. 

M aschinensprache ist die einzige Sprache, die ein 
Computer wirklich verstehen kann. Höhere Pro¬ 
gramme in Hochsprachen wie Pascal, Comal oder 
Basic müssen deshalb erst von geeigneten Programmen 
(Compiler oder Interpreter) in Maschinensprache übersetzt 
werden. Trotz einer großen Auswahl von unterschiedlichen 
Programmiersprachen ist es vorteilhaft, auch in der »niede¬ 
ren« Maschinensprache programmieren zu können. Denn 
Assembler, wie diese Sprache oft synonym bezeichnet 
wird, bietet einige wichtige Vorteile. Da Maschinpro- 
gramme nicht übersetzt werden müssen und ohne 
Umwege vom Prozessor des Computers verstanden wer¬ 
den, ist deren Abarbeitungsgeschwindigkeit extrem hoch 
(etwa lOOOmal schneller als Basic) und eröffnet dem Pro¬ 
grammierer technische Möglichkeiten, die mit einer höhe¬ 
ren Sprache oft nicht zu realisieren wären. Der sehr 
beliebte Rasterzeileninterrupt des C 64, wie er auch im Pro¬ 
gramm »Magic Border Beams« in diesem Sonderheft ange¬ 
wandt wird, ist nur ein Beispiel. 

Super-Assembler-Kurs 


Maschinensprache besitzt jedoch auch einige Nachteile, 
die so manchen Interessierten davon abgehalten haben, 
sich näher mit dieser ansonsten faszinierenden Sprache zu 
befassen. Denn das Erlernen von Assembler ist nicht ganz 
so einfach wie Basic. 

Sich dieser Problematik bewußt, stellt die Redaktion des 
64’er-Magazins nun ein neues Sonderheft zum Thema 
Maschinensprache vor. Viele Berichte und Tips sollen dem 
Assembler-Neuling den Weg zur Maschinensprache 
ebnen oder zumindest von großen Hindernissen befreien. 

Es soll aber auch erwähnt werden, daß schon im Jahre 
1985 ein Sonderheft zu diesem Thema erschien, das eine 
sehr gute Ergänzung zu dieser Ausgabe darstellt. Eine 
kleine Rückblende auf das Sonderheft 8/85 (Bild 1, links) 
soll zeigen, daß die Beiträge für den Maschinensprache- 
Freak auch heute von großer Bedeutung sein können. 

Obgleich sich auch in dieser Ausgabe ausführliche 
Assemblerkurse befinden, müssen wir doch auf den Kurs 
des Sonderheftes 8/85 hinweisen, der mit seinem Umfang 
von über 70 Seiten bisher noch nicht übertroffen wurde. Auf 
einfache Weise lernt man hier alles über den C64 und die 
Maschinensprache seines 6510-Prozessors. Doch geht 
dieser Lehrgang über das Erlernen der reinen Assembler¬ 
befehle weit hinaus: In praxisnahen Beispielen wird der 
zukünftige Assembler-Programmierer sicher geleitet, so 
daß man nach dem Studium des Kurses schon über eine 
gewisse Programmiererfahrung verfügt. Sie erlaubt es 
bereits, eigens entwickelte kleine Projekte erfolgreich in 
Maschinensprache abzufassen. 


Lernt man zunächst die Arbeitsweise, den Mikroprozes¬ 
sor und den Arbeitsspeicher des C64 kennen, werden bald 
darauf, nach einem ausführlichen Blick auf die Register 
des Prozessors und einigen Rechenübungen im Binärsy¬ 
stem, die ersten Assemblerbefehle vorgestellt. Schritt für 
Schritt bemerkt man, daß anfänglich so unverständliche 
Fachbegriffe wie unmittelbare, absolute oder Zeropage- 
Adressierung wahrlich keine Alchimie sind. 

Der richtige Einstieg 


Leider ist man in der Maschinensprache des C64 nur 
imstande, Additionen und Subtraktionen durchzuführen. 
Andere Rechenoperationen müssen mühsam selbstent¬ 
worfen werden. Als Alternative bietet der Autor des Kurses 
fertige Routinen für eine 16-Bit-Multiplikation und Division 
an, deren Funktionsweise selbstverständlich schrittweise 
erläutert wird. Übrigens bieten wir Ihnen auch in diesem 
Sonderheft solche vorgefertigten Assembler-Programm- 
Module für wichtige Funktionen an, damit Sie nicht jedes¬ 
mal »das Rad neu erfinden« müssen. 

Ist einem diese Materie vertraut, befindet man sich 
bereits im Lager der fortgeschrittenen Programmierer und 
wird vc r Jort aus weiter in die Geheimnisse der Assembler¬ 
sprache eingeweiht. Endlich erfährt man die Bedeutung 
des sonst unverständlichen Prozessor-Stacks und den 
Unterschied von Integer- und Fließkommazahlen in 
Maschinensprache und vieles mehr. 

Daneben geben eine Vielzahl von Anwendungen dem 
Leser weitere Möglichkeiten, »Erfahrungspunkte« bezüg¬ 
lich der Programmiertechnik zu sammeln. Den krönenden 
Abschluß bildet die Programmierung der Echtzeituhren, 
die in den CIA-Bausteinen enthalten sind. Anders als die 
recht ungenaue »Software«-Uhr, die man mittels der Varia¬ 
ble Tl$ steuern kann, werden die Echtzeituhren von der 
sehr genauen Frequenz (50Hz) des Stromnetzes getaktet. 

Geschwindigkeit durch Tabellen 


Hat dieser Kurs Ihr Interesse geweckt, so schließt sich ein 
weiterer Kurs für den schon fortgeschrittenen Programmie¬ 
rer an. Er befaßt sich mit der optimierten Programmierung 
in Assembler. Er knüpft also dort an, wo der Assembler- 
Kurs beendet wurde. Das Ziel ist es nun, das Erlernte mög¬ 
lichst perfekt anzuwenden, so daß selbstgeschriebene Pro¬ 
gramme schneller ablaufen. Man kann sich beispielsweise 
vorstellen, daß die Berechnung des »Kotangens hyperboli- 
cus« einer dreizehnstelligen Zahl selbst in Maschinenspra¬ 
che nur durch relativ langsame und komplexe Routinen 
erfolgen kann. Eine sehr geschätzte Alternative ist hier die 
Arbeit mit Tabellen, in denen die häufigsten Werte als Kon¬ 
stante abgelegt sind. Wie man solche Tabellen optimal 
gestaltet und ausnutzt, ist in einem ausführlichen Abschnitt 
dieses Kurses erklärt. 

Doch die eben genannten Bereiche sind nur ein kleiner 
Teil der in diesem Kurs unternommenen Optimierungsver¬ 
suche. Weitere Themen sind die Ausnutzung der Zero- 
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page, die richtige Programmierung von Schleifen, Selbst¬ 
modifikation von Programmen, sowie die Verwendung von 
Pufferspeichern und die Arbeit in der sogenannten Pass- 
Technik. 

Hinzu kommen einige Tips, um die Ablaufgeschwindig¬ 
keit des Betriebssystems des C64 zu erhöhen, wie es zum 
Beispiel durch Eingriffe in den Systeminterrupt erfolgen 
kann. Durch Verkürzen oder gänzliches Abschalten der 



Bild 1. Das Assembler-Sonderheft 8/85 (links) und das 
Peeks & Pokes Sonderheft 7/86 (rechts) 


internen Interruptroutine lassen sich eigene Programme 
erheblich beschleunigen. 

Ebenso interessant dürften auch die Hinweise zur sinn¬ 
vollen Nutzung des RAM-Speichers ab Adresse $E000 
sein, der normalerweise nicht zur Verfügung steht, wenn 
der Basic-Interpreter und das Betriebssystem aktiv sind. 
Das Betriebssystem »liegt« förmlich über dem RAM. Inwie¬ 
weit man dennoch das versteckte RAM sinnvoll für die 
Speicherung von Daten verwenden kann, erfahren Sie 
ebenfalls in diesem Kurs. 

Um all die erlernten Fähigkeiten sofort praktisch ausprobie¬ 
ren zu können, bietet das Sonderheft 8/85 zwei fantastische 
Programme zum Abtippen, die sich mit der Eingabe von 
Assemblerprogrammen und der direkten Maschinenpro¬ 
grammierung beschäftigen. Sie sind heute bereits wahre 
Klassiker und nicht nur unter den 64’er-Lesern bestens 
bekannt. Ihre Namen lauten »Hypra-Ass« und »SMON«. 

Hypra-Ass ist ein Makro-Assembler und kann zu Recht 
als Assembler der Spitzenklasse bezeichnet werden, da er 
manch professionelles Programm weit hinter sich läßt. 
Übertroffen wird er jedoch von »Giga-Ass« seinem Nachfol¬ 
ger, der mit diesem Sonderheft vor Ihnen liegt. 

Doch werden Sie vielleicht bemerken, daß der Begriff 
»Assembler« eigentlich der Name der Maschinensprache 
ist. Warum besitzt ein Programm den gleichen Namen? Die 
Verwunderung ist berechtig, läßt sich aber schnell aufklä¬ 
ren. Computer lassen sich in der Regel nicht direkt in 
Assembler programmieren. Hierfür ist ein Programm als 
»Vermittler« notwendig, das die Assembler-Befehle in die 
für den Computer verständliche Form von Zahlencodes 
übersetzt. Denn ein Assembler-Befehl wie »LDA # $00« 
kann von Ihrem C64 nicht direkt entziffert werden. Erbenö¬ 
tigt die entsprechenden Zahlencodes, die wirkliche 
Maschinensprache. In unserem Beispiel wären das die Bit¬ 
muster für $A9 und $00 also »10101001« und »00000000«. 


Diese Aufgabe übernehmen Programme, die den glei¬ 
chen Namen erhalten haben wie die Sprache, die sie über¬ 
setzen sollen: Assembler. 

Auch »Giga-Ass« aus dieser Ausgabe ist eines dieser 
Programme und bietet dem Programmierer Möglichkeiten, 
die er bald nicht mehr missen möchte. Das im folgenden 
Gesagte gilt für beide Programme, Giga- und Hypra-Ass. 
Giga-Ass bietet darüber hinaus noch einiges mehr. 

Zwei »Klassiker« zum Abtippen 


Wie jeder gute Makro-Assembler erlaubt Hypra-Ass die 
Verwendung von Labels oder Variablen. Programmteile 
dürfen mit sogenannten Labels (Marken) versehen werden, 
die man durch Angabe des Label-Namens anspringen 
kann. Auf diese Weise kann man Unterprogrammen 
(Subroutines) eigene Namen geben, statt sie durch ihre 
abstrakte Startadressen anzusprechen. Der Befehl JRS 
UNTER verzweigt zum Beispiel in ein Unterprogramm, 
dem das Label »UNTER« zugewiesen wurde. Ähnlich ver¬ 
halten sich auch die Variablen. Sie stehen für einen Wert 
oder eine anzusprechende Adresse. Innerhalb von Befeh¬ 
len lassen sich mit diesen Variablen jegliche Berechnun¬ 
gen wie Addition oder Subtraktion durchführen und verlei¬ 
hen dem Programmierer bei der Erstellung seiner Pro¬ 
gramme mehr Flexibilität. 

Wie man sehr bald bemerkt, muß in Maschinensprache 
ein Programm aus sehr vielen, einfach arbeitenden 
Assembler-Befehle zusammengesetzt werden. Benötigt 
man bestimmte Anweisungs-Folge sehr häufig, ist die stän-. 
dige Wiederholung der Befehle bei der Eingabe bald recht 
lästig. Ein Unterprogramm wäre hier eine Lösung, doch 
sind die umständliche Unterscheidung von Unter- und 
Hauj <i ogramm sowie die verwirrenden direkten Sprünge 
für einige wenige Befehle sehr aufwendig. Eine bessere 
Lösung bieten hier die Makros. 

Hypra-Ass mit Makros 


Makro-Assembler gestatten es, eine Reihe von stets wie¬ 
derkehrenden Befehlen unter einem Namen zusammenzu¬ 
fassen, der später wie ein normaler Befehl bei der Program¬ 
mierung verwendet werden darf, obwohl er eigentlich nicht 
existiert. 

Hypra-Ass besitzt in diesem Zusammenhang die sehr 
ungewöhnliche Trennung zwischen globalen und lokalen 
Variablen, wie man sie sonst nur bei höheren Programmier¬ 
sprachen findet. Dies bezieht sich auf den Geltungsbereich 
der Variablen. Lokale Variablen, die in einem Makro defi¬ 
niertwurden, gelten nur dort. Globale Variablen können mit 
gleichem Namen durchaus außerhalb des Makros verwen¬ 
det werden. 

Auch das Einfügen von Tabellen in das Maschinenpro¬ 
gramm kann mit Hypra-Ass schnell und übersichtlich vor¬ 
genommen werden. Selbst Texte im Programm, deren Aus¬ 
gabe man in der Regel Buchstabe für Buchstabe program¬ 
mieren müßte, werden in ihrer Gesamtheit als Text in das 
Assemblerprogramm eingebunden. 

Natürlich beherrscht Hypra-Ass auch die bedingte 
Assemblierung, die recht ungewöhnliche Programmlösun¬ 
gen zuläßt. Mit speziellen Kommandos werden Teile des 
Programmes beim späteren Übersetzungsvorgang nur 
dann assembliert, wenn eine bestimmte Bedingung erfüllt 
ist. Ansonsten kommt ein anderer Programmteil zur Über¬ 
setzung. 

Daneben lassen sich innerhalb eines Programms wei¬ 
tere auf der Diskette befindliche Programme mit dem 
»Merge«-Befehl einbinden. Die Verkettung von Maschinen- 
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Programmen und die Ausnutzung von Programmbibliothe¬ 
ken ist somit kein Problem mehr. 

Bei der Eingabe der Assembler-Programme erweist sich 
Hypra-Ass als ungewöhnlich. Während andere Makro-As¬ 
sembler hierfür komplexe Editorprogramme anbieten, erfolgt 
die Eingabe von Hypra-Ass-Programmen mit dem bekannten 
Basic-Editor des C64. Anhand von Zeilennummern läßt sich 
ein Assemblerprogramm einfach wie ein Basic-Programm 
schreiben und auf gewohnte Weise editiern. 

Basic-Editor zur Eingabe 


Hat man unterZuhilfenahme dieser Annehmlichkeiten sein 
Assembler-Programm eingegeben (Bild 2 zeigt ein typi¬ 
sches Hypra-Ass-Programm auf dem Monitor) kann der 
Quelltext, wie das Programm in seiner jetzigen Form 
genannt wird, auf Diskette gespeichert werden. Nun tippt 
man wie zum Start eines Basic-Programmes den Befehl 
RUN, und sogleich wird das Quell-Programm in drei Durch¬ 
gängen in lauffähigen Maschinencode umgewandelt, den 
man ebenfalls auf Diskette speichern kann oder mit SYS 
und der entsprechenden Startadresse sofort startet. Soll¬ 
ten bei der Erstellung des Programmes Eingabefehler ent¬ 
standen sein, hilft Hypra-Ass mit vielen detaillierten Fehler¬ 
meldungen bei der genauen Lokalisierung der fehlerhaften 
Programmzeile. 

Hat man sein Maschinenprogramm assembliert, liegt rei¬ 
ner Maschinencode vor, der nur sehr umständlich - mit 
einem Maschinensprache-Monitor - entziffert werden 
kann. Veränderungen oder die Verbesserung von Fehlem 
sowie das Einfügen von Befehlen lassen sich bei solchen 
Programmen nur mühsam oder überhaupt nicht durchfüh¬ 
ren. In diesem Fall kann man auf den noch vorhandenen 
Hypra-Ass-Quelltext seines Programmes zurückgreifen, 
dort die gewünschten Änderungen anbringen, um das Pro¬ 
gramm anschließend erneut zu assemblieren. Existiert das 
Quellprogramm jedoch nicht mehr, etwa weil man es 
unachtsam gelöscht hat, oder will man ein fremdes Maschi¬ 
nenprogramm umschreiben, kann die Veränderung von 
Maschinenprogrammen zur Tortur werden. Doch darf man 
nicht verzweifeln, denn passend zu Hypra-Ass befindet 
sich im gleichen Sonderheft ein Reassembler, der jedes 
Maschinenprogramm wieder in Hypra-Ass-Quelltext ver¬ 
wandelt. Er ist quasi das Gegenstück zu Hypra-Ass und 
besitzt den einfachen Namen »Reass«. 

Hypra-Ass und zurück 


Ein mit »Reass« erzeugter Quelltext, wie er in Bild 3 darge¬ 
stellt ist, kann nun auf einfache Weise mit dem Editor von 
Hypra-Ass editiert und verändert werden. 

Der »Reass« ist somit eine wertvolle Ergänzung zu 
Hypra-Ass, die man als Programmierer sehr bald zu schät¬ 
zen weiß. Ebenso wichtig ist auch ein drittes interessantes 
Listing im Sonderheft 8/85. 

SMON ist jedoch kein Assembler, sondern ein Maschi¬ 
nensprache-Monitor. Ein solches Programm erlaubt es, 
den Inhalt des Computerspeichers zu inspizieren und 
gegebenenfalls zu verändern. Mittels einfacher Befehle 
können die im Speicher des C64 enthaltenen Werte sicht¬ 
bar gemacht werden (Memory-Dump). Auf diese Weise 
kann man zum Beispiel den Maschinencode eines Assem¬ 
blerprogrammes betrachten und ihn durch direkte Eingabe 
der Codes manipulieren. Wesentlich bequemer ist jedoch 
die Eingabe von Maschinenbefehlen durch den eingebau¬ 
ten Mini-Assembler. Wie die Vorsilbe »Mini« bereits vermu¬ 
ten läßt, ist dieser Assembler bei weitem nicht so komforta¬ 


bel wie Hypra-Ass. Es ist nur die Eingabe von direkten 
Befehlen ohne Variable und Makros gestattet, doch dürfen 
bis zu 30 Labels zur Markierung von Programmstellen ver¬ 
wendet werden. 

Ein ebenso kleiner Disassembler wandelt die Codes wie¬ 
der in Assembler-Befehle zurück, so daß man jeden beliebi¬ 
gen Speicherbereich des C64 als Maschinenprogramm 
betrachten kann. Daneben findet man einen Befehl zum 
Speichern jedes gewünschten Speicherbereichs auf Dis¬ 
kette oder Kassette. Ein weiteres Kommando lädt die 
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Bild 2. Ein Assemblerprogramm wird mit Hypra-Ass so ein¬ 
fach wie im Basic des C64 eingegeben 

gespeicherten Abschnitte wieder an ihre richtige Adresse. 
Soll der Speicherbereich an eine andere Adresse geladen 
werden, ist auch dies für SMON kein Problem. 

Doch über diese Befehle hinaus zeigt SMON erst in einer 
Vielzef? /on zusätzlichen Anweisungen seine volle Lei¬ 
stungsfähigkeit. 

Speicherabschnitte können problemlos verschoben wer¬ 
den. Werden Maschinenprogramme allerdings verscho- 


100' 

aq 

c 1 f 

f d2 = $ f fd2 

110 - 




120 - 


. b a 

$8000 

1 30 - 




1 -10 - 

1 8000 

i dy 

M$00 

130 

l 8002 

1 da 

11 8010 , y 

IGO 


C HP 

H$23 

1 70 - 


beq 

l 800 f 

180 


jsr 

cl f f d 2 

190 


i ny 


200 - 


bne 

1 8002 

2 I 0 

1 800 f 

rts 


220 

• 



230 

11801 0 

. by 

$ c -1, $-19, $-13, $33, $20, 

$•19, $5 

3 



>>RI ASS<< wc 

ist 

den erkannten l ai.eu 

aulonat i sei. 

Flor t 

c / u (/.B. i8002> 

1 ,1 b p 1 1 C li WOI 

den 

als solche erF.annt 

(2c 

i 1 c 2 3 0 ) 




Blld 3. Ein mit »REASS« reassembliertes Programm kann 
mit Hypra-Ass weiter bearbeitet werden 


ben, sind diese an neuer Position meist nicht mehr lauffä¬ 
hig, da Sprünge oder Adressierungen auf den ursprünglich 
belegten Speicherbereich erfolgen. Um solche Pro¬ 
gramme dennoch verwenden zu können, müssen in der 
Regel sämtliche Befehle mit direkter Adressierung auf die 
neue Position im Speicher angepaßt werden. Ist diese 
Arbeit von Hand vorzunehmen, kann das Vorhaben zu 
einer nerven- und zeitraubenden Beschäftigung werden. 
SMON übernimmt diese Arbeit auf Wunsch automa¬ 
tisch und stets korrekt, so daß ein verschobenes Programm 
auch an der neuen Speicheradresse startbereit ist. Ledig¬ 
lich bei der indirekten Adressierung versagen die Künste 
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C64 


unseres Monitors. Sie muß nach wie vor »persönlich« 
angeglichen werden. 

Besonders selten findet man bei einem Monitor Kom¬ 
mandos zum Durchsuchen des Speichers. Noch unge¬ 
wöhnlicher ist die Vielfalt, die SMON hier an den Tag legt. 

Hier hat der Anwender nicht nur die Möglichkeit, 
bestimmte Abschnitte des Speichers nach besonderen 
Byte-Folgen zu durchstöbern, es lassen sich vielmehr in 
vielen Variationen auch Befehle mit unmittelbarer, absolu¬ 
ter oder Zeropage-Adressierung finden. Daneben entdeckt 
SMON spielend relative Adressierungen oder mögliche 
Tabellen von Programmen, wie man in Bild 4 sehen kann. 
Dem »Software-Spion« sind damit keine Grenzen gesetzt. 


SMON: Monitor der Spitzenklasse 


Haben Sie ein Maschinenprogramm mit Hypra-Ass 
geschrieben und korrekt assembliert, sieht man sich nun 
dem größten Problem der Maschinensprache gegenüber. 
Arbeitet mein Programm auch so, wie ich es mir vorgestellt 
habe? Denn trotz so angenehmer Hilfen wie Hypra-Ass 
sind logische Fehler bei der Programmierung die häufig¬ 
sten und meist gefürchteten Nebenwirkungen beim Pro¬ 
grammablauf. Da Maschinensprache über keine Fehler¬ 
meldungen oder Sicherheitvorkehrungen bei Ungereimt¬ 
heiten im Programm verfügt, verabschiedet sich der Com¬ 
puter bei Fehlprogrammierungen meist mit einem letzten 
»Aufschrei« (wirre Zeichen sind auf dem Bildschirm zu 
erkennen) oder aber leise und ohne weitere Anzeichen. 
Solche Abstürze sind oftmals nur durch eine Reset-Taste 
oder den Netzschalter des C64 zu beheben. 

Auch hier zeigt sich SMON als wahrer Helfer in der Not. 
Diverse Trace-Modi geben dem Anwender Gelegenheit, 
den probeweisen Ablauf eines Maschinenprogramms 
gefahrlos Schritt für Schritt mitzuverfolgen (Bild 5). Dabei 
hat man die Wahl zwischen der Einzelschritt-Abarbeitung 
oder die schnelle Ausführung eines festgelegten 
Programm-Abschnittes mit garantiertem Stop an einer 
gewünschten Stelle. Fehlsprünge an Undefinierte Adres¬ 
sen werden damit sofort ausfindig gemacht und können mit 
dem Disassembler korrigiert werden. Größere Verbesse¬ 
rungen sind jedoch vorteilhafter unter Zuhilfnahme von 
Reass und Hypra-Ass vorzunehmen. 

Durch Druck einer bestimmten Taste widerfährt unserem 
leistungsfähigen Monitor eine geheimnissvolle Verwand¬ 
lung. Alle bisher tadellos funktionierenden Befehle werden 
nicht mehr akzeptiert. Von nun an arbeitet SMON als 
Disketten-Monitor, der es ermöglicht, die Inhalte von Dis¬ 
ketten direkt zu beeinflussen. Einzelne Sektoren können 
gelesen, deren Inhalt betrachtet und auf Wunsch geändert 
werden. Anschließend kann der veränderte Sektor wieder 
auf Diskette geschrieben werden. SMON eröffnet dem 
Anwender damit direkte Eingriffe in die Organisation einer 
Diskette, die, wenn sie gezielt erfolgen, durchaus sehr nütz¬ 
lich sind. Unqualifizierte Manipulationen haben jedoch 
meist verheerende Folgen für die weitere Lesbarkeit der 
Versuchsdiskette. Für eigene Testzwecke ist es daher rat¬ 
sam, eine Diskette zu verwenden, die keine wichtigen 
Daten enthält (nicht etwa die einzige Kopie von SMON). 

Damit wären die wichtigsten Eigenschaften der Grund¬ 
version von SMON erläutert. Sie haben bei dem Begriff 
»Grundversion« richtig gelesen, denn der modulare Aufbau 
von SMON erlaubt es, beliebige Erweiterungen einfach 
und schnell in den Monitor einzubinden. Zur Wahl stehen 
zum Beispiel ein erweiterter Disassembler, der die Fähig¬ 
keit besitzt, sogenannte »illegale« Assemblerbefehle zu 
übersetzen, oder ein wesentlich komfortablerer Disketten- 
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Bild 4. »SMON« als Speicher-Detektiv. Hier ist er auf der 
Suche nach relativen Adressen 


monitor, der zusätzlich die Ausgabe beliebiger Speicherbe¬ 
reiche im RAM der Floppystation erlaubt. 

Ebenfalls interessante SMON-Module bieten Befehle zur 
Ausgabe des Computerspeichers in Bit-Darstellung. 
SMON kann somit auch als Sprite-Editor eingesetzt wer¬ 
den. Ein weiteres Kommando kopiert SMON komplett in 
gewünschte Speicherabschnitte, so daß dieser leistungs¬ 
fähige Monitor an jeder Position im Speicher einsetzbar ist. 
Ein spezieller Befehl kopiert den Zeichensatz des C64 in 
einen bearbeitbaren RAM-Bereich. Mit Hilfe der Bitdarstel¬ 
lung wird SMON zum wirkungsvollen Zeichensatzeditor. 
SMON scheint hier keine Grenzen zu kennen. 

Ein guter Monitor muß trotz hoher Leistungsfähigkeit 
möglichst klein sein, das heißt er soll bei der Arbeit mit dem 
Computer nur wenig Speicherplatz belegen. Die Grundver¬ 
sion von SMON hält sich mit einer Größe von 4 KByte an 
diese Regel. Doch soll diese Größe nicht überschritten wer¬ 
den, finden die Erweiterungsmodule keinen Platz mehr. 
Aus diesem Grund müssen bei der Verwendung der neuen 
Befehle einige andere Kommandos weichen, so daß stets 
nur ein Teil der Anweisungen gleichzeitig zur Verfügung 
steht. Es ist deshalb empfehlenswert, spezielle SMON- 
Versionen mit eigens gewählten Befehlskombinationen für 
jeweilige Anwendungsbereiche zusammenzustellen. 

SMON runderneuert 


ln diesem Zusammenhang müssen wir noch auf Sonder¬ 
heft 12 hinweisen, das eine verbesserte und erweiterte, 
also quasi »runderneuerte« Version des SMON enthält. 
Unter dem Namen »PROMON 64« bietet der neue Monitor 
die Annehmlichkeiten des alten SMON mit allen hier 
besprochenen Erweiterungen. Weitere interessante Fea¬ 
tures, wie zum Beispiel das Kodieren von Speicherberei¬ 
chen, wurden zusätzlich implementiert. 

Ein Nachteil von PROMON ist seine Länge von 8 KByte, 
die für einen professionellen Monitor fast unzumutbar ist. 
Man wird jedoch durch die »geballte« Leistungsfähigkeit 
dieses Maschinensprache-Monitors entschädigt. 

Wird allumfassende Leistung verlangt, ist PROMON 64 
der geeignete Monitor. Benötigt man aber einen kleinen 
Helfer mit großen Fähigkeiten, etwa bei der Bearbeitung 
von umfangreichen Maschinenprogrammen, werden die 
einzelnen Spezialversionen des SMON sicherlich gute 
Dienste leisten. 
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Bild 5. Nächster Befehl...und Stop...Einer der vielen Trace- 
Modi von SMON 


Doch wenden wir uns nun ab von Assemblern und Moni¬ 
toren und begeben uns wieder in die Theorie der 
Assembler-Programmierung. Denn es soll am Ende dieses 
Überblicks auch ein Kurs erwähnt werden, der sich an Pro¬ 
grammierer von Basic sowie an Maschinensprache-Freaks 
richtet. Unter dem Namen »Memory-Map - mit Wandervor¬ 
schlägen« erschien er im »PEEKS & POKES«-Sonderheft 
7/86 (Bild 1, rechts). 

Alle Speicherstellen des C64 von Adresse 0 bis Adresse 
1023 - also auch die so wichtige Zeropage - sind dort aus¬ 


64’er-REFERENZ 


führlich erklärt. Doch handelt es sich nicht nur um eine ein¬ 
fache Tabelle, die nur Kurzbeschreibungen bereitstellt. Es 
wird vielmehr jede Adresse gründlich inspiziert. Viele Bei¬ 
spiele und Tips geben dabei Auskunft, ob und in welchem 
Umfang diese Speicherstellen nützlich sein können. Tips 
für die Anwendung in Maschinensprache oder Basic fehlen 
natürlich auch nicht. 


Spekherlandkarte für den C64 


Passend zum Aufgabenbereich der jeweiligen Adressen 
erhält der Leser zusätzlich Wissenswertes über allgemeine 
Themen zum C64. Das Geheimnis der Low- und High- 
Bytes und die Übergabe von Basic-Werten an ein Maschi¬ 
nenprogramm sind nur zwei Beispiele. 

Wer gemischte Programme schreiben will, das heißt 
Basic-Programme, die von Maschinenroutinen unterstützt 
werden, der wird sicherlich mit Aufmerksamkeit die 
Abschnitte über den Aufbau von Basic-Variablen und Fel¬ 
dern verfolgen. Daneben stellt sich die Zufallsfunktion RND 
als gar nicht so zufällig heraus. Wie man aber dennoch gut¬ 
verteilte Zufallszahlen erzeugen kann, ist schrittweise in 
der Memory-Map erläutert. 

Ein großer Teil des Kurses widmet sich der Tastatur des 
C64, die mehr Eigenheiten in sich birgt, als man glauben 
möchte. Eigenheiten, die sich besonders in Maschinenpro¬ 
grammen hervorragend nutzen lassen. Auch die oft verges¬ 
sene RS232-Schnittstelle und ihre Bedienung in Basic und 
Maschinensprache fehlen nicht in dieser geballten Samm¬ 
lung der C64-lnformationen. 

(Michael Thomas/sk) 
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512 KByte am C 64 


Die Programmierung der Commodore-RAM- 
Erweiterungen war bislang nur mit dem C128 
möglich. Wir zeigen Ihnen, wie Sie diese preis¬ 
günstigen Speichermodule auch an Ihrem C64 
einsetzen können. Gleichzeitig erfahren Sie vie¬ 
les darüber, wie diese Speichermodule in Ma¬ 
schinensprache anzusprechen sind. 

F ür alle, die an die Grenzen des C64-Speichers gesto¬ 
ßen sind, bietet Commodore die RAM-Erweiterungs- 
module 1700 (128 KByte zusätzlich) und 1750 (512 
KByte) an (Bild 1). Entwickelt wurden diese Module 
ursprünglich für den C128. 

Leider muß der C64-Besitzer für die Benutzung dieses 
RAM-Moduls noch auf die GEOS-Version VI .3 warten, da 
zum einen die Demo-Software zur 1700/1750 nur auf dem 
C128 läuft und zum anderen der C64 (im Gegensatz zum 
C128) nicht über Befehle für die Verwaltung der Speiche¬ 
rerweiterung verfügt. Diesen Softwaremangel wollen wir 
nun beheben. 

Zunächst sind Sie sicher daran interessiert, die Funk¬ 
tionstüchtigkeit Ihrer RAM-Erweiterung gründlich zu prü¬ 
fen. Auf der Demo-Diskette befindet sich ein C128-Utility 
namens »RAM-CHECK«, das diese Aufgabe übernimmt. 
Listing 1 leistet nun dasselbe auf dem C64. 



Bild 1. Die beiden Speichererweiterungen 1700 und 1750 


»RAM-CHECK« für den C64 erkennt nach dem Start 
selbständig die Version des eingesteckten Moduls, ob es 
sich also um ein 1700- oder 1750-Modul handelt. Dies wird 
durch folgende Meldung ausgedrückt: 

RAM CHECK FOR 1700 EXPANSION 

IS RUNNING 

oder: 

RAM CHECK FOR 1750 EXPANSION 
IS RUNNING 

Die Dauer des eigentlichen RAM-Testlaufs ergibt sich 
nun in Abhängigkeit von der Speichermenge, die auf Fehler 
zu durchsuchen ist: Die 128 KByte des 1700-Moduls wer¬ 
den in zirka 30 Sekunden, die 512 KByte der 
1750-Erweiterung in zirka 2 Minuten gecheckt. 

Während eines Testlaufs blinkt der Bildschimrahmen in 


allen Farben. Verläuft der Test erfolgreich, erscheint nach 
der angegebenen Zeit die folgende Meldung: 

NO ERRORSI 

Dann wird das Testprogramm nicht mehr benötigt, denn 
Sie haben eine korrekt arbeitende RAM-Disk zur Verfü¬ 
gung. 

Erhalten Sie jedoch die Fehlermeldung 
RAM EXPANSION ERROR IN 
BANK: x ADR.: xxxxx 

ist der Test mehrfach zu wiederholen. Treten dabei weitere 
Fehler auf, sollten Sie Ihren Händler aufsuchen. Verläuft 
dort ein Test auf einem C128 mit dem RAM-CHECK- 
Programm der Commodore-Demodiskette positiv, so wird 
Ihr C64 mit ziemlicher Sicherheit nur Schwierigkeiten mit 
der Stromversorgung haben, was bei einigen älteren Aus¬ 
führungen vorkommt. Ein neues Netzteil oder eine externe 
Stromversorgung für die RAM-Disk beseitigen diese 
Schwierigkeiten. 

Sollten jedoch auch diese Versuche fehlschlagen, ist Ihr 
Modul mit hoher Wahrscheinlichkeit schadhaft und muß 
umgetauscht werden. 

RAM-Steuerung auch in Basic 


Das Basic 7.0 des C128 verfügt über drei Befehle, die spe¬ 
ziell für den Umgang mit den RAM-Erweiterungen 1700 
und 1750 entwickelt wurden. Damit auch Sie als 
C64-P°nutzer in den Genuß dieser Befehle kommen, 
erweiteu unser Programm »DMA-BASIC« das Basic des 
C64 um diese drei Befehle sowie eine weitere, 
C64-spezifische Anweisung. Auf der Programmservice- 
Diskette befindet sich zusätzlich eine brennfähige 
Betriebssystemversion von DMA-BASIC, die anstelle des 
Original-Kernel eingesetzt werden kann. Diese kann aus 
Platzgründen leider nicht abgedruckt werden. 

Die Basic-Erweiterung »DMA-BASIC V2« (Listing 2) wird 
mit dem MSE eingegeben und wie ein Basic-Programm 
geladen und gestartet. Danach erscheint sofort eine modifi¬ 
zierte Einschaltmeldung. DMA-BASIC befindet sich dann 
ab Adresse 51200 ($C800) im Speicher und bleibt bis zur 
Auslösung eines Reset aktiv. Nach einem Reset kann, falls 
notwendig, die Erweiterung mit SYS 51200 wieder reakti¬ 
viert werden. 

DMA-BASIC stellt vier Befehle zur Verfügung: 

STASH speichert Daten im RAM-Erweiterungsmodul 
FETCH überträgt Daten aus dem RAM-Modul in den 
C64-Hauptspeicher 

SWAP vertauscht Daten des RAM-Moduls mit Daten aus 
dem C64-Hauptspeicher 

BANK ermöglicht es, Daten aus dem RAM »unter« dem 
Basic-ROM, I/O-Bereich oder Kernel-ROM in Kombination 
mit einem der drei anderen Befehle zu übertragen. 

Dabei sind die Befehle in der Parameter-Übergabe voll 
zu den gleichlautenden Kommandos des C128 kompatibel, 
benutzen jedoch andere Tokens und selbstverständlich 
andere Routinen. 

Die Befehle STASH, FETCH und SWAP haben jeweils 
eine identische Parameterfolge: 

FETCH 

STASH BYTES, C64ADR, RAMADR, RAMBNK 
SWAP 

Die Bedeutungen dieser Parameter sind folgende: 
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Bild 2. Die Organisation der RAM-Erweiterung 1700 


- BYTES gibt an, wie viele Bytes übertragen werden sollen 

- C64ADR ist die Startadresse der Datenübertragung im 
C64-Hauptspeicher (0-65535) 

- RAMADR ist die Zieladresse der Datenübertragung im 
RAM-Modul (0-65535) 

- RAMBNK ist die Nummer der gewünschten RAM- 
Erweiterungsbank (bei 1700: 0 oder 1; bei 1750: 0 bis 7). 

Die Parameter sind somit Integerzahlen oder Variablen. 
Durch die Verwendung der Befehle werden Daten aus 
einem RAM-Bereich in einen anderen übertragen. Befin¬ 
den sich im gewählten Bereich noch Programme oder 
irgendwelche anderen Daten, werden diese automatisch 
überschrieben beziehungsweise bei SWAP vertauscht. 

Der Befehl BANK stellt eine Besonderheit dar und wurde 
nicht dem Basic 7.0 des C128 nachempfunden. Er erlaubt 
es, durch Angabe eines einzigen Parameters die RAM- 
Bereiche »unter« dem Basic- oder Kernel-ROM mit weite¬ 
ren Transfer-Befehlen (STASH, FETCH oder SWAP) anzu¬ 
sprechen. 

BANK 1 stellt dabei den Originalzustand des C64 her, 
das heißt, alle ROMs und I/O-Bereiche sind eingeblendet. 
Dieser Zustand wird auch nach der Ausführung oder einer 
Fehleingabe eines Transfer-Befehls automatisch herge¬ 
stellt. 

BANK 0 hingegen schaltet den kompletten Speicher auf 
RAM. Dazu müssen alle Systeminterrupts »verboten« wer¬ 
den, um einen Absturz des Computers zu verhindern. 

Eine Einschränkung wollen wir nicht verheimlichen: Das 
Zeichensatz-ROM des C64 ist nicht übertragbar (außer in 
Maschinensprache). 


Adresse 

Bits 

Funktion 

$df00 

0-7 

Bit 4: Modulgröße 

(0 = 128 KByte; 1 = 512 KByte) 

$df01 

0-7 

Kommando-Register lür 

STASH: %10000100 

FETCH: »4)10000101 

SWAP: »4)10000110 

$df02 

0-7 

Startadresse im C64 (Low-Byte) 

$df03 

0-7 

Startadresse im C64 (High-Byte) 

$d(04 

0-7 

Startadresse In RAM-Erweiterung 
(Low-Byte) 

$dl05 

0-7 

Startadresse in RAM-Erweiterung 
(High-Byte) 

$df06 

0-7 

Nummer der RAM-Erweiterungsbank 
(bei 1700: 0- 1; bei 1750:0-7) 

$d(07 

0-7 

Anzahl der zu übertragenden Bytes 
(Low-Byte) 

$df08 

0-7 

Anzahl der zu übertragenden Bytes 
(High-Byte) 


Tabelle 1. Die wichtigsten I/O-Register für DMAs 


Programmbeispiele: 

Zum Ausprobieren des ersten Beispiels müssen Sie 
zunächst den Bildschirm durch <SHIFT CLR/HOME> 
löschen. Danach schreiben Sie in die oberste Bildschirm¬ 
zeile einige beliebige Zeichen wie etwa »DMA-BASIC TEST 
1987 BY T.POHL«. Nun bewegen Sie den Cursor tiefer und 
geben in eine freie Zeile folgenden Befehl ein: 

STASH 40,1024,0,0 

Der Computer hat nun die erste Zeile des Bildschirms auf 
die RAM-Erweiterung ab Adresse 0 in Bank 0 abgelegt. Die 
Daten bleiben solange in der RAM-Erweiterung, bis der 
Computer ausgeschaltet oder der Speicherbereich über¬ 
schrieben wird. Ein Reset hat keinerlei Wirkung auf die 
abgelegten Daten. 

Löschen Sie zur weiteren Demonstration erneut den 
Bildschirm und geben Sie 

FETCH 40,1024,0,0 

ein. Augenblicklich erscheint wieder die ursprüngliche 
Zeile. In einem kleinen Programm zusammengefaßt, sieht 
dieses Beispiel folgendermaßen aus: 

10 PRINT CHR$(l47);"DMA-BASIC TEST 1987 BY T.POHL" 
20 F0R Y=24 T0 0 STEP -1 
30 PRINT CHR$(147) 

40 FETCH 40,1024+(Y#40),0,0 
50 NEXT Y 
60 END 

Das Programm enthält eine Variante, welche die Text¬ 
zeile von unten nach oben wandern läßt. Sie können das 
Programm auch verlangsamen, indem Sie folgende Verän¬ 
derungen vornehmen: 

45 F0R T=0 T0 1000 
50 NEXT T,Y 

Grundlaaen für die Programmierung: 

Da ein ^-Bit-Prozessor wie der 6510 des C64 nur 65536 
verschiedene Speicheradressen ansprechen kann, muß 
ein größerer Speicherbereich in Speicherbänke eingeteilt 
werden. Die Bilder 2 und 3 zeigen diese Einteilung für die 
beiden Erweiterungen 1700 und 1750. 

Die vorgestellten Routinen bedienen sich eines DMA 
(daher »DMA-BASIC«). DMA bedeutet »Direct Memory 
Access«, was man mit »direkter Speicherzugriff« übersetzt. 

Ein DMA kann auf verschiedene Arten herbeigeführt 
werden, die alle im Handbuch der Erweiterungsmodule 



Bild 3. Die Organisation der RAM-Erweiterung 1750 
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Bild 4. Ein Grafikbeispiel mit der Speichererweiterung, hier Bild 5. Der Hintergrund aus Bild 4 wird mit 32 Bildern pro 
als Standbild fotografiert Sekunde durchgeschaltet (belichtet mit V» Sekunde). 


beschrieben sind. Tabelle 1 gibt Auskunft über die Adres¬ 
sierung des I/O-Bereiches der für DMAs wichtigen Regi¬ 
ster. Die Tabelle bezieht sich auf Daten des 
1700/1750-Originalhandbuches (Seite 20). Wie ein DMA 
letztendlich gestartet wird, ist dem kommentierten Quell¬ 
text »DMA-REL.DOKU« (Listing 4) zu entnehmen. 

Verschiebbare Hilfsroutinen: 

DMA-Basic ist sicherlich die komfortabelste Möglichkeit 
für die RAM-Steuerung in Basic. Aber für manche Zwecke 
sind frei verschiebliche Routinen, die über SYS aufgerufen 
werden, praktischer. 

. »DMA-REL.« (Listing 3, einzugeben mit dem MSE) stellt 
die Transfer-Routinen von DMA-BASIC über SYS-Aufrufe 
zur Verfügung. Das Programm ist frei im Speicher ver¬ 
schiebbar, es stützt sich also nicht auf JMP/JSR-Befehle 
oder irgendwelche Datenfelder. Mit einem Maschinen¬ 
sprache-Monitor kann es ohne Adreßumrechnung fast 
beliebig im C64-Speicher verschoben werden. Statt der 
Basic-Befehle hat »DMA-REL.« folgende Syntax: 

SYS Ladeadresse+X, BYTES, C64ADR, RAMADR, 
RAMBNK, BANK 

Die Ladeadresse ist bekanntlich beliebig, im Urzustand 
lautet sie 51200. Der Offset »X« (hier 0, 3 und 6) dient zur 


Ermittlung der unterschiedlichen Einsprungadressen: 
STASH: SYS Ladeadresse+0, <Parameter> 

FETCH: SYS Ladeadresse+3, <Parameter> 

SWAP: SYS Ladeadresse+6, <Parameter> 

Die Parameter wurden, wie Sie oben gesehen haben, um 
BANK erweitert. Dieser ist auch nichts Neues, da er mit 
dem Parameter des BANK-Befehls aus DMA-BASIC iden¬ 
tisch ist. 

Noch ein Hinweis: Die Routinen aus »DMA-REL.« kön¬ 
nen, wenn das Programm an seine Ursprungsadresse 
geladen wird, nicht mit DMA-BASIC gleichzeitig im Spei¬ 
cher stehen. 

Maschinenprogrammierer können aus dem kommentier¬ 
ten Q'j° itextes (Listing 4) weitere Informationen zur Funk¬ 
tionsweise des Programms entnehmen. Ein interessantes 
Anwendungsbeispiel finden Sie in den Bildern 4 und 5. In 
Bild 5 können Sie ansatzweise erkennen wie die gesamte 
Hintergrundgrafik mit 32 Bildern pro Sekunde durchge¬ 
schaltet wird. Für das menschliche Auge ergibt sich dabei 
eine schnelle kontinuierliche Bewegung. 

(Thomas Pohl/Florian Müller) 

1700 RAM-Expanslon (128 KBylo Speicher zusätzlich): 198 Mark 
1760 RAM-Expanslon (512 KByle Speicher zusätzlich): 298 Mark 

Der Vertrieb der RAM-Erweiterungen erfolgt durch lizenzierte Vortragshändler sowio Versand¬ 
häuser. 
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cpx «2 

ifalscho bank-optlon "?** 

10066 


bcc akup 

mein, flagge setzen 

10067 


ldx «1 

ija, f logge auf Standard 

10068 


atx flgge 


10069 


Pia 

»-"- 

10070 


ldx «14 

jund fehler 

10071 

10072 

« 

Jmp Se38b 

»"illegal guantlty ..." 

10073 

akup 

stx flgge 

.•flaggo setzen 

10074 

ple 

:nummer dee befehlo zurueokholen 

10075 


tay 

lund ine y-rogiotor 

10076 


lda f Igge 

if lagge teeten 

10077 


bne rom 

jrom-vereion 

10078 

10079 

j 

rem 

aty Sdf01 

srem-voreion, befohlenummor ootzon 

10080 


OOJ 

»Interrupt eporron 

10081 


lda S01 

iolto opeichor-konfiguration 

10082 


Pha 

i morkon 

10083 


lda «0 

»elloe auf ram 

10084 


ota S 01 

lechalten 

10085 


eta SffOO 

:dma mit ‘dummy’ etarton 

10006 


Pia 

ialto konfiguration zuruockholon 

10087 


eta S01 

iund ootzon 

10088 


lda «1 

ibank-option auf 

10089 


eta f lggo 

iBtandard 

10090 


cl i 

»Interrupt wlodor zuleeeen 

10091 

10092 

rte 

j 


tzurueck ine baelc 

10093 

rom 

lda «0 

srom-voreion 

10094 


ety Sdf01 

ibofohle-nummor setzen 

10095 


eta SffOO 

»und mit ‘dummy’ oterten 

J 0096 

10097 

10098 

rte 


izurueck ins baelo 

10099 

.asc " 

(cl dma-vorsion" 

i copyrlght-vermerk 

10100 

.esc " 

1987 by t.pohl" 


10101 

10102 

.byt O 
.end 

.0.0 



Listlng 4. »DMA-REL. DOKU« Ist der kommentierte 
Quelltext zu Llsting 3 
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ASSEMBLER-ANWENDUNG 


Jetzt wiitJ's bunt 


Dieses Programm bringt Farbe in Ihre Grafik-Hard¬ 
copies, auch wenn Sie keinen Farbdrucker besit¬ 
zen. Der Trick dabei sind mehrere Farbbänder, die 
nacheinander verwendet werden. 

H eutzutage ist es nichts Besonderes mehr, Computer¬ 
grafiken auf einem Drucker auszudrucken. Durch die 
passende Software erhält man dabei Ausdrucke 
mit bis zu zwölf verschiedenen Graustufen. Wollte man far¬ 
bige Ausdrucke erzeugen, scheiterte dies meistens an der 
fehlenden Farbfähigkeit der Drucker. 

Wenn man aber einen Farbdrucker besaß, ergaben sich 
ähnliche Probleme, denn die meiste Software ist auf Ein¬ 
farbdrucker ausgelegt. 



Bild 1. Ein Bild aus dem Grafikprogramm »Paint Magic« 


Dieses Druckprogramm bietet hier eine Alternative. Mit bis 
zu vier Farbbändern werden hintereinander die einzelnen 
Farben gedruckt. Das Ergebnis ist eine mehrfarbige Grafik 
erster Klasse. Zwei Kostproben sehen Sie in Bild 1 und 2 
(gedruckt mit einem Epson FX-85). 

Das Programm läuft mit allen Epson-kompatiblen 
Druckern, des weiteren problemlos auf einem MPS 802 mit 
unserem SUPER-ROM (64’er 1/1987). Die Anpassung an 
andere Drucker ist mit der menügesteuerten Druckeran¬ 
passung kein Problem. Für Besitzer eines MPS 801/803 
gibt es ebenfalls eine Druckerroutine (Listing 2). 

Um eine solche Grafik auszudrucken, müssen Sie 
Listing 1 mit dem MSE eingeben und speichern. Interes¬ 
sierte finden auf der Programmservice-Diskette den doku¬ 
mentierten Quellcode im Hypra-Ass-Format. 

Nach dem Start erscheint die Grafikseite, in die Sie nun 
mit <L> eine Grafik laden. Wenn die Grafik verschoben 
ist, rückt man sie durch <DEL> zurecht. Die Tasten < + > 
und <-> ändern die Schrittweite der Verschiebung. Die 
Größe des Schrittes sieht man auf der Hilfstafel (Taste 
<H>), wo alle Befehle kurz aufgelistet sind. 

Mit den vier Funktionstasten verändert man die Farben 
der Originalgrafik. (Mit <SHIFT> erniedrigt man den 
Farbwert, ohne <SHIFT> erhöht man ihn.) 

Mit den Tasten <1 > bis <4> filtert man jeweils einen 
Farbanteil aus der Grafik. Das gefilterte Bild wird daraufhin 
auf der zweiten Grafikseite dargestellt. 

Mit der Taste < P> drucken Sie nun den ersten Farban¬ 
teil. Danach müssen Sie das Papier wieder an die Aus¬ 
gangsposition zurückdrehen. Dabei empfiehlt es sich, als 


Markierung eine horizontale Linie an der Papierführung 
anzubringen und auf dem Papier weiterzuführen (am 
besten mitTipp-Ex), um dann genau zurückdrehen zu kön¬ 
nen. Manche Drucker bewerkstelligen dies automatisch 
(muß vorher im Druckermenü eingestellt werden). 

Nun wiederholt man entweder den gleichen Ausdruck, 
um sattere Farben zu erreichen oder man filtert einen 
neuen Farbanteil und läßt diesen dann drucken (vorher 
müssen Sie natürlich auch das Farbband wechseln). 

Die gefilterten Grafiken speichert man mit <S>. Mit 
< — > erscheint wieder die Orginalgrafikseite. 

Zur Verbesserung der Bedienungsfeundlichkeit sind 
noch einige weitere nützliche Befehle vorhanden: 

Durch die Taste <D> wird das Directory ausgegeben. 
Die Taste <C> dient zum Senden von Diskettenbefehlen. 
Mit der Taste <H> erreichen Sie die schon erwähnte Hilfs¬ 
tafel,und <Q> beendet das Programm. In Tabelle 1 finden 
Sie alle Befehle nochmals im Überblick. 

Und nun zu einem sehr wichtigen Teil des Programms, in 
den man mit <CMB P> gelangt: das Druckermenü. Hier 
kann das Programm an den eigenen Drucker angepaßt 
werden. Verändert werden können hier unter anderem die 
Sekundäradresse, der linke Rand, aber auch die Bildgröße. 
Außerdem kann hier eingestellt werden, ob der verwendete 
Drucker über die Möglichkeit verfügt, das Papier rückwärts 
zu transportieren. Angewählt werden die einzelnen Menü¬ 
punkte mit den angegebenen Tasten. Werte verändert man 
mit < + > und <->, mit < RETURN> werden sie bestä¬ 
tigt. Mit <Q> gelangt man wieder zur Grafikseite. 

Falls sioi i Ihr Drucker dennoch nicht anpassen läßt, hän¬ 
gen Sie einfach Ihre eigene Druckroutine an. Sie müssen 
aber folgendes beachten: 

1. Ihre Routine muß den Grafikbereich von $4000 bis 
$5FFF drucken. Falls die Grafikbytes um 90 Grad gedreht 
werden müssen, so verwendet man ein im Programm 



Bild 2. Ein zweites »Palnt-Magic«-Bild als Hardcopy 


bereits vorhandenes Unterprogramm (Aufruf: JSR $0B40), 
welches zu Beginn und am Ende der Druckroutine aufgeru¬ 
fen werden muß. (Der erste Aufruf dient zum Drehen der 
Grafikbytes, der zweite zur Wiederherstellung der Grafik). 

2. Die Druckroutine muß ab der Adresse $0F91 nachge¬ 
laden werden, wobei die ersten 4 Bytes angeben müssen, 
ob die Druckroutine über ein Menü verfügt, in dem beson¬ 
dere Parameter eingestellt werden und ab welcher Adresse 
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ASSEMBLER-ANWENDUNG 


C64 


dieses beginnt. Ist eine solche Routine vorhanden, so muß 
der Inhalt des ersten Bytes ($0F91) gleich 1 sein und in den 
Adressen $0F92, $0F93 und $0F94 der Aufruf des Menüs 
über einen JMP-Befehl erfolgen, wobei die Adresse $0F92 
vom Hauptprogramm durch <CBM P> aufgerufen wird. 
Der Rücksprung aus dem Menü erfolgt mit JMP $09F1. Exi¬ 
stiert kein Druckermenü, so muß der Inhalt von $0F91 
gleich 0 gesetzt werden und die nächsten drei Bytes kön¬ 
nen beliebige Werte annehmen. 

3. Die eigentliche Druckroutine beginnt bei $0F95 und 
wird mit RTS abgeschlossen. 

Ihre eigene individuelle Version des Farbdruckpro¬ 
gramms erhalten Sie, wenn Sie nach dem Laden von 
»Obsess V3.1« Ihre angepaßte Druckroutine absolut nach¬ 
laden und das Ganze mit einem Monitor von $0801 bis zum 
Ende der Druckroutine abspeichern. 

Für den MPS 801/803 und Kompatible finden Sie in 
Listing 2 die bereits angepaßte Druckroutine »H-EXT« aus 
dem Programm »HARDMAKER« (64’er 9/1986). Sie muß 
nach der Eingabe mit dem MSE und dem Abspeichern 
lediglich wie oben beschrieben nachgeladen werden. 

Alles gut und schön, werden jetzt viele sagen, aber wo 
bekomme ich die Farbbänder her? Bei einigen Farbbän¬ 
dern ist das kein Problem: in vielen gut bestückten Compu¬ 
tergeschäften. Problematisch wird es allerdings oft mit gel¬ 
ben Farbbändern. Damit Sie auf keinen Fall Schwierigkei¬ 
ten haben, finden Sie im Info einige Bezugsquellen. 

(Gerhard Blickmann/Ralph Beninde/Ulrich Beenen) 


Bezugsquellen för Farbbänder: 

1. AQS-Farbbändor, Elektronlk-Zubahör, Werwolf Bä, 4650 Solingen 1, Toi, 0212/13084 

Die erhältlichen Farben sind rot, blau, grün und braun - beispielsweise für: MPS 801 16,50 
Mark/Stück, MPS 802 17,80 Mark/Stück, MPS 803 13,60 Mark/Stück, Epson RX/FX 12,85 
Mark/Slüok, Slar NL10 18,65 Mark/Slück, Seikosha SL/SP 16,90 Mark/Slück, Panasonic 
15,80 Mark/Slück, (weitere Typen auf Anfrage) 

2. Scanntronik, Parkstraße 38, 8011 Zorneding, Tel. 06106/22570 

Erhältlich Ist ein Farbbandsel, bestehend aus drei Bändern (rot, gelb, blau) lür: Epson 
RX/FX 49 Mark/Stück, Star NL-10 59 Mark/Stück 


Befehl 

Funktion 

<L> 

Grafik laden 

<S> 

Grafik speichern 

<D> 

Directory zeigen 

<C> 

Diskettenbefehl senden 

<-> 

Zurück zur Originalgrafik 

<1>-<4> 

Filtern der Farbanteile 

<F1 >-<F7> 

Farbwert ändern 

<DEL> 

Grafik verschieben 
< + > und <-> Schrittweite 
ändern (1-255) 

<P> 

Ausdrucken des gefilterten Bildes 

<H> 

Zeigen aller Befehle 

<Q> 

Verlassen des Programms 

<CBMP> 

Druckermenü 


Tabelle 1. Alle Befehle auf einen Blick 


Name 

: 

obsess v3.1 



0801 

1376 

0999 

: 

dO 

f 5 

4c 

ae 

09 

a 2 

05 

ca 

9c 

0b41 

1 

8e 

09 

4c 

01 

Oa 

a9 

00 

aO 

b6 












09a 1 

z 

bd 

89 

09 

9d 

7f 

09 

eO 

00 

dd 

Ob 49 

: 

40 

8d 

5b 

Ob 

Bd 

69 

Ob 

8c 

fl 

0801 

: 

Ob 

OB 

64 

00 

9e 

32 

30 

36 

d2 

09a9 

: 

dO 

f 5 

4c 

ae 

09 

ad 

7 f 

09 

6b 

0b51 

: 

5c 

Ob 

Bc 

6a 

Ob 

aO 

07 

a 2 

ba 

0809 

: 

31 

00 

00 

00 

a9 

80 

Bd 

8a 

24 

09b 1 

: 

Bd 

21 

dO 

a 2 

f 9 

ad 

80 

09 

7B 

0b59 

: 

07 

5e 

08 

40 

6a 

ca 

10 

f 9 

cb 

0811 

: 

02 

20 

b8 

Oa 

a2 

00 

bd 

2b 

Oa 

09b9 

: 

9d 00 dB 

9d fa 

dt, . • 

f 4 

17 

0b61 

: 

48 

88 

10 

f 3 

a 2 

00 

68 

9d 

77 

0819 

s 

08 

c9 

00 

fO 

07 

20 

d2 

ff 

el 

09c 1 

: 

d9 

9d 

ee 

da 

ad 

81 09 

18 

bb 

Ob 69 

: 

08 

40 

e8 

eO 

OB 

dO 

f 7 

18 

ff 

0821 

r 

eB 

4c 

17 

08 

20 

10 

09 

4c 

35 

09c9 

z 

2 a 

18 

2 a 

18 

2 a 

18 

2 a 

18 

c9 

0b71 

: 

ad 

5b 

Ob 

69 

08 

8d 

5b 

Ob 

2 c 

0829 

: 

fl 

09 

8e 

OB 

le 

93 

11 

11 

28 

09dl 

: 

6d 

82 

09 

9d 

00 

04 

9d 

fa 

02 

0b79 

: 

8d 

69 

Ob 

ad 

5c 

Ob 

69 

00 

f 7 

0831 

: 

11 

11 

11 

11 

12 

20 

20 

20 

14 

09d9 

: 

04 

9d 

f 4 

05 

9d 

ee 

06 

eO 

b5 

ObBl 

: 

0d 

5c 

Ob 

Bd 

6a 

Ob 

ad 

6a 

3b 

0839 

: 

20 

20 

20 

20 

20 

20 

20 

20 

39 

09el 

: 

00 

fO 

04 

ca 

4c 

b6 

09 

ad 

ae 

0bB9 

s 

Ob 

c9 

60 

dO 

cB 

60 

20 

b8 

2c 

0841 

: 

20 

20 

20 

20 

20 

20 

20 

20 

41 

09e9 

: 

03 

09 

Bd 

20 

dO 

60 

00 

00 

68 

0b91 

: 

Oa 

20 

03 

Oc 

a 2 

OB 

aO 

00 

db 

0849 

: 

20 

20 

20 

20 

20 

20 

20 

20 

49 

09f 1 

: 

20 

de 

OB 

20 

8e 

09 

a9 

00 

5d 

0b99 

: 

20 

ba 

ff 

ad 

3c 

03 

a 2 

b5 

9e 

0B51 

: 

20 

20 

20 

20 

20 

20 

20 

20 

51 

09f 9 

z 

B5 

c6 

4c 

01 

Oa 

20 

9e 

09 

43 

Obal 

z 

aO 

Ob 

20 

bd 

ff 

a2 

00 

aO 

dd 

0859 

: 

20 

20 

20 

20 

20 

20 

20 

20 

59 

OaOl 

z 

a5 

c6 

c9 

00 

fO 

fa 

20 

b4 

4c 

0ba9 

z 

20 

a9 

00 

20 

d5 

ff 

20 

14 

aB 

0861 

x 

20 

20 

20 

20 

20 

20 

20 

20 

61 

0a09 

: 

e5 

c9 

5f 

fO 

46 

c9 

31 

fO 

22 

Obbl 

: 

Od 

4c 

f 1 

09 

20 

20 

20 

20 

46 

0869 

* 

43 

4f 

4c 

4f 

52 

50 

52 

49 

d4 

Oal 1 

z 

45 

c9 

32 

fO 

41 

c9 

33 

fO 

f 7 

Obb9 

: 

20 

20 

20 

20 

20 

20 

20 

20 

b9 

0871 

s 

4e 

54 

50 

52 

4f 

47 

52 

41 

43 

0al9 

: 

3d 

c9 

34 

fO 

39 

c9 

50 

fO 

6b 

Obel 

: 

20 

20 

20 

20 

20 

20 

b8 

Oa 

f 7 

0879 

: 

4d 

20 

20 

20 

20 

20 

20 

20 

a6 

Oa21 

z 

3b 

c9 

4c 

fO 

46 

c9 

53 

fO 

57 

0bc9 

3) 

20 

03 

Oc 

a 2 

OB 

aO 

01 

20 

Bc 

0881 

: 

20 

20 

20 

20 

20 

20 

20 

20 

81 

0a29 

z 

45 

c9 

51 

fO 

63 

c9 

44 

fO 

3d 

Obdl 

.!M 

ba 

ff 

ad 

3c 

03 

a2 

b5 

aO 

db 

0889 

: 

20 

20 

20 

20 

20 

20 

20 

20 

B9 

0a31 

z 

40 

c9 

43 

fO 

3f 

c9 

48 

fO 

Ba 

Obd9 

: 

Ob 

20 

bd 

ff 

a 2 

00 

aO 

40 

91 

0891 

: 

20 

20 

20 

20 

20 

20 

20 

20 

91 

0a39 

z 

3e 

c9 

af 

fO 

3d 

c9 

14 

f 0 

ba 

Obel 

z 

86 

fb 

84 

fc 

a9 

fb 

a2 

00 

2 a 

0899 

: 

20 

20 

20 

20 

20 

20 

20 

20 

99 

0a41 

: 

46 

c9 

2b 

fO 

45 

c9 

2d 

fO 

Be 

01) IV 9 :l 

aO 

60 

20 

dB 

ff 

20 

14 

Od 

4B 

08 a 1 

: 

20 

20 

20 

20 

20 

20 

20 

20 

al 

0a49 

z 

44 

ae 

fO 

09 

eO 

fe 

fO 

bO 

6d 

Obf 1 

U 

4c 

fl 

09 

lf 

46 

49 

4c 

45 

c7 

08a9 

z 

20 

20 

20 

20 

20 

11 

11 

11 

d6 

0a51 

: 

4c 

95 

Oa 

4c 

dd 

Oa 

4c 

e6 

al 

Obf 9 

z 

4e 

41 

4d 

45 

4e 

20 

3a 

20 

f 3 

08b 1 

z 

lf 

20 

28 

43 

29 

20 

31 

39 

le 

0a59 

s 

Oa 

4c 

OB 

Ob 

4c 

24 

Ob 

20 

3f 

OcOl 

z 

le 

00 

a2 

00 

bd 

f 4 

Ob 

c9 

Ob 

08b 9 

: 

38 

36 

2f 

38 

37 

20 

42 

59 

Of 

0 a 61 

: 

46 

Ob 

20 

9b 

Of 

20 

46 

Ob 

c9 

0c09 

z 

00 

fO 

07 

20 

d2 

ff 

eB 

Ac 

bl 

08 c 1 

s 

20 

47 

2e 

42 

4c 

49 

43 

4b 

Ob 

0a69 

: 

4c 

fe 

09 

4c 

0 f 

Ob 

4c 

c6 

10 

Ocll 

z 

05 

Oc 

a2 

00 

20 

cf 

ff 

9d 

81 

08c9 

« 

4d 

41 

4e 

4e 

20 

26 

20 

32 

6d 

0a71 

z 

Ob 

4c 

59 

Oc 

4c 

32 

Od 

4c 

9d 

0cl9 

z 

b5 

Ob 

e0 

eO 

11 

fO 

04 

c9 

e6 

08dl 

: 

2 b 

42 

45 

4e 

49 

4e 

44 

45 

de 

0a79 

« 

fe 

Oe 

ad 

97 

Of 

c9 

00 

fO 

fo 

0c21 

z 

Od 

dO 

fi 

Be 

3c 

03 

a9 

01 

69 

08d9 

z 

20 

92 

00 

a9 

ff 

Bd 

00 

dd 

aO 

OaBl 

z 

03 

4c 

9B 

Of 

4c 

01 

Oa 

4c 

40 

0c29 

z 

a2 

08 

aO 

Of 

20 

ba 

ff 

a9 

04 

O0el 

x 

Bd 

fO 

09 

a9 

1B 

Bd 

16 

dO 

46 

0a89 

z 

3f 

Of 

4c 

77 

Of 

4c 

87 

Of 

el 

0c31 

3 

02 

a2 

42 

aO 

Oc 

20 

bd 

ff 

e2 

0Bo9 

z 

a9 

3b 

Bd 

1 1 

dO 

a9 

18 

Bd 

Bb 

0a91 

z 

20 

bB 

Oa 

60 

c9 

B5 

fO 

cl 

ac 

0c39 

z 

20 

cO 

ff 

a 9 

01 

20 

c3 

ff 

Ob 

OBf 1 

E 

18 

dO 

60 

a9 

fe 

Bd 

00 

dd 

d7 

0a99 

z 

c9 

86 

fO 

bd 

c9 

87 

fO 

b9 

a9 

0c4 1 

z 

60 

55 

3a 

20 

20 

20 

20 

20 

a2 

OST 9 

x 

Bd 

fO 

09 

a9 

1B 

Bd 

16 

dO 

5a 

Oaal 

z 

c9 

BB 

fO 

b5 

C9 

09 

fO 

b4 

b7 

0c49 

z 

20 

20 

20 

20 

20 

20 

20 

20 

49 

0901 

t 

a9 

3b 

Qd 

11 

dO 

a9 

10 

Bd 

83 

0aa9 

Z 

c9 

Ba 

fO 

bO 

c9 

8b 

fO 

ac 

20 

0c51 

z 

20 

20 

20 

24 

00 

00 

00 

00 

Oe 

0909 

: 

ID 

dO 

60 

00 

00 

00 

00 

a9 

45 

Oabl 

: 

c9 

0c 

fO 

aB 

4c 

01 

Oa 

20 

47 

0c59 

z 

20 

b8 

Oa 

20 

27 

Oc 

a 2 

OB 

c9 

0911 

s 

20 

8d 

lc 

09 

a9 

00 

Bd 

lb 

27 

0ab9 

z 

44 

e5 

a9 

00 

Bd 

20 

dO 

Bd 

92 

0c61 

z 

aO 

00 

Bc 

86 

02 
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SONDERHEFT 21 


23 


i-onllne.de 














ASSEMBLER-ANWENDUNG 


C64 


Magie im Bildsdiirmrahmen 


Lange Zeit glaubte man, der Bildschirmrahmen 
des C64 sei bis in alle Ewigkeit zur Nutzlosigkeit 
verdammt. Doch »Magic Border Beams« beweist 
das Gegenteil. Mit einer ausgefeiiten Interrupt- 
Technik werden faszinierende Effekte im Bild¬ 
schirmrahmen erzeugt. 

D as Programm-Paket mit dem Namen »Magic Border 
Beams« erlaubt den Entwurf von eindrucksvollen 
bewegten Rahmen-Mustern mit einem komfortablen 
Editor und deren Verwendung in Basic-Programmen 
(Bild 1). Da pro Rasterzeile eine Farbe erlaubt ist, kann man 
leicht fließend wirkende Farbübergänge und metallisch wir¬ 
kende Effekte erzeugen. Weil das Foto nur einen Schnapp- 



Bild 1. Das Programm »Magic Border Beams« in Aktion 


schuß eines einzigen Bildes darstellt, läßt sich der faszinie¬ 
rende Effekt leider nicht ganz vermitteln. 

Das Herzstück von »Magic Border Beams« (MBB) ist eine 
Rasterinterrupt-Routine, die es ermöglicht, absolut flim¬ 
merfreie »Trickfilme« im Bildschirmrahmen des C64 ober¬ 
und unterhalb des Bildschirmfensters einzublenden. Ein 
solcher MBB-Film besteht aus bis zu 256 Einzelbildern, die 
jeweils 24 Rasterzeilen hoch sind und die gesamte Bild¬ 
schirmbreite ausnutzen. Eine ausgefeilte IRQ-Technik 
erlaubt es, jeder der 24 Rasterzeilen eine eigene Farbe zu 
geben. Durch geeignete Veränderung der Farbkombinatio- 
nen eines jeden Bildes lassen sich verblüffende Anima¬ 
tionseffekte erzielen. 

Eigene Filme erzeugen 


Es versteht sich von selbst, daß MBB-Filme unabhängig 
von anderen Basic- und Maschinenprogrammen im Inter¬ 
rupt des Commodore 64, und somit in einer Art Pseudo- 
Multitasking ablaufen. Man muß hier jedoch einen 
Geschwindigkeitsverlust des Hauptprogramms von rund 
17 Prozent in Kauf nehmen. Des weiteren kann die system¬ 
interne Variable Tl$ nicht mehr verwendet werden. 

Beim Erstellen von MBB-Filmen hilft ein komfortabler 
Editor, der in Basic geschrieben ist (Listing 1). Nach dem 
Abtippen mit dem Checksummer sollten Sie diesen unter 
dem Namen »MBB-EDI.SCR« auf Diskette speichern. 

24 


Zeit- und arbeitsintensive Aufgaben übernehmen verschie¬ 
dene Assembler-Routinen, die in der Datei »MBB- 
EDI.ASS« enthalten sind. Das dazugehörige MSE-Listing 
finden Sie in Listing 2. 

Um eine komfortable Steuerung der MBB-Filme zu 
ermöglichen, bietet »Magic Border Beams« zusätzlich eine 
Basic-Erweiterung, die zusammen mit den wichtigen Rou¬ 
tinen zur Behandlung des Rasterzeilen-Interrupts in der 
Datei »MBB-IRQ.CDE« enthalten ist. Listing 3 zeigt das ent¬ 
sprechende MSE-Listing. Es wird mit einem kleinen Basic- 
Programm initialisiert und aktiviert (Listing 4). Für die Ein¬ 
gabe verwenden Sie auch hier bitte den Checksummer. 
Anschließend muß es unter dem Namen »MBB-IRQ.BOT« 
gespeichert werden. 

Rasterzeilen-Editor der Spitzenklasse 


Nach Eingabe aller Programmteile sollten sich folgende 
Dateien auf der Diskette befinden: 

1. MBB-EDI.SCR 

2. MBB-EDI.ASS 

3. MBB-IRQ.BOT 

4. MBB-IRQ.CDE 

Damit ist MBB vollständig und kann aktiviert werden. 
Der Editor wird nun mit 

LOAD "MBB-EDI.SCR'',8 

gelado- Startet man das Programm mit RUN, werden 
zunächst zwei Files nachgeladen (»MBB-EDI.ASS« und 
»MBB-IRQ.CDE«). Nach einem einführenden Titelbild 
gelangt man mit < RETURN > in den Editor. 

Hier wird jeweils ein Bild des MBB-Films in achtfacher 
Vergrößerung auf dem Bildschirm dargestellt. Die oberste 
Zelle des' Bildschirms steht für die Kommunikation mit dem 
Programm zur Verfügung. Am linken Bildschirmrand sieht 
man einen Pfeil (siehe Bild 2), der die gerade bearbeitete 
Zeile anzeigt. Er läßt sich mit den Tasten <CRSR auf¬ 
wärts/abwärts > bewegen. 

Bei der Anwahl einer Funktion erhalten Zahlen, die in der 
Kommunikationszeile einzugeben sind, einen voreinge¬ 
stellten Wert und können mit Hilfe der Tasten < + >, <-> 
in Einer-und mit <SHIFT + > und <SHIFT-> in Zehner¬ 
schritten erhöht beziehungsweise vermindert werden. Sie 
sind anschließend mit < RETURN > zu bestätigen. Han¬ 
delt es sich bei der Zahl um die Nummer eines Bildes, wird 
während der Einstellung immer das entsprechende Bild 
eingeblendet. 

Gleiches gilt auch, wenn ein Farbwert verlangt wird. Hier¬ 
bei wird die gewählte Farbe in einem kleinen Kästchen in 
der Kommunikationszeile dargestellt. Man erspart sich 
somit das umständliche Hantieren mit den Farbcodes. 

Verlangt der Computer eine Ja/Nein-Entscheidung, so 
antwortet man mit den Tasten <Y > oder < N >, und bestä¬ 
tigt anschließend mit < RETURN >. 

Bei fehlerhaften Eingaben kann man die Ausführung fast 
aller Befehle verhindern, indem man so lange 
< RETURN > drückt, bis man sich wieder im Ausgangs¬ 
modus befindet. 

Zur Bearbeitung eines Films stehen auf Tastendruck fol¬ 
gende Befehle oder Tasten zur Steuerung zur Verfügung: 

Cursor-Tasten (< CRSR aufwärts >, <CRSR abwärts >) 

Der Cursor wird um eine Zeile nach oben beziehungs- 
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C64 


weise unten bewegt und zeigt auf die zu bearbeitende 
Rasterzeile. 

Farb-Tasten (<CTRL 1-8 >, <CBM 1-8 >) 

Die Farbe der aktuellen Zeile wird entsprechend dem 
Farbcode der betätigten Tastenkombination verändert. 

<+> <->, <SHIFT +> <SHIFT -> 

Durch diese Tasten wählt man das nächste (< + >) oder 
vorhergehende Bild (<->) des Filmes an. In Verbindung 
mit <SHIFT> geschieht dies in Zehnerschritten. Mit 

< Fl > und < F3> springt man stets auf das Bild Nummer 
0, mit <F5> und <F7> auf Bild Nummer 128. 

<L> (Load) 

Dieser Befehl lädt einen Film von der Diskette. Hierzu 
wird in der Kommunikationszeile nach dem Namen des zu 
ladenden Films gefragt. Dabei wird die Kennung »MBB.« für 
Magic-Border-Filme vorgegeben. Drückt man sofort 

< RETURN >, wird der Befehl ignoriert. Ansonsten wird 
der entsprechende Film geladen und entpackt (mehr dazu 
unter »Save«). 

<S> (Save) 

Speichert den aktuellen Film auf Diskette. Zur Eingabe 
des Filenamens gilt das bei »L« (Load) Gesagte. Gibt man 
einen Namen ein, wird der Film gepackt und gespeichert. 
Durch das Packen wird die Länge des Films von 8 KByte auf 
4 KByte verkürzt. 

<P> (Parameter) 

Dieser Befehl legt die spezifischen Parameter des Films 
fest. 

In der Kommunikationszeile wird man zunächst nach der 
Ablaufgeschwindigkeit des Films gefragt. Diese liegt zwi¬ 
schen 0 (schnell) und 31 (langsam). Nun verlangt das Pro¬ 
gramm die Nummern des ersten und des letzten Bildes, die 
zum Film gehören (Näheres zu diesen beiden Zahlen siehe 
unter »IM« bei der Basic-Erweiterung). 

Komfortable Befehle 


Anschließend erhält man die Möglichkeit, eine bestimmte 
Farbe als »transparent« zu definieren. Dies bedeutet, daß 
an allen Stellen des Films, an denen diese »transparente« 
Farbe auftaucht, die Farbe des Bildschirmrahmens einge¬ 
blendet wird. Beantwortet man die Frage mit »Y«, so ist die 
transparent wirkende Farbe mit < + > oder <-> anzuge¬ 
ben. Diese Parameter werden beim Speichern zusätzlich 
auf Diskette abgelegt und beim Laden (auch von der Basic- 
Erweiterung aus) neu gesetzt. 

<C> (Change Color) 

Dieser Befehl dient dazu, eine bestimmte Farbe in einem 
bestimmten Abschnitt des Films durch eine andere zu 
ersetzen. Zunächst verlangt das Programm die Eingabe 
der alten und neuen Farbe (mit < + > und <->). Danach 
muß man die Nummern des ersten und letzten Bildes ein¬ 
geben, in denen die Farbe geändert werden soll. 

<T > (Transfer Pictures) 

Mit diesem Befehl kann man einen beliebigen Ausschnitt 
des Films an eine andere Stelle kopieren. Dazu benötigt 
das Programm die Nummern des ersten und letzten zu 
kopierenden Bildes, sowie die Bildnummer, ab der der 
kopierte Ausschnitt erscheinen soll. 

<F> (Transfer Picture from File) 

Dieser Befehl ist dem T-Befehl sehr ähnlich, erlaubt 
jedoch das Kopieren von Ausschnitten eines auf Diskette 
gespeicherten Films. Hierzu gibt man zunächst den 
Namen des Quellfiles ein, wobei wieder »MBB.« vorgege¬ 
ben wird. Drückt man nur <RETURN>, wird die Ausfüh¬ 


rung abgebrochen. Andernfalls verlangt der Computer die 
Nummern des ersten und letzten zu kopierenden Bildes 
des Quellfilms. Nach Eingabe der Nummer des Zielbildes 
wird der gewählte Ausschnitt des gespeicherten Films in 
den gerade bearbeiteten Film eingebunden. 

<l> (Invert Order) 

Dieser Befehl dient dazu, die Reihenfolge der Bilder in 
einem bestimmten Abschnitt des Films zu invertieren. 
Dadurch ist es möglich, Teile des Films (oder den ganzen 
Film) rückwärts ablaufen zu lassen. Hierfür ist die Eingabe 



Bild 2. Der Editor von »Magic Border Beams« bei der 
Bearbeitung einer Fiimsequenz. Jedes einzelne Bild kann 
verändert werden. 


der Nummern des ersten und letzten Bildes des zu invertie¬ 
renden Abschnitts nötig. 

<B> (Border) 

Die Rahmenfarbe des Bildschirms wird bei jedem Betäti¬ 
gen von <B> verändert. 

<U> (Up) 

Das aktuelle Bild wird um eine Zeile nach oben gescrollt. 

<D> (Down) 

Das aktuelle Bild wird um eine Zeile nach unten gescrollt. 
<SHIFT CLR/HOME> (Clear) 

Das aktuelle Bild wird gelöscht und mit der Rahmenfarbe 
gefüllt. 

< = > (Bild kopieren) 

Das vorhergehende Bild wird in das aktuelle kopiert. 
Diese Funktion ist sehr nützlich, wenn sich das aktuelle 
Bild aus animationstechnischen Gründen nur minimal vom 
vorhergehenden unterscheiden soll und nur kleine Verän¬ 
derungen vorgenommen werden. 

<M> (Zwischenspeichern) 

Mit diesem Befehl kann man einen beliebigen Ausschnitt 
des aktuellen Bildes Zwischenspeichern. Zunächst wählt 
man einen der acht zur Verfügung stehenden Speicher aus 
(an dieser Stelle kann man die Ausführung des Befehls 
durch < — > abbrechen). Anschließend bestimmt man mit 
dem Cursor die unterste Zeile des Abschnittes, die gespei¬ 
chert werden soll, und bestätigt mit < RETURN>. Nun 
kann man den Cursor oberhalb dieser Zeile bewegen, um 
die oberste Zeile des Ausschnittes festzulegen. Auch hier 
wird mit < RETURN > bestätigt. 

<R> (Recall) 

Mit diesem Befehl kann man einen mit dem M-Befehl zwi¬ 
schengespeicherten Bildausschnitt in das aktuelle Bild 
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einbinden, wobei die aktuelle Position des Cursors den 
unteren Rand der Einbindung festlegt. In der Kommunika¬ 
tionszeile muß man lediglich die Nummer deszu benutzen¬ 
den Speichers (siehe <M>) angeben. Auch hier führt die 
< — >-Taste zum Abbruch. 

<N> (New) 

Der komplette Film wird nach einer Sicherheitsabfrage 
gelöscht und mit der aktuellen Rahmenfarbe gefüllt. 

<G> (Go) 

Der Film wird entsprechend den mit <P> (Parameter) 
gesetzten Werten im Bildschirmrahmen gezeigt. In diesem 
Modus kann man mit <B> die Rahmenfarbe verändern. 
Mit < H > (Halt) gelangt man wieder in den Normalmodus. 


sucht wurde, auf Diskette oder Datasette zuzugreifen, was 
durch die Überschneidung von Interrupts zum Absturz des 
C64, oder zumindest zu störendem Flimmern führen 
würde. Dieser Fehler tritt ebenso auf, wenn versucht wird, 
einen Film mit »IG« zu starten, solange eine Datei geöffnet 
ist. Dies ist notwendig, da das Schreiben in eine Datei wäh¬ 
rend der Filmvorführung ebenfalls einen Absturz des Com¬ 
puters oder ein Flimmern des Bildes zur Folge hätte. 

Soll die MBB-Basic-Erweiterung von eigenen Program¬ 
men geladen werden, so muß der Programmkopf, wie folgt 
lauten: 

10 A=A + 1:IF A=1 THEN LOAD "MBB-IRQ.CDE",8,1 
20 SYS 49152: REM BASIC-ERWEITERUNG INITIALISIEREN 
30 SYS 50009: REM COPYRIGHT 


<Q> (Quit) 

Nach einer Sicherheitsabfrage wird der Editor durch 
einen Reset verlassen. 

Diese Befehle mögen teilweise recht komplex erschei¬ 
nen, sind jedoch sehr einfach und komfortabel zu bedie¬ 
nen, so daß man schon nach kurzer Zeit herrliche MBB- 
Filmsequenzen entwerfen kann. 

Wer seine so erstellten Werke in Basic-Programmen ver¬ 
wenden will, der kann die folgende MBB-Basic-Erweite- 
rung zu Hilfe nehmen. 

Bevor man die Basic-Erweiterung lädt, sollte man alle 
eventuellen Erweiterungen (zum Beispiel Formel 64) 
abschalten, da sich sonst Komplikationen ergeben könnten. 

Nach dem Starten des Ladeprogramms »MBB-IRQ.BOT« 
mit RUN wird zunächst das Maschinenprogramm »MBB- 
IRQ.CDE« nachgeladen. Es erscheint ein Titelbild. Mit 
< RETURN > gelangt man ins eigentliche Programm. Von 
nun an stehen folgende neue Befehle sowohl im Direkt-, als 
auch im Programm-Modus zur Verfügung: 

!L,"MBB.Film" (Load) 

Dieser Befehl lädt einen mit dem Editor erstellten Film mit 
dem Namen »Film«, entpackt ihn und setzt die im Editor 
definierten Filmparameter (Geschwindigkeit, erstes/letztes 
Bild, »transparente« Farbe). Bis auf die transparente Farbe 
können alle Parameter durch die Befehle »!S« (Speed) und 
»IM« (Movie) geändert werden. 

!S,x (Speed) 

legt die Geschwindigkeit fest, mit der der Film gezeigt 
wird. Der Parameter »x« liegt zwischen 0 und 32, wobei 0 
»Zeitraffer« und 32 »Standbild« bedeutet. 

!M,x,y (Movie) 

definiert eine Filmsequenz, wobei »x« das erste und »y« 
das letzte zu zeigende Bild ist. x und y liegen zwischen 0 
und 255. Sollte x größer als y sein, so werden die Bilder x 
bis 255 und anschließend 0 bis y gezeigt. 

IG (Go) 

Dieser Befehl startet die Vorführung des Films. 

!H (Halt) 

stoppt die Vorführung des Films. 

!C,x[,y] (Color) 

Dieser Befehl legt die Bildschirmfarben des C64 fest, »x« 
und »y« liegen zwischen 0 und 15, wobei x die Rahmenfarbe 
und y die Hintergrundfarbe angibt. Die Eingabe von »y« ist 
nicht unbedingt notwendig. Ein Ändern der Rahmenfarbe 
durch POKE 53280, x ist nicht möglich. 

IO (OFF) 

Dieser Befehl schaltet die Basic-Erweiterung ab. Mit SYS 
49152 kann man sie wieder aktivieren. 

Neben den neuen Befehlen wurde auch eine neue Fehler¬ 
meldung eingebaut. Sie lautet »?IRQ CONFLICT ERROR« 
und bedeutet, daß während der Vorführung eines Films ver¬ 


Magic Border Beams 
für Assembler-Freaks 


Selbstverständlich können die Routinen von MBB auch in 
Maschinensprache genutzt werden. Für die Assembler- 
Spezialisten hier noch die Programm-Sequenzen, die nötig 
sind, um die MBB-Befehle von »MBB-IRQ.CDE« in eigenen 
Maschinenprogrammen anzusteuern. 

Für den »!L«-Befehl gilt folgender Aufruf: 

LDA #$ x ; x = Länge des Filenamens 
LDX #$ y ; y = LSB der Adresse des Filenamens 
LDY z j z = MSB der Adresse des Filenamens 

JSR $ffbd ; Fileparameter setzen 
JSR $c27e ; Film laden, entpacken und Parameter 
setzen 


onun^*" 



\wmm i.Wmto 
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Beim »!S«-Befehl: 

LDX #$ ?; Filmgeschwindigkeit zwischen $00 und $20 
JSR $clc7; Geschwindigkeit setzen 

»!M«-Befehl: 

LDA #$ x ; x = erstes zu zeigendes Bild 
STA $fd ; Zwischenspeichern 
LDX #$ y ; y= letztes zu zeigendes Bild 
JSR $clafj Filmparameter setzen 

»IG«-Befehl: 

JSR $c003; Film starten 

»!H«-Befehl: 

JSR $cld4; Film stoppen 

»!C«-Befehl: 

LDX #$ r; r = Code der Rahmenfarbe zwischen $00 
und $0f 

LDY #$ b; b = Code der Bildschirmfarbe zwischen 
$00 und $0f 

STX $d020; 

STX $c400; 

STX $c440; 

STY $d021; In Register schreiben 

Bei der Anwendung von MBB in Maschinensprache ist 
ebenfalls zu beachten, daß Operationen mit einem Disket¬ 


tenlaufwerk oder der Datasette während der Filmvorfüh¬ 
rung zu einem Flimmern des Monitors oder einem Absturz 
des C64 führen können. 

Abschließend die Speicherbereiche, die von »Magic Bor- 
der Beams« belegt werden: 

$00FB-$00FF - MBB-Variablen 
$0340-$0344 - MBB-Parameter 
$A000-$bFFF - MBB-Film 
$C000-$C45F- MBB-Routinen 

Nun stehen der Arbeit mit »Magic Border Beams« keine 
Hindernisse mehr im Weg. Zur Einstimmung können Sie 
unseren Demo-Film in Listing 5 mit dem MSE eingeben. Er 
läßt sich mit dem Editor weiterbearbeiten und kann auch 
mit der Basic-Erweiterung in eigenen Programmen ver¬ 
wendet werden. 

Aus Platzgründen kann hier nur ein Demonstrationsfilm 
abgedruckt werden. 

Auf der Programmservice-Diskette, die zu diesem Son¬ 
derheft erhältlich ist, finden Sie jedoch fünf weitere Bei¬ 
spiele für eine phantasievolle Rahmen-Gestaltung. 

Lassen Sie sich von ihrer Wirkung inspirieren, um bald 
mit eigenen Kreationen den Rahmen Ihres Bildschirms zu 
beleben. 

(Matthias Fichtner/Michael Thomas) 


1000 

REM »*#*########*#**#****#*##*»*** 

<036> 

1300 

PRINT"I12SPACE,GREY 3>S 0 F T W A R E 


1010 

REM * * 

<041 > 


I5D0WN>" 

<06B> 

1020 

REM * MAGIC BORDER BEAMS * 

< 113> 

1310 

POKE 53265,27 

<059> 

1030 

REM * * 

<063> 

1320 

N*="MBB-EDI.ASS"s A=30720s GOSUB 2970 

< 106> 

1040 

REM * EDITOR DE LUXE VERSION #5 * 

<064> 

1330 

N*="MBB-IRQ.CDE"s A=49152s GOSUB 2970 

<19B> 

1050 

REM * * 

<003> 

1340 

C<0) =0s C<l)=llsC(2)=12sC(3)=15sC(4)=l 

<1U> 

1060 

REM * BY MATTHIAS FICHTNER * 

<213> 

1350 

r.: AD A*s IF A*="*"THEN RESTOREsGOTO 13 


1070 

REM * * 

<103> 


50 

<15B> 

1080 

REM *###****#***##•*#***#****#**#*# 

<110> 

1360 

FÜR T=0 TO 4 

<118> 

1090 

POKE 55,0sPOKE 56,120sCLRsPOKE 650,25 


1370 

POKE 646,C<T)SPRINT"IUP>"A* 

<072> 


5sDIM M<7,24)sMM=32769sPOKE 700,52 

< 166> 

1300 

FOR 1=1 TO 305NEXT I,TsT=0 

<223> 

1100 

F (0) =0s F < 1) =08 F (2) =12Bs F (3) =128s SP=0: 


1390 

GET B*sIF B*=CHR*(13>THEN 1540 

<007> 


FP=0s LP=0s TP=255s ME=0 

<200> 

1400 

T=T+lsIF T<600 THEN 1390 

<012> 

1110 

IF PEEK< 709 >0234 THEN SYS 49620 

< 158> 

1410 

FOR T=4 TO 0 STEP-1 

<234> 

1120 

REM ####»#******#****##******##*## 

<158> 

1420 

POKE 646,C(T)SPRINT"IUP}"A* 

< 122> 

1130 

REM # INTRO * 

<063> 

1430 

FOR 1=1 TO 30sNEXT I,T 

<071 > 

1140 

REM #####**##»#»#**»####**#**#*#*# 

<17B> 

1440 

GOTO 1350 

<062> 

1150 

PRINT"CCLR,GRAPHIC,CTRL—H>"5 POKE 5328 


1450 

DATA“I7SPACE>MAGIC BORDER BEAMS EDITO 



0,15sPOKE 53265,11sPOKE 53281,0 

<250> 


R“ 

<22B> 

1160 

PRINT"{HOME,2D0WN,19SPACE,RED >X" 

<190> 

1460 

DATA"110SPACE>DE LUXE VERSION #05" 

< 146> 

1170 

PRINT" <lRSPAnE> V.V.U" 

<030> 

1470 

DATA"I3SPACEJWRITTEN 1987 BY MATTHIAS 


1100 

PR I NT " 117SPACE JXXIL IG. RED>XIRED>XX" 

< 167 > 


FICHTNER" 

<027> 

1190 

PRINT" <16SPACE JXXILIG. RED JXXXIRED)XX" 

<214> 

1480 

DATA"I7SPACEJ <C) 1987 BY TRAX SOFTWAR 


1200 

PRINT"I15SPACEJXXILIG.REDJXXIGREY 3>X 



E" 

<069> 


ILIG. RED>XXIRED)XX" 

< 117> 

1490 

DATA"I10SPACEJHIT RETURN TO ENTER" 

<092> 

1210 

PRINT"U4SPACE,BLUE > XISPACE,RED JXXIL I 


1500 

DATA"#" 

<235> 


G.RED > XXX <RED JXXISPACE,GREY 1>X" 

<102> 

1510 

REM *##*##*###**#####**##»***»**** 

<03B> 

1220 

PRINT"113SPACE,BLUE JXXXISPACE,RED JXXI 


1520 

REM # INIT SCREEN * 

<0B5> 


LIG.RED>X<RED>XX<SPACE,GREY 1JXXX" 

< 141 > 

1530 

REM ######*##*####*##*#**###*#**## 

<05B> 

1230 

PRINT"tl2SPACE,BLUE JXXILIG.BLUE JXIBLU 


1540 

POKE 53265,llsPOKE 7B0,15sSYS 30723 

<032> 


E >XXISPACE,RED JXXXISPACE,GREY 1JXXIGR 


1550 

PRINT"ICLR}"sFOR Y=0 TO 23sPRINT"ISPA 



EY 2)X<6REY 1 >XX" 

<254> 




1240 

PRINT"<1ISPACE,BLUE JXXILIG.BLUE>XXX<B 



öüöböööööb"; 

< 196> 


LUE >XX{BPACE,RED JXISPACE,GREY 1J XXIGR 


1560 

POKE 1064+Y*40+39,228sIF Y<23 THEN PR 



EY 2JXXXIGREY 1>XX" 

<232> 


INT 

< 196> 

1250 

PRINT"{10SPACE,BLUE >XX{LIG.BLUE JXXIGR 


1570 

NEXT Y 

<002> 


EY 3JXILIG. BLUEJXXIBLUE>XX<SPACE,GREY 


1580 

P=0sL=0 

<244> 


1JXXIGREY 2JXXIGREY 3JXIGREY 2>XX<BR 


1590 

REM #*#*#***##*####*#**#*#######*# 

< 120> 


EY 1>XX" 

<212> 

1600 

REM # MAIN # 

< 122> 

1260 

PRINT"11ISPACE,BLUEJXXILIG.BLUEJXXXIB 


1610 

REM **#***##****#*#*###***###****# 

< 140> 


LUEJ XXI3SPACE,GREY 1JXXIGREY 2JXXXIGR 


1620 

PRINT"{HOME,RVOFF,SPACE,GREY 1IAIGREY 



EY 1>XX" 

<094> 


2>iIGREY 3)X MAGIC BORDER BEAMS ZIGR 


1270 

PRINT " 112SPACE,BLUE JXXILIG.BLUE JXIBLU 



EY 2)iIGREY 1>£{4SPACE,GREY 3>PICs "R 



E JXXI5SPACE,BREY 1JXXIGREY 2JXIGREY 1 



IGHT*<"I2SPACE>"+STR*(P),3) 

< 1B3> 


JXX" 

<243> 




1280 

PRINT" { 13SPACE,BLUE JXXXI7SPACE,GREY 1 





1290 

>XXX” 

PRINT" C 14SPACE,BLUE > XISPACE,GREY 3>T 

<227> 

Listing 1. Der komfortable Editor von MBB: »MBB 

- 


R A XISPACE,GREY 1>XID0WN>" 

<110> 

EDI.SCR«. Bitte mit dem Checksummer eingeben. 
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1630 N=253s BOSUB 2700s SYS 30720 

<233> 

1 (N*,LEN(N*>-1>sBOTO 2250 

< 147> 

1640 POKE 211,0:POKE 214,24-LsSYS 50732 

<248> 

2240 IF A*OCHR*(13)THEN PRINT A*" {RVSONJR 

1650 PRINT":POKE 53265,27 

<201 > 

{RVOFF,LEFT > ";:N*=N*+A* 

<252> 

1660 BOSUB 2020 

<036> 

2250 NEXT 

<228> 

1670 N=(P-(A*="+")+(A*="-">-(A*-"±")*10+(fl 

2260 PRINT CHR*(34)jsPOKE 212,0 

<043> 

*»" = ">*10)AND 255 

<0S9> 

2270 RETURN 

<040> 

1600 IF NOP THEN P=NsBOTO 1620 

<231 > 

22B0 REM ****************************** 

<046> 

1690 IF M=" {DQWNVAND L>0 THEN PRINT“ {LEF 


2290 REM * GUIT * 

<246> 

T,SPACE,DOWN,LEFT>>";:L=L-1sBOTO 1660 
1700 IF A*“" {UP} 11 AND L<23 THEN PRINT" {LEFT 

<232> 

2300 REM ****************************** 
2310 BOSUB 2930SPRINT"{HOME,SPACEJARE YOU 

<066> 

,SPACE,UP,LEFT>>"j sL=L+l:BOTO 1660 

<235> 

SURE ? "j 

<064> 

1710 IF A*="U"THEN N=251cBOSUB 2700s SYS 30 


2320 N*="N":BOSUB 3990:IF N*="N"THEN 1620 

<217> 

732:BOTO 1620 

<013> 

2330 POKE 24576,0sSYS 64738 

<219> 

1720 IF A*="D"THEN N=251:BOSUB 27B0SBYS 30 



< 100 > 

735sBOTO 1620 

< 167> 

2350 REM * CHANBE COLOR * 

<049> 

1730 IF A*= ,, »"AND P>0 THEN 3600 

< 137> 

2360 REM ****************************** 

<12B> 

1740 T m l 

1750 IF A*-MID*("{BLACK,WHITE,RED,CYAN,PUR 

<209> 

2370 BOSUB 2930sPRINT"{HOME,SPACEJCHANBE < 
> <2LEFT >"5 s N=PEEK(MM+P*32+L > s BOSUB 3 


PLE,BREEN,BLUE,YELLOW,ORANBE,BROWN,LI 
B.RED,BREY 1,BREY 2,LIß.BREEN,LIB.BLU 


910:C1“N 

2300 PRINT"{2RIBHT,SPACE>INTO < >{2LEFT>"j 

< 173> 

E, 6 REY 3>",T,1)THEN POKE MM+P*32+L,T- 


sBOSUB 3910:C2=N 

<072> 

1:BOTO 1630 

<091 > 

2390 PRINT"{2RIBHT,5SPACE>IN PIC "jsN=P:BO 


1760 T-T+lsIF T<17 THEN 1750 

<066> 

SUB 2490sS1"N 

<193> 

1770 IF A*="B"THEN POKE 53200,(PEEK(53200) 


2400 PRINT"{3RIBHT>—"; 

<210> 

+ 1)AND 15s BOTO 1660 

<252> 

2410 N-BlsGOBUB 2490:IF N<S1 THEN 2410 

<209> 

1700 IF A*="(CLR>"THEN FOR T=0 TO 23sPOKE 


2420 S2=NsP0KE 780,CIsPOKE 2,C2:I=P 

<244 > 

MM+P*32+T,PEEK(53200)AND 15:NEXTs BOTO 


2430 N=251sP=SlsBOSUB 2780 

<046> 

1630 

<229> 

2440 N=253sP=S2+lsBOSUB 2700 

<210> 

1790 IF A*~"M"THEN 3240 

<031 > 

2450 SYS 30726: P“ I: BOTO 1620 

<002> 

1000 IF A*="R"THEN 3400 

<254> 

2460 REM ••**••••***•*•••*»*»••*•****** 

<228> 

1010 IF A*="L"THEN 1990 

<053> 

2470 REM * BET NUMBER OF PIC * 

<255> 

1020 IF A*="B"THEN 2070 

<094> 

2480 REM ****************************** 

<24B> 

1030 IF A*="Q"THEN 2310 

<031 > 

2490 PX=PEEK(211)sPY=PEEK(214) 

<061 > 

1040 IF A*="C"THEN 2370 

< 130> 

2500 POKE 211,PXsPOKE 2l4,PYsSYS 58732sPRI 


1050 IF A*="T"THEN 2620 

<221 > 

NT RIBHT*("{2SPACE>“+STR*(N),3); 

<044> 

1060 IF A*="N"THEN 2060 

<052> 

2510 POKE 254,(MM+N*32)/256sPOKE 253,(MM+N 


1070 IF A*="0"THEN 3130 

<0B6> 

*32)-PEEK(254)*256 s SYS 30720 

< 195> 

1000 IF A*="I"THEN 3610 

<105> 

2520 BOSUB 2820 

< 134> 

1090 IF A*="P"THEN 3720 

<015> 

2530 X=(N-(A*="+") + (A*="-")-(A$="±"> *10+(A 


1900 IF A*="F"THEN 4040 

<000> 

*='■="> *10) AND 255 

< 162> 

1910 T=1 

< 125> 

2540 FOR T=1 TO 4sIF A*=MID*("{Fl,F3,F5,F7 


1920 IF A*=MID*("{F2,F4,F6,FB}",T,1)THEN F 


?",T,1)THEN X=F(T-1) 

<209> 

(T-1)=P 

<177> 

2550 i«-XT 

<01B> 

1930 IF A*=MID*("{Fl,F3,F5,F7>",T,1)THEN P 


2560 IF XON THEN N=XsBOTO 2500 

<051 > 

—F(T—1> sBOTO 1620 

< 166> 

2570 IF A*OCHR*(13)THEN 2520 

<0B2> 

1940 T=T +1sIF T<5 THEN 1920 

<10B> 

2580 POKE 211,PXsPOKE 214,PYsSYS 58732sRET 


1950 BOTO 1660 

< 144> 

URN 

<159> 

1960 REM ****************************** 

<236> 

2590 REM ****************************** 

< 104> 

1970 REM * LOAD PIC * 

< 174> 

2600 REM * TRANSFER PICS * 

<040> 

1900 REM ****************************** 

<000> 

2610 REM *****#**#*#***#*##*##*##***#** 

< 124> 

1990 BOSUB 2930sPRINT"{HOME,SPACEJLOADs "; 

<042> 

2620 BOSUB 2930sPRINT"{HOME,SPACEJSDURCEs 


2000 BOSUB 2100:IF LEN(N *>=6 THEN 1620 

< 175> 

"I 

<233> 

2010 A=MM-1: BOSUB 2970s BOSUB 3050s IF NO0 


2630 N=PsBOSUB 2490sS1=N 

<0B5> 

THEN 1620 

2020 TP=PEEK(36B64)s FP-PEEK(36065 > s LP=PEEK 

< 137> 

2640 PRINT"{3RIBHT>-"J 

2650 N=S1:BOSUB 2490sS2-N:IF S2<S1 THEN 26 

< 196> 

(36066)s SP=PEEK(36867)s SYS 30747 

<090> 

50 

<250> 

2030 BOTO 1620 

<096> 

2660 PRINT"{3RIGHT,7SPACEJDESTINATION: "} 

< 174> 

2040 REM ****************************** 

<060> 

2670 N“=S 1 :BOSUB 2490sD=N:I=P 

<020> 

2050 REM * SAVE PIC * 

< 117> 

2680 AW“0:EW“S2—BlsSW=1sIF D>B1 AND D<=S2 


2060 REM ****************************** 

<002> 

THEN AW=EWsEW"0:SW=-l 

<222> 

2070 BOSUB 2930sPRINT"{HOME,SPACE>SAVEs "5 

<102> 

2690 FOR T-AW TO EW STEP SW 

<096> 

2000 BOSUB 2100:IF LEN(N *)=6 THEN 1620 

<235> 

2700 IF(T+D)>255 THEN 2740 

< 183> 

2090 FOR T=1 TO LEN(N*)sPOKE 51711+T,ASC(M 


2710 N=251sP-T+SlsBOSUB 2700 

< 181 > 

ID*(N*,T,1> >sNEXT 

< 111 > 

2720 N“253sP“T+DsBOSUB 2700 

<253> 

2100 POKE 781,0sPOKE 7B2,0:SYS 65466 

< 170> 

2730 SYS 30729 

<226> 

2110 POKE 700,LEN(N*)sPOKE 781,0sPOKE 782, 


2740 NEXTsP=IsBOTO 1620 

<196> 

202s SYS 65469 

< 151 > 


<00B> 

2120 SYS 30744sPOKE 36864,TPsPOKE 36065,FP 


2760 REM * POKE PIC-ADR TO N/N+l * 

<250> 

sPOKE 36866,LPsPOKE 36067,SP 

2130 POKE 251,0sPOKE 252,128sPOKE 700,251: 

<083> 

2770 REM ****************************** 
2700 POKE N+l,(MM+P*32>/256sPOKE N,(MM+P*3 

<02B> 

POKE 781,4sPOKE 782,144sSYS 65496 

< 230 > 

2)-PEEK(N+l)*256:RETURN 

< 159> 

2140 SYS 30747:BOSUB 3050sBOTO 1620 

<067> 

2790 REM *##*#*#*#*#*###*#**#*#***##**# 

<048> 

2150 REM ****************************** 

< 172> 

2800 REM * GETKEY A* * 

<040> 

2160 REM * BET PIC-NAME * 

<12B> 

2810 REM ****************************** 

<068> 

2170 REM ****************************** 

< 192> 

2820 BET A*s ON-(A*="")GOTO 2020s RETURN 

<014> 

2180 N*="@:MBB."SPRINT CHR*(34)"MBB."j:PQK 



<090> 

E 212,0sPRINT"{RVSON}@{RVOFF,LEFT>";s 


2040 REM * INIT FOR NEW MOVIE * 

< 1B7> 

FOR T=1 TO 12 

<101> 


<U0> 

2190 BOSUB 2820 

<050> 

2060 BOSUB 2930sPRINT"{HDME,SPACE>ARE YOU 


2200 IF(A*<" "OR A*>"«-"OR A*=CHR*(34) ) AND 


SURE ? "1 

<106> 

A*OCHR*(13)AND A*<>CHR*(20)THEN 2190 

<069> 

2B70 N*="N":BOSUB 3990sIF N*="N"THEN 1620 

<003> 

2210 IF A*=CHR*(13)THEN T=13 

< 127> 

2BB0 POKE 780,PEEK(53200)AND 15sSYS 30723s 


2220 IF A*=CHR*(20)AND T<2 THEN 2190 

<0B7> 

FOR T=0 TO 7 s M(T,24)“0 s NEXT 

< 162> 

2230 IF A*=CHR*(20)THEN PRINT"{SPACE,2LEFT 


2090 TP=255sFP=0sLP=0sSP‘=0sBOTO 1500 

<071> 

, RVSONJfHRVOFF, LEFT > "; s T=T—2 s N*=LEFT* 


2900 REM ****************************** 

< 160> 


30 
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2910 REM * CLEAR CURBOR/HEADLINE * <254> 
2920 REM ****************************** <1B0> 
2930 PRINT“{LEFT,SPACE,HOME,39SPACE>"j:RET 

URN <1B2> 
2940 REM ****************************** <200> 
2950 REM * LOAD N* TO fl * <004> 
2960 REM ****************************** <220> 
2970 FOR T=1 TO LEN(N*):POKE 5171l+T.ASC<M 

ID*(N*,T,1)):NEXT <229> 
29B0 POKE 7B1,8iPOKE 782,0!SYB 65466 <032> 
2990 POKE 780,LEN(N*>:POKE 7B1,0!POKE 7B2, 

202iSYS 65469 <013> 
3000 POKE 7B0,0:POKE 7B2.A/256!POKE 781,A- 

PEEK(7B2)*256:SYS 65493 <041> 
3010 RETURN <018> 
3020 REM ****************************** <024> 
3030 REM * CHECK DISK STATUS * <171> 
3040 REM ****************************** <044> 
3050 OPEN 1,8,15iINPUT#1,NiCLOSE 1 <081> 
3060 IF N=0 THEN RETURN <011> 
3070 PRINT"{HOME,39SPACE>"j <206> 
3080 PRINT"(HOME,SPACEJI/O-ERROR..."j <051> 
3090 SOBUB 2B20!RETURN <113> 
3100 REM ****************************** <106> 
3110 REM * SHOW THE MOVIE * <200> 
3120 REM ****************************** <126> 
3130 PRINT"{LEFT,SPACE>";:POKE 832,SP:POKE 

833,1 <230> 
3140 POKE 834,FPiPOKE 252,(FP-1)AND 255 <204> 
3150 POKE B35,LP:CC=PEEK(53280)AND 15:POKE 

50176,CC!POKE 50240,CC <123> 
3160 POKE 836,TP <013> 
3170 SYS 30738!SYS 49155 <116> 
31B0 GOSUB 2B20iIF A*="B"THEN CC=(CC+1)AND 

15iP0KE 50176,CC:POKE 50240,CC <153> 
3190 IF A*<>"H"THEN 3180 <228> 
3200 SYS 49620: GOTO 1620 <155> 
3210 REM ****************************** <216> 
3220 REM * MEMORIZE * <202> 
3230 REM ****************************** <236> 
3240 PX=PEEK(211):PY=PEEK(214) <049> 
3250 GOSUB 2930:PRINT"{HOME,SPACEJMEMORY: " 

5 <109> 
3260 PRINT ME"<:3LEFT>"5 <062> 
3270 GOSUB 2820 <122> 
3280 ME=(ME-(A*="+")+(A*="-">)AND 7 <1B9> 
3290 IF A$="*-"THEN 1620 <008> 
3300 IF A*OCHR$(13)THEN 3260 <145> 
3310 POKE 211,PX:POKE 214,PYiSYS 5B732:PRI 

NT"{LEFT > >" 51 B=L <241> 
3320 GOSUB 2820 <172> 
3330 IF A<="{DOWN>"AND B>0 THEN PRINT"{LEF 

T,SPACE,DOWN,LEFT>>"5:B=B-1 <076> 
3340 IF A*="{UP>"AND B<23 THEN PRINT"<LEFT 

,SPACE,UP,LEFT>>"j:B=B+1 <100> 
3350 IF A*OCHR*(13)THEN 3320 <003> 
3360 T=B <145> 
3370 GOSUB 2820 <224> 
3380 IF A*="{DOWN>"AND T>B THEN PRINT"(LEF 

T,SPACE,DOWN >"j:T=T—1 <076> 
3390 IF A*=" {UP>"AND T<23 THEN PRINT" {UP,L 

EFT>>"jiT“T+1 <159> 
3400 IF A*< >CHR*(13)THEN 3370 <1B3> 
3410 FOR 1=0 TO T-B:M(ME,I)“PEEK(MM+32*P+I 

+B):NEXT <177> 
3420 M(ME,24)-T-B+11 PRINT"<LEFT,SPACE >"| < 044 > 
3430 IF T>B THEN PRINT"CDOWN,LEFT,SPACE>"» 

iT-T-llGOTO 3430 <175> 
3440 GOTO 1620 <23B> 
3450 REM ****************************** <202> 
3460 REM * RECALL * <246> 


3480 GOSUB 29301 PRINT"tHOME.SPACEJMEMORYl" 

J <0B5> 
3490 PRINT ME"{3LEFT>"J <038> 
3500 GOSUB 2820 <09B> 
3510 ME“(ME-(A*="+")+(A*="-">)AND 7 <165> 
3520 IF A*="*-"THEN 1620 <240> 
3530 IF A*< >CHR*(13)THEN 3490 <123> 
3540 IF M(ME,24)=0 THEN 3570 <223> 
3550 FOR T=0 TO M(ME,24)-1:IF L+T<24 THEN 

POKE MM+P*32+L+T,M(ME,T) <022> 
3560 NEXT <012> 
3570 GOTO 1620 <112> 
3580 REM ****************************** <076> 


3590 REM * INVERT ORDER * 

3600 REM ****************************** 
3610 GOSUB 2930:PRINT"<HOME,SPACE»INVERT O 
RDER OF PIC 

3620 N=P:GOSUB 2490:P1=N:PRINT"<3RIBHT>-"j 
3630 N=PlsGOSUB 2490!IF N<P1 THEN 3630 
3640 P2=NiI=PiFOR T=0 TO INT((P2-P1>/2) 
3650 N=251:P=P1+T:GOSUB 2780 
3660 N=253:P=P2-T:GOSUB 2780 
3670 SYS 30741 :NEXTiP=IiGOTO 1620 
3680 REM ****************************** 
3690 REM * COPY PREVIOUS PIC * 

3700 REM ****************************** 
3710 N=251:P=P-1:GOSUB 2780:N=253«P=P+1:GO 
SUB 2780:SYS 30729:GOTO 1620 
3720 REM ****************************** 
3730 REM * BET PARAMETERS * 

3740 REM ****************************** 
3750 GOSUB 2930:PRINT"{HOME,SPACEJSPEED: " 
J 

3760 PRINT RIGHT*(STR*(SP),2)"{2LEFT}"; 
3770 GOSUB 2820 

37B0 SP=(BP-(A#="+"> + (A#“"-"))AND 31 
3790 IF A*< >CHR*(13)THEN 3760 
3800 PRINT"<H0ME,8PACEJM0VIE: "j 
3810 N=FP:GOSUB 2490:FP-N 

3820 PRINT"{3RIGHTJ—";:N=(LP—1)AND 255:BOS 
UB 2490:LP=(N+1)AND 255 
3830 PRINT"{HOME,SPACEJTRANSPARENT COLOR ? 
”5 

3840 N*="Y":IF TP=255 THEN N*="N"iTP=PEEK( 
MM+P*32+L> 

3850 GOSUB 3990 

3860 IF N*="N"THEN TP=255:G0T0 1620 
3B70 PRINT"<3LEFT>: < >C2LEFT>";:N=TP:GOSU 
B 3910!TP=N:GOTO 1620 
38B0 REM ****************************** 
3890 REM * BET COLOR * 

3900 REM ****************************** 
3910 POKE 646,Ni PRINT"CRVSONJBtRVOFF,LEFT, 
GREY 3}"j 
3920 '■ SUB 2820 

3930 N=(N-(A*="+")+(A*="—">)AND 15 
3940 IF A*OCHR*(13)THEN 3910 
3950 RETURN 

3960 REM ****************************** 
3970 REM * GET Y OR N * 

3980 REM ****************************** 
3990 PRINT N*"<LEFT>"5 
4000 GOSUB 2820 

4010 IF A*="Y"OR A*="N"THEN N*=A* 

4020 IF A*OCHR*(13)THEN 3990 
4030 RETURN 

4040 REM ****************************** 
4050 REM * TRANSFER PICS FROM FILE * 
4060 REM ****************************** 
4070 GOSUB 2930:PRINT"<HOME,SPACE»TRANSFER 
FROM FILE: "j 

4080 GOSUB 2180:IF LEN(N*>=6 THEN 1620 
4090 A=40960:GOSUB 2970: GOSUB 3050: IF NO0 
THEN 1620 

4100 SYS 49893:MM=40961 

4110 GOSUB 2930:PRINT“{HOME,SPACE>SOURCE: 

"I 

4120 N=0:GOSUB 2490:S1=N 
4130 PRINT"C3RIGHT>-"; 

4140 N=S1:GOSUB 2490:B2=N:IF B2<S1 THEN 41 
40 

4150 MM=32769:PRINT"C3RIBHT,7SPACE JDESTINA 
TION: "; 

4160 N=P:GOSUB 2490:D=N:I=P 
4170 AW=0:EW=82-81:SW=1:IF D>81 AND D<=S2 
THEN AW=EW:EW=0:SW=—1 
4180 FOR T=AW TO EW STEP SW 
4190 IF(T+D)>255 THEN 4230 
4200 MM=40961:N=251:P=T+B1:GOSUB 27B0 
4210 MM=32769:N=253:P=T+D:GOSUB 2780 
4220 SYS 30729 
4230 NEXT:P=I:GOTO 1620 


Listing 1. (Schluß) 


< 163> 
<09B> 

<094> 

<243> 

< 212 > 

< 139> 

< 102 > 
<00B> 
<072> 

< 17B> 

< 104> 

< 19B> 

< 175> 
<21B> 
<233> 
<23B> 

<24B> 
<211 > 

< 114> 
<018> 
<192> 

< 194> 

< 179> 

<00B> 

<254> 

<236> 

< 1B9> 

< 160> 

<07B> 

< 124> 
<009> 

< 144> 

< 155> 
< 010 > 
<047> 
<0B6> 

< 19B> 
<204> 

< 137> 

< 224 > 

< 197> 
<090> 

< 136> 

< 170> 
<022> 
<028> 

< 175> 
<048> 

<096> 

<223> 

< 176> 
<065> 

< 199> 
<049> 

< 162> 

< 192> 

< 177> 

< 102 > 

< 1BB> 
<062> 
<019> 
<02B> 
<015> 

< 192> 

< 162> 
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C64 


Name i mbb-edi.aas 7000 794d 


7BOO 

0 

4c 

le 

7B 

4c 

4b 

7B 

4c 

66 

aa 

7B0B 

3 

7B 

4c 

85 

7B 

4c 

97 

78 

4c 

13 

7B10 

3 

a9 

78 

4c 

bd 

7B 

4c 

df 

78 

la 

7B1B 

8 

4c 

Bf 

78 

4c 

lf 

79 

a9 

36 

d4 

7B20 

8 

B5 

01 

a9 

13 

20 

d2 

ff 

aO 

cc 

7B20 

8 

17 

a9 

11 

20 

d2 

ff 

aS 

dl 

c4 

7B30 

g 

B5 

fb 

a5 

d2 

18 

69 

d4 

BS 

a 2 

7B3B 

8 

fc 

bl 

fd 

04 

02 

aO 

27 

91 

02 

7840 

| 

fb 

BB 

dO 

fb 

a4 

02 

88 

10 

cf 

7B4B 

8 

eO 

a9 

37 

05 

01 

60 

a2 

00 

19 

7850 

1 

aO 

BO 

86 

fb 

84 

fc 

aO 

00 

04 

7B5B 

| 

91 

fb 

cB 

dO 

fb 

e6 

fc 

a h 

6b 

7860 

8 

fc 

eO 

aO 

90 

f 3 

60 

aO 

00 

cb 

7B6B 

g 

dl 

fb 

dO 

06 

48 

a5 

02 

91 

09 

7B70 

8 

fb 

68 

e6 

fb 

dO 

02 

e6 

fc 

8b 


7B7B 

| 

a6 

fc 

e4 

fe 

90 

ea 

a6 

fb 

aB 

78B0 

8 

b4 

fd 

90 

e4 

60 

a 2 

36 

B6 

24 

7BBB 

s 

01 

aO 

17 

bl 

fb 

91 

fd 

BB 

2b 

7890 

8 

10 

f 9 

•9 

37 

B5 

01 

60 

aO 

11 

7B9B 

8 

17 

bl 

fb 

aa 

BB 

bl 

fb 

c8 

74 

7BaO 

8 

91 

fb 

BB 

dO 

f 7 

Ba 

91 

fb 

7d 

70aB 

| 

60 

aO 

00 

bl 

fb 

aa 

cB 

bl 

2 a 

7BbO 

8 

fb 

80 

91 

fb 

cB 

cO 

17 

dO 

64 

7Bb8 

I 

f 5 

Ba 

91 

fb 

60 

a 2 

00 

aO 

32 

70cO 

s 

80 

B6 

fb 

B4 

fc 

aO 

aO 

86 

77 

78cB 

8 

fd 

84 

fe 

aO 

00 

bl 

fb 

91 

7c 

7BdO 

I 

fd 

cB 

dO 

f 9 

e6 

fc 

e6 

fe 

94 

78d0 

8 

aS 

fc 

c9 

aO 

90 

ef 

60 

aO 

cd 

7BbO 

| 

17 

bl 

fb 

48 

bl 

fd 

91 

fb 

21 

7BeB 

8 

68 

91 

fd 

BB 

10 

f 3 

60 

a2 

11 

7Bf 0 

8 

00 

aO 

BO 

B6 

fb 

B4 

fc 

aO 

4a 

7Bf B 

8 

90 

B6 

fd 

B4 

fa 

aO 

00 

bl 

34 


7900 

S 

fb 

29 

Of 

Oa 

Oa 

Oa 

Oa 

91 

dl 

790B 

1 

fb 

bl 

fd 

29 

Of 

11 

fb 

91 

Od 

7910 

3 

fb 

cB 

dO 

eb 

e6 

fc 

e6 

fe 

11 

791B 

1 

a5 

fe 

c9 

aO 

dO 

el 

60 

a 2 

a6 

7920 

8 

00 

aO 

BO 

86 

fb 

04 

fc 

aO 

7a 

7928 

8 

90 

B6 

fd 

B4 

fe 

aO 

00 

bl 

64 

7930 

| 

fb 

29 

Of 

91 

fd 

bl 

fb 

29 

65 

7938 

| 

fO 

4a 

4a 

4a 

4a 

91 

fb 

cB 

de 

7940 

I 

dO 

ad 

e6 

fc 

e6 

fe 

aS 

fe 

5b 

794B 

8 

c9 

aO 

dO 

e3 

60 

ff 

00 

01 

la 


Listlng 2. »MBB-EDI.ASS« enthält 
Hilfsroutfnen tür den Editor. 

Bitte mit dem MSE eingeben. 


Name > mbb-irq.cde cOOO c3aB 


cOOO 

8 

4c 

f 4 

cl 

aS 

98 

fO 

05 

a 2 

56 

cOOB 

8 

00 

4c 

be 

c2 

78 

a2 

4h 

aO 

4d 

cOlO 

s 

cO 

Be 

14 

03 

Bc 

15 

03 

a9 

4e 

cOlB 

8 

fc 

Bd 

12 

dO 

ad 

11 

dO 

29 

72 

c020 

8 

7f 

Bd 

11 

dO 

a9 

01 

Bd 

la 

dl 

c 02 B 

8 

dO 

a9 

7f 

Bd 

Od 

de 

ad 

Od 

07 

c030 

8 

de 

09 

00 

BS 

fb 

Bd 

41 

03 

c9 

c038 

E 

OB 

42 

03 

ca 

86 

fc 

od 

20 

69 

c040 

3 

dO 

a 2 

1B 

9d 

00 

c4 

9d 

40 

3B 

cO40 

t 

c4 

ca 

10 

f 7 

58 

60 

ad 

19 

e6 

c050 

8 

dO 

Bd 

19 

dO 

29 

01 

dO 

03 

2b 

c05B 

8 

4c 

fl 

cO 

a5 

fb 

49 

01 

B5 

9b 

c060 

8 

fb 

fO 

47 

ea 

ea 

ea 

ea 

ea 

8a 

c06B 

8 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

67 

c070 

3 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

6f 

c07B 

g 

ea 

ea 

ea 

ea 

ea 

ea 

a 2 

18 

bO 

cOBO 

8 

bd 

00 

c4 

Bd 

20 

dO 

ea 

ea 

2 a 

cOBB 

8 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

87 

c090 

8 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

Bf 

C09B 

8 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

ca 

56 

cOaO 

8 

10 

de 

a9 

fa 

0d 

12 

dO 

4c 

2 e 

cOaB 

8 

fl 

cO 

ea 

ea 

ea 

ea 

ea 

ea 

99 

cObO 

8 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

af 

cObB 

8 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

b7 

cOcO 

8 

ea 

ea 

ea 

ea 

ea 

a 2 

18 

bd 

d7 

cOcB 

8 

40 

c4 

Bd 

20 

dO 

ea 

ea 

ea 

bB 

cOdO 

8 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

cf 

cOdB 

8 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

d7 

cOeO 

8 

ea 

ea 

ea 

ea 

ea 

ea 

ca 

10 

aB 

c 0 e 8 

: 

de 

a9 

18 

Bd 

12 

dO 

4c 

fB 

ld 

cOf 0 

: 

cO 

68 

aB 

68 

aa 

68 

5B 

40 

eb 

cOf B 

8 

ad 

41 

03 

c9 

20 

fO 

Oa 

ad 

4d 

clOO 

8 

41 

03 

fO 

Oa 

aa 

ca 

Be 

41 

fe 

clOB 

8 

03 

a5 

fc 

4c 

22 

cl 

ad 

40 

Oe 

cllO 

s 

03 

Bd 

41 

03 

e6 

fc 

a5 

fc 

71 

cl 18 

8 

cd 

43 

03 

dO 

05 

ad 

42 

03 

2f 

cl20 

g 

85 

fc 

29 

07 

aa 

bd 

57 

Cl 

cB 

C12B 

3 

B5 

fd 

aS 

fc 

4a 

4a 

4a 

1B 

05 

cl30 

8 

69 

aO 

85 

fe 

a9 

36 

85 

01 

Bf 

c 138 

: 

aO 

18 

a2 

01 

bl 

fd 

cd 

44 

78 

cl40 

8 

03 

dO 

03 

ad 

20 

dO 

99 

00 

11 


cl4B 

| 

c4 

9d 

40 

c4 

eB 

BB 

dO 

ec 

73 

clSO 

1 

a9 

37 

BS 

01 

4c 

31 

ea 

00 

10 

cl5B 

r 

20 

40 

60 

BO 

aO 

cO 

eO 

a9 

a7 

c 160 

8 

2c 

aO 

00 

dl 

7a 

dO 

2 a 

20 

2e 

C16B 

g 

9b 

b7 

eO 

10 

bO 

26 

Be 

00 

Bf 

cl70 

8 

c4 

Be 

40 

c4 

ad 

15 

03 

c9 

47 

cl7B 

1 

ea 

dO 

03 

Be 

20 

dO 

a9 

2c 

e4 

clSO 

I 

aO 

00 

dl 

7a 

dO 

Oa 

20 

9b 

f 9 

clBS 

1 

b7 

eO 

10 

bO 

07 

Be 

21 

dO 

dS 

c 190 

g 

60 

4c 

OB 

af 

4c 

4B 

b2 

a9 

33 

cl9B 

: 

2c 

aO 

00 

dl 

7a 

dO 

f 2 

20 

89 

claO 

g 

9b 

b7 

86 

fd 

a9 

2c 

aO 

00 

f 7 

claB 

j 

dl 

7a 

dO 

e5 

20 

9b 

b7 

eB 

37 

clbO 

: 

Be 

43 

03 

a6 

fd 

Be 

42 

03 

d9 

clbB 

8 

ca 

86 

fc 

60 

a9 

2c 

aO 

00 

Bf 

clcO 

3 

dl 

7a 

dO 

cd 

20 

9b 

b7 

eO 

3c 

clcB 

| 

21 

bO 

c9 

Be 

40 

03 

a9 

01 

4a 

cldO 

8 

8d 

41 

03 

60 

70 

a 2 

31 

aO 

6d 

cldB 

8 

ea 

Be 

14 

03 

Bc 

15 

03 

a9 

40 

cleO 

3 

ff 

Bd 

Od 

de 

ad 

Od 

de 

ad 

97 

cleB 

8 

00 

c4 

Bd 

20 

dO 

a9 

00 

Bd 

27 

ClfO 

3 

la 

dO 

5B 

60 

a2 

27 

aO 

c2 

00 

clfB 

8 

8e 

OB 

03 

Bc 

09 

03 

a2 

47 

9e 

c200 

8 

aO 

c3 

Be 

30 

03 

Bc 

31 

03 

8b 

C20B 

- 

a 2 

4d 

aO 

c3 

Be 

32 

03 

8c 

91 

c210 

8 

33 

03 

a 2 

53 

aO 

c3 

Be 

la 

6e 

c21B 

3 

03 

Bc 

1b 

03 

a9 

00 


42 

de 

c220 

8 

03 

Bd 

43 

03 

85 

fc 

Ow 

20 

ld 

c 228 

8 

73 

00 

c9 

21 

fO 

06 

20 

79 

e5 

c230 

8 

00 

4c 

b 7 

a7 

20 

73 

00 

4B 

73 

c23B 

• 

20 

73 

00 

6B 

a2 

06 

dd 

5b 

a7 

c240 

8 

c2 

fO 

06 

ca 

10 

fB 

4c 

OB 

5f 

c24B 

3 

af 

a9 

a7 

48 

a9 

ad 

4B 

Ba 

fd 

c250 

3 

Oa 

aa 

bd 

63 

c2 

4B 

bd 

62 

b5 

c25B 

8 

c2 

48 

60 

4d 

53 

47 

48 

43 

17 

c260 

1 

4c 

4f 

96 

cl 

bb 

cl 

02 

cO 

B5 

c26B 

8 

d3 

cl 

5e 

cl 

6f 

c2 

la 

c3 

e9 

c270 

8 

a9 

2 c 

aO 

00 

dl 

7a 

dO 

ce 

29 

c27B 

3 

20 

73 

00 

20 

57 

b2 

a2 

OB 

7d 

c280 

8 

aO 

00 

20 

ba 

ff 

a9 

00 

aa 

22 

c2BB 

3 

aO 

aO 

20 

d5 

ff 

90 

05 

a2 

19 

c290 

8 

ld 

4c 

37 

a4 

a9 

36 

B5 

01 

9a 

c29B 

8 

ae 

00 

bO 

Be 

44 

03 

ae 

01 

5d 


c2a0 

8 

bO 

Ba 

42 

03 

ca 

86 

fc 

ae 

ba 

c2aB 

8 

02 

bO 

t li¬ 

43 

03 

ad 

03 

bO 

19 

c2b0 

8 

48 

20 

es 

c2 

6B 

aa 

4c 

cb 

7f 

c2bB 

8 

cl 

6B 

68 

6B 

a2 

00 

bd 

cc 

Bf 

c 2 c 0 

8 

c 2 

fO 

06 

20 

d2 

ff 

eB 

dO 

f 2 

c 2 c 0 

8 

f 5 

4c 

62 

a4 

Od 

3f 

49 

52 

aS 

c2d0 

1 

51 

20 

43 

4f 

4a 

46 

4c 

49 

c7 

c2d8 

8 

43 

54 

00 

4B 

ad 

15 

03 

c9 

72 

c2e0 

8 

ea 

dO 

d6 

60 

60 

a9 

36 

05 

2c 

c2b0 

8 

01 

a2 

00 

aO 

aO 

B6 

fb 

B4 

B6 

c 2 f 0 

8 

fc 

aO 

bO 

B6 

fd 

B4 

fe 

aO 

7a 

c2f B 

8 

00 

bl 

fb 

29 

Of 

91 

fd 

bl 

ce 

c300 

8 

fb 

29 

fO 

4a 

4a 

4a 

4a 

91 

5B 

c30B 

8 

fb 

C0 

dO 

ed 

e6 

fc 

e6 

fe 

49 

c310 

8 

a5 

fe 

c9 

cO 

dO 

e3 

a9 

37 

00 

c31B 

8 

B5 

01 

60 

a2 

e4 

aO 

a7 

Be 

99 

c320 

8 

OB 

03 

Bc 

09 

03 

a 2 

a5 

aO 

Ob 

c328 

8 

f 4 

Be 

30 

03 

Bc 

31 

03 

a2 

73 

c330 

3 

ed 

aO 

f 5 

Be 

32 

03 

Bc 

33 

90 

c338 

8 

03 

a 2 

4a 

aO 

f 3 

Be 

la 

03 

55 

c340 

8 

Bc 

lb 

03 

20 

d4 

cl 

60 

20 

3c 

c348 

8 

db 

c2 

4c 

a5 

f 4 

20 

db 

c2 

91 

c350 

8 

4c 

ed 

f 5 

20 

db 

c2 

4c 

4a 

ae 

c358 

8 

f 3 

a2 

00 

bd 

6B 

c3 

fO 

07 

cb 

c360 

8 

20 

d2 

ff 

eB 

4c 

5b 

c3 

60 

76 

c36B 

8 

Od 

4d 

41 

47 

49 

43 

20 

42 

09 

c370 

8 

4f 

52 

44 

45 

52 

20 

42 

45 

5c 

c37B 

8 

41 

4d 

53 

20 

28 

43 

29 

20 

ba 

c3B0 

8 

31 

39 

3S 

37 

20 

4d 

26 

54 

fl 

c3BB 

8 

00 

67 

6b 

60 

6c 

71 

68 

62 

db 

c390 

8 

7a 

24 

Oa 

Ob 

04 

6e 

07 

Of 

ee 

c39B 

8 

01 

08 

Oa 

04 

14 

77 

6f 

17 

B9 

c3a0 

8 

6c 

6b 

7b 

63 

31 

3d 

01 

20 

4e 


Listing 3. Das Maschinenprogramm 
»MBB-IRQ.CDE« mit den nötigen 
Interrupt-Routinen und der Basic- 
Erweiterung. Bitte mit dem MSE 
eingeben. 


1 MWH 

REM ****************************** 

<036> 

1190 

PR I NT "{11 SPACE, BLUE >YYO- IB. BLUE >YYY{B 


1010 

REM * * 

<041 > 


LUE lyXTSPACE, RED>Y<SPACE, BREY 1 >YY{BR 


1020 

REM * MABIC BORDER BEAM5 * 

< 113> 


EY 2>YYY{GREY 1>YY" 

< 1B2> 

1030 

REM * * 

<063> 

1200 

PRINT" {10SPACE, BLUE >YY<LIG. BLUE>YY{GR 


1040 

REM * INTERRUPT VERSION #02 * 

< 126> 


EY 3>X<LIG. BLUEJYY{BLUE>YY{SPACE,GREY 


1050 

REM e * 

<0B3> 


1 >YY{GREY 2>YY{BREY 3>Y{ßREY 2>YY<BR 


1060 

REM * BY MATTHIAS FICHTNER # 

<213> 


EY 1>YY" 

< 162> 

1070 

REM * * 

< 103> 

1210 

PRINT" {11SPACE,BLUEJYY{LIB.BLUE>YYY{B 


1000 

REM •*#*•*••*•»•••»•*••***«*•**#»* 

< 118> 


LUE>YY{3SPACE,BREY 1 >YY<BREY 2>YYY{GR 


1090 

A=A+lsIF A=2 THEN 1200 

<150> 


EY 1>YY" 

<044> 

1100 

PRINT"<CLR,GRAPHIC,CTRL-H>"5 POKE 5320 


1220 

PRINT"{12BPACE,BLUE > YY«-IB.BLUE > Y{BLU 



0,15sPOKE 53265,llsPOKE 53281,0 

<200> 


E>YY{5SPACE,GREY 1 >YY{EREY 2>&<BREY 1 


1110 

PRINT"{HOME,2D0WN,19SPACE,RED >ü" 

< 14B> 


>V.V." 

< 193> 

1120 

PR I NT " {1BSPACE > .V-V.V." 

<236> 

1230 

PR I NT "{13SPACE, BLUE >YYY<7SPACE, GREY 1 


1130 

PR I NT " {17SPACE JJüi{L IG. RED Jü,{RED iüX" 

< 117> 


>YYY" 

<175> 

1140 

PR I NT "{16SPACE >yy,{L IG. RED <RED> YY," 

< 164 > 

1240 

PRINT"{148PACE,BLUE>Ä<SPACE,GREY 3>T 


1150 

PRINT" {15SPACE>YY{LIB. REDJYÜTGREY 3>J L 



R A X{SPACE,GREY 1>Y{D0WN>" 

<05B> 


<LIG.RED>YY<RED>YY" 

<067> 

1250 

PRINT"{12SPACE.GREY 3>S 0 F T W A R E 


1160 

PRINT" T14SPACE,BLUE >YfSPACE,RED > YY{LI 



{5D0WN>" 

<016> 


G.REDJYYYfREDJYY{SPACE,BREY 1>Y" 

<052> 

1260 

POKE 53265,27 

<007> 

11/0 

PR I NT "{138PACE , BLUE >XYY{SPACE, RED >YY{ 


1270 

LOAD"MBB—IRQ.CDE",8,1 

<053> 


LIG. RED>ü{RED>yji{SPACE,BREY 1>YYY" 

<091 > 

12B0 

C(0)«0:C(l>=llsC(2)=12tC(3) = 15sC(4)=il 

<051 > 

1100 

PRINT"{12SPACE, BLUE > YY«-IG.BLUE > Y{BLU 


1290 

READ A*sIF A*="*"THEN REBTORE:BOTO 12 



E >YY{SPACE,RED >YYY{SPACE,GREY 1> YY{BR 



90 

<126> 


EY 2>Ü,{GREY 1>YY" 

<204> 

1300 

FOR T=0 TO 4 

<05B> 


32 


SONDERHEFT 21 


aas? 
















C64 


ASSEMBLER-ANWENDUNG 


1310 POKE 646,C<T>:PRINT"CUPV'A* <012> 
1320 FOR 1=1 TO 20SNEXT I,TsT=0 <035> 
1330 BET B»;IF B»=CHR*(13)THEN 1450 <205> 
1340 T=T+1sIF T<90 THEN 1330 <104> 
1350 FOR T=4 TO 0 STEP-1 <174> 
1360 POKE 646,C(T):PRINT"<UP>"A* <062> 
1370 FOR 1=1 TO 20:NEXT I,T <139> 
13B0 BOTO 1290 <115> 
1390 DATA"{5SPACEJMAGIC BORDER BEAMBt2BPAC 

ElINTERRUPT" <063> 
1400 DATA"<14SPACE>VERBI0N #02" <245> 
1410 DATA"{3BPACE1WRITTEN 19B7 BY MATTHIAS 

FICHTNER" <223> 


1420 DATA"C7SPACEJ <C) 19B7 BY TRAX SOFTWAR 


E" <009> 

1430 DATA"T3BPACEJHIT RETURN TO USE BASIC 

EXTENSION" <042> 

1440 DATA"*" <175> 

1450 SYS 49152;PRINT"<CLR>"j:FOR T=0 TO 3: 

POKE 204B+T.0:NEXT:NEW <172> 


Listing 4. »MBB-IRQ.BOT«: Das kleine Baslc-Programm 
zum Laden und Starten der Basic-Erwelterung. 

Bitte mit dem Checksummer eingeben. 


Name : mbb.demofilm BOOO 9004 


8000 : 00 60 eO fO eO 60 00 00 9B 

BOOB l 00 00 00 06 Oe Of Oe 06 67 

B010 I 00 00 00 00 00 00 00 00 11 

B01B i 00 00 00 00 00 00 00 00 19 

B020 : 00 60 eO fO eO 60 bO 00 7a 

8028 : 00 00 00 00 06 Oe Of Oe 52 

8030 i 06 00 00 00 00 00 00 00 37 

B03B : 00 00 00 00 00 00 00 00 39 

B040 : 00 60 eO fO eO 60 cO bO 3c 

B04B : 00 00 00 00 00 06 Oe Of cf 

B050 : Oe 06 00 00 00 00 00 00 62 

805B i 00 00 00 00 00 00 00 00 59 

B060 : 00 60 eO fO eO 60 fO cO 3d 

B06B : bO 00 00 00 00 00 06 Oe 4d 

B070 : Of Oe 06 00 00 00 00 00 OB 

B07B : 00 00 00 00 00 00 00 00 79 

BOBO : 00 60 eO fO eO 60 cO fO fc 

BOBB : cO bO 00 00 00 00 00 06 ad 

B090 : Oe Of Oe 06 00 00 00 00 6a 

809B ! 00 00 00 00 00 00 00 00 99 

BOaO : 00 60 eO fO eO 60 bO cO 7c 

BOaB : fO cO bO 00 00 00 00 00 25 

80b0 : 06 Oe Of Oe 06 00 00 00 a3 

BObB : 00 00 00 00 00 00 00 00 b9 

BOcO : 00 60 eO fO eO 60 00 bO b9 

BOcB l cO fO cO bO 00 00 00 00 47 

BOdO : 00 06 Oe Of Oe 06 00 00 4a 

BOdB : 00 00 00 00 00 00 00 00 d9 

BOeO : 00 60 eO fO eO 60 00 bO d9 

BOeB : cO fO cO bO 20 00 00 00 69 

BOf0 ; 00 00 06 Oe Of Oe 06 00 ad 

BOfB : 00 00 00 00 00 00 00 00 f9 

8100 : 00 60 eO fO eO 60 00 bO f9 

8108 : cO fO cO bO aO 20 00 00 92 

Bl 10 : 00 00 00 06 Oe Of Oe 06 6f 

Bl1B : 00 00 00 00 00 00 00 00 19 

Bl20 : 00 60 eO fO eO 60 00 bO 19 

B12B : cO fO cO bO fO aO 20 00 3b 

8130 : 00 00 00 00 06 Oe Of Oe 5a 

8138 : 06 00 00 00 00 00 00 00 3f 

8140 : 00 60 eO fO eO 60 00 bO 39 

B148 : cO fO cO bO aO fO aO 20 lb 

B150 : 00 00 00 02 06 Oe Of Oe ba 

B15B : 06 00 00 00 00 00 00 00 5f 

Bl60 : 00 60 eO fO eO 60 00 bO 59 

B16B : cO fO cO bO 20 aO fO aO f3 

B170 : 20 00 02 Oa 06 Oe Of Oe 7b 

8178 : 06 00 00 00 00 00 00 00 7f 

B1B0 : 00 60 eO fO eO 60 00 bO 79 

81BB : cO fO cO bO 00 20 a0 fO 6c 

B190 : aO 22 Oa Of 06 Oe Of Oe cf 

Bl98 : 06 00 00 00 00 00 00 00 9f 

BlaO : 00 00 60 eO fO eO 60 00 6c 

81aB : bO cO fO cO bO 00 20 aO d9 

BlbO : f2 aa 2f Oa 06 Oe Of Oe 2e 
BlbB : 06 00 00 00 00 00 00 00 bf 

BlcO : 00 00 00 60 eO fO eO 60 a6 

BlcB : 00 bO cO fO cO bO 00 22 44 

BldO : aa ff aa 22 06 Oe Of Oe 92 

BldB : 06 00 00 00 00 00 00 00 df 

BleO : 00 00 00 00 60 eO fO eO 73 

BleB : 60 00 bO cO fO cO b2 Oa BO 

BlfO : 2f aa f2 aO 26 Oe Of Oe 70 

BlfB : 06 00 00 00 00 00 00 00 ff 

B200 : 00 00 00 00 00 60 eO fO 69 

B20B : eO 60 00 bO cO fO c2 ba 42 

8210 : Of 2a a2 f6 ae 2f Oe 06 64 

B21B : Ob 00 00 00 00 00 00 00 24 

B220 : 00 00 00 00 00 00 60 eO 64 

B22B : fO eO 60 00 bO cO f2 ca 13 

B230 t bf Oa 26 ae ff ae 26 Oc 7a 

823B : Ob 00 00 00 00 00 00 00 44 

B240 : 00 00 00 00 00 00 00 60 01 

824B : eO fO eO 60 00 bO c2 fa 6b 

B250 : cf b6 Oe 2f ae f6 af 2c 9e 

B25B : Ob 00 00 00 00 00 00 00 64 


B260 


00 

00 

00 

00 

00 

00 

00 

00 

61 

B26B 


60 

eO 

fO 

eO 

60 

00 

b2 

ca 

f 7 

8270 


f 6 

ce 

bf 

Oe 

26 

ac 

ff 

ac 

aO 

B27B 


2b 

00 

00 

00 

00 

00 

00 

00 

a4 

B2B0 


00 

00 

00 

00 

00 

00 

00 

60 

41 

B28B 


•0 

fO 

eO 

60 

00 

bO 

c2 

f 6 

a3 

B290 


ce 

bf 

Oe 

26 

ab 

fc 

af 

2c 

40 

B29B 


Ob 

00 

00 

00 

00 

00 

00 

00 

a4 

B2a0 


00 

00 

00 

00 

00 

00 

60 

eO 

e4 

B2a8 


fO 

eO 

60 

00 

bO 

cO 

f 6 

ce 

ab 

B2b0 


bf 

Oe 

26 

aO 

fb 

ac 

2f 

Oc 

Oe 

82bB 


Ob 

00 

00 

00 

00 

00 

00 

00 

c4 

B2c0 


00 

00 

00 

00 

00 

60 

eO 

fO 

29 

B2cB 


■0 

60 

00 

bO 

cO 

f 6 

ce 

bf 

6d 

82d0 


Oe 

26 

a2 

fO 

ab 

2c 

Of 

Oc 

2B 

B2dB 


Ob 

00 

00 

00 

00 

00 

00 

00 

e4 

B2eO 


00 

00 

00 

00 

60 

eO 

fO 

eO 

73 

82eB 


60 

00 

bO 

cO 

f 6 

ce 

bf 

Oe 

Bd 

B2f 0 


26 

aa 

f 2 

aO 

2b 

Oc 

Of 

Oc 

a3 

B2f B 


Ob 

00 

00 

00 

00 

00 

00 

00 

04 

B300 


00 

00 

00 

60 

eO 

fO 

eO 

60 

e6 

8308 


00 

bO 

cO 

f 6 

CB 

bf 

Oe 

26 

df 

8310 


af 

fa 

a2 

20 

Ob 

Oc 

Of 

Oc 

4e 

B31B 


Ob 

00 

00 

00 

00 

00 

00 

00 

24 

8320 


00 

00 

60 

eO 

fO 

eO 

60 

00 

ec 

B32B 


bO 

cO 

f 6 

ce 

bf 

Oe 

26 

aa 

2a 

8330 


ff 

aa 

22 

00 

Ob 

Oc 

Of 

Oc 

72 

B33B 


Ob 

00 

00 

00 

00 

00 

nn 

00 

44 

B340 


00 

60 

eO 

fO 

eO 

60 


bO 

39 

B34B 


cO 

f 6 

ce 

bf 

Oe 

26 

a2 

fa 

cl 

8350 


af 

2a 

02 

00 

Ob 

Oc 

Of 

Oc 

fa 

B35B 


Ob 

00 

00 

00 

00 

00 

00 

00 

64 

B360 


00 

00 

60 

eO 

fO 

eO 

60 

bO 

Bd 

B36B 


c 6 

fe 

cf 

be 

26 

aO 

f 2 

aa 

01 

8370 


2f 

Oa 

02 

00 

Ob 

Oc 

Of 

Oc 

Ba 

B37B 


Ob 

00 

00 

00 

00 

00 

00 

00 

84 

B3B0 


00 

00 

00 

60 

eO 

fO 

eO 

b6 

13 

B3B8 


ce 

ff 

ce 

26 

aO 

fO 

a2 

2a 

3f 

B390 


Of 

Oa 

02 

00 

Ob 

Oc 

Of 

Oc 

Ba 

B39B 


Ob 

00 

00 

00 

00 

00 

00 

00 

a4 

83a0 


00 

00 

00 

00 

60 

eO 

f 6 

be 

07 

B3aB 


cf 

fe 

26 

aO 

fO 

aO 

22 

Oa 

45 

83b0 


Of 

Oa 

02 

00 

Ob 

Oc 

Of 

Oc 

aa 

B3bB 


Ob 

00 

00 

00 

00 

00 

00 

00 

c4 

B3cO 


00 

00 

00 

00 

00 

66 

ee 

bf 

2f 

B3c8 


ce 

26 

aO 

fO 

aO 

20 

02 

Oa 

17 

B3dO 


Of 

Oa 

02 

00 

Ob 

Oc 

Of 

Oc 

ca 

B3dB 


Ob 

00 

00 

00 

00 

00 

00 

00 

e4 

83e0 


00 

00 

00 

00 

06 

Oe 

6f 

be 

ed 

B3eS 


26 

aO 

fO 

aO 

20 

00 

02 

Oa 

cd 

83f 0 


Of 

Oa 

02 

00 

Ob 

Oc 

Of 

Oc 

ea 

B3f B 


Ob 

00 

00 

00 

00 

00 

00 

00 

04 

B400 


00 

00 

00 

06 

Oe 

Of 

Ob 

26 

9f 

B40B 


aO 

fO 

aO 

20 

00 

00 

02 

Oa 

69 

B410 


Of 

Oa 

02 

00 

Ob 

Oc 

Of 

Oc 

Oa 

B41B 


Ob 

00 

00 

00 

00 

00 

00 

00 

24 

B420 


00 

00 

06 

Oe 

Of 

Oe 

26 

aO 

9f 

842B 


fO 

aO 

20 

bO 

60 

00 

02 

Oa 

a9 

8430 


Of 

Oa 

02 

00 

Ob 

Oc 

Of 

Oc 

2a 

B43B 


Ob 

00 

00 

00 

00 

00 

00 

00 

44 

B440 


00 

00 

06 

Oe 

Of 

2e 

a 6 

fO 

63 

B44B 


aO 

20 

cO 

bO 

eO 

60 

02 

Oa 

6c 

B430 


Of 

Oa 

02 

Ob 

Oc 

Of 

Oc 

Ob 

c6 

845B 


00 

00 

00 

00 

00 

00 

00 

00 

59 

B460 


00 

00 

06 

Oe 

2f 

ae 

f 6 

aO 

29 

B46B 


20 

fO 

cO 

bO 

fO 

eO 

62 

Oa 

fa 

B470 


Of 

Oa 

Ob 

Oc 

Of 

Oc 

Ob 

00 

46 

847B 


00 

00 

00 

00 

00 

00 

00 

00 

79 

B4B0 


00 

00 

06 

2e 

af 

fe 

a6 

20 

95 

B4BB 


cO 

fO 

cO 

bO 

eO 

fO 

e2 

6a 

fc 

B490 


Of 

Ob 

Oc 

Of 

Oc 

Ob 

00 

00 

23 

8498 


00 

00 

00 

00 

00 

00 

00 

00 

99 

84a0 


00 

00 

26 

ae 

ff 

ae 

26 

bO 

6f 

B4aB 


cO 

fO 

cO 

bO 

60 

eO 

f 2 

ea 

d5 

B4bO 


6b 

Oc 

Of 

Oc 

Ob 

00 

00 

00 

17 

84bB 


00 

00 

00 

00 

00 

00 

00 

00 

b9 

84c0 


00 

20 

a6 

fe 

af 

2e 

06 

bO 

40 

84c B 


cO 

fO 

cO 

bO 

00 

60 

e2 

fb 

cd 


B4dO 


ec 

6f 

Oc 

Ob 

00 

00 

00 

00 

dB 

84dB 


00 

00 

00 

00 

00 

00 

00 

00 

d9 

B4oO 


00 

00 

26 

ae 

ff 

ae 

26 

00 

4e 

B4eB 


bO 

cO 

fO 

cO 

bO 

00 

6b 

ec 

df 

B4f 0 


ff 

ec 

6b 

00 

00 

00 

00 

00 

40 

84f 8 


00 

00 

00 

00 

00 

00 

00 

00 

f 9 

B500 


00 

00 

06 

2e 

af 

fe 

a6 

20 

15 

BSOB 


00 

bO 

cO 

fO 

cO 

bb 

Oc 

6f 

a7 

B510 


ec 

fb 

e2 

60 

00 

00 

00 

00 

bf 

851B 


00 

00 

00 

00 

00 

00 

00 

00 

19 

B520 


00 

00 

06 

Oe 

2f 

ae 

f 6 

aO 

e9 

B52B 


20 

00 

bO 

cO 

fb 

cc 

bf 

Oc 

ca 

B530 


6b 

ea 

f 2 

eO 

60 

00 

00 

00 

ef 

8538 


00 

00 

00 

00 

00 

00 

00 

00 

39 

B540 


00 

00 

06 

Oe 

Of 

2e 

a6 

fO 

63 

B54B 


aO 

20 

00 

bb 

cc 

ff 

cc 

bb 

b7 

B550 


Of 

6a 

e2 

fO 

eO 

60 

00 

00 

7c 

855B 


00 

00 

00 

00 

00 

00 

00 

00 

59 

B560 


00 

00 

06 

Oe 

Of 

Oe 

26 

aO 

df 

B56B 


fO 

aO 

2b 

Oc 

bf 

cc 

fb 

ca 

dd 

B570 


bf 

Oa 

62 

eO 

fO 

eO 

60 

00 

Bl 

B57B 


00 

00 

00 

00 

00 

00 

00 

00 

79 

B5B0 


00 

00 

06 

Oe 

Of 

Oe 

06 

20 

7d 

B5BB 


aO 

fb 

ac 

2f 

Oc 

bb 

c2 

fa 

d6 

B590 


cf 

ba 

02 

60 

eO 

fO 

eO 

60 

23 

8598 


00 

00 

00 

00 

00 

00 

00 

00 

99 

85a0 


00 

00 

06 

Oe 

Of 

Oe 

06 

00 

5d 

B5aB 


2b 

ac 

ff 

ac 

2b 

00 

b2 

ca 

d2 

B5b0 


ff 

ca 

b2 

00 

60 

eO 

fO 

eO 

54 

85bB 


60 

00 

00 

00 

00 

00 

00 

00 

19 

B5cO 


00 

00 

00 

06 

Oe 

Of 
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66 

00 

00 

00 

00 

00 

00 

6a 

8940 3 

00 00 00 00 00 02 Oa Of 

97 

8c 48 


00 

00 

bO 

c6 

fe 

cf 

ba 

06 

c3 

Bf 50 


00 

00 

00 

00 

00 

00 

00 

00 

51 

B940 3 

Oa 22 aO fb ac 2f bc 6b 

19 

8cS0 


Of 

2 c 

ab 

fO 

a 2 

2 a 

Of 

Oa 

4a 

Bf 5B 


00 

00 

00 

00 

00 

00 

00 

00 

59 

8950 3 

00 06 Oe Of Oe 06 00 00 

ca 

0c50 


02 

00 

00 

00 

00 

00 

00 

00 

5b 

Bf 60 


00 

00 

00 

00 

06 

Oe 

6f 

ae 

cd 

0958 3 

00 00 00 00 00 00 00 00 

59 

Bc 60 


00 

00 

60 

aO 

fO 

aO 

60 

00 

2 c 

Bf 68 


f 6 

eO 

60 

00 

00 

00 

00 

00 

e7 

8960 8 

00 00 00 00 00 00 02 Oa 

7d 

8c 68 


00 

00 

bO 

cO 

f 6 

ce 

bf 

Oe 

ad 

8f 70 


00 

00 

00 

00 

00 

00 

00 

00 

71 

8968 3 

2f aa f2 aO 2b cc bf ec 

af 

0c7O 


06 

Oc 

2b 

•0 

f 2 

aa 

2f 

Oa 

bl 

Bf 7B 


00 

00 

00 

00 

00 

00 

00 

00 

79 

8970 3 

6b 00 06 Oe Of Oe 06 00 

98 

Bc70 


02 

00 

00 

00 

00 

00 

00 

00 

7b 

Bf 80 


00 

OO 

00 

06 

Oe 

Of 

Oe 

66 

aO 

897B 8 

00 00 00 00 00 00 00 00 

79 

Bc80 


00 

60 

eO 

fO 

eO 

60 

00 

00 

18 

8f. 80 


eO 

fO 

eO 

60 

00 

00 

00 

00 

25 

8980 3 

00 00 00 00 00 00 00 22 

c5 

BcBB 


00 

00 

bO 

cO 

fO 

c6 

ba 

Of 

2b 

Bf 90 


00 

oo 

00 

00 

00 

00 

00 

00 

91 

8988 3 

aa ff aa 22 fO cb bc ff 

81 

Bc90 


Oe 

06 

Ob 

20 

a 2 

fa 

af 

2 a 

7d 

Bf 98 


00 

00 

00 

00 

00 

00 

00 

00 

99 

8990 8 

ec 6b 00 06 Oe Of Oe 06 

90 

Bc9B 


02 

00 

00 

OO 

00 

00 

00 

00 

9b 

Bf aO 


00 

00 

06 

Oe 

Of 

Oe 

06 

00 

5d 

8998 8 

00 00 00 00 00 00 00 00 

99 

BcaO 


00 

00 

60 

aO 

fO 

aO 

60 

00 

6c 

Bf aB 


60 

eO 

fO 

aO 

60 

00 

00 

00 

d7 

89aO 3 

00 00 00 00 00 00 20 aO 

62 

8ca0 


00 

00 

bO 

cO 

fO 

cO 

b6 

Oe 

fB 

Bf bO 


00 

00 

00 

00 

00 

00 

oo 

00 

bl 

09a8 3 

f2 aa 2f ca f2 cO bb ec 

12 

BcbO 


Of 

Oa 

26 

aO 

f 2 

aa 

2f 

Oa 

b9 

Bf bB 


00 

00 

00 

00 

00 

00 

00 

00 

b9 

B9b0 b 

ff ec 6b 00 06 Oe Of Oe 

29 

BcbB 


02 

00 

00 

00 

00 

00 

00 

00 

bb 

BfcO 


00 

00 

00 

oo 

00 

00 

00 

00 

cl 

B9bB s 

06 00 00 00 00 00 00 00 

bf 

BccO 


00 

00 

00 

60 

eO 

fO 

aO 

60 

a6 

Bf cB 


00 

60 

eO 

fO 

eO 

60 

00 

00 

60 

B9c0 3 

00 00 00 00 00 20 aO fO 

26 

BccB 


00 

00 

bO 

cO 

fO 

cO 

bO 

06 

fO 

BfdO 


00 

OO 

00 

00 

00 

00 

00 

00 

dl 

B9c8 8 

aO 22 ba cf fa c2 bc 6f 

b9 

BcdO 


Oe 

2f 

ae 

f 6 

a2 

2 a 

Of 

Oa 

cc 

Bf d8 


00 

00 

00 

00 

oo 

00 

00 

00 

d9 

B9dO s 

ec fb eO 60 06 Oe Of Oe 

27 

BcdB 


02 

00 

00 

00 

00 

00 

00 

00 

db 

BfeO 


00 

00 

00 

00 

00 

00 

00 

00 

el 

B9dB 3 

06 00 00 00 00 00 00 00 

df 

BceO 


00 

00 

00 

00 

60 

eO 

fO 

eO 

73 

Bf eB 


00 

00 

60 

eO 

fO 

eO 

60 

00 

b4 

B9e0 3 

00 00 00 00 20 aO fO aO 

ed 

8ceB 


60 

00 

bO 

cO 

fO 

cO 

bO 

00 

64 

Bf f 0 


00 

00 

00 

00 

00 

00 

00 

00 

fl 

B9e8 s 

20 00 b2 ca ff ca b2 Oc 

47 

Bef 0 


26 

ae 

ff 

ae 

26 

Oa 

Of 

Oa 

46 

Bf f B 


00 

oo 

00 

00 

00 

00 

Oa 

01 

33 

B9f 0 s 

6b eO fO eO 66 Oe Of Oe 

53 

8cf 0 


02 

00 

00 

00 

00 

00 

00 

00 

fb 

9000 


00 

00 

fe 

01 

47 

49 

43 

20 

ec 

09f 0 s 

06 00 00 00 00 00 00 00 

ff 

QdOO 


00 

00 

00 

60 

eO 

fO 

eO 

60 

e6 












BaOO 8 

00 00 00 20 aO fO aO 20 

59 

BdOB 


00 

bO 

cO 

fO 

cO 

bO 

00 

20 

BO 

Listing 5. (Schluß) 
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Werkzeugkasten für 
Assembler-Programmierer 


In diesem Beitrag liefern wir Ihnen eine umfang¬ 
reiche Toolbox zum Programmieren in Assem¬ 
bler. Ein- und Ausgabe-Routinen sind darin 
ebenso enthalten wie sehr genaue Fließkomma¬ 
oder Floppy-Routinen 

B eim Programmieren in Assembler stellt man schnell 
fest, daß es ein geradezu universelles Gesetz gibt: 
Alles dauert länger und ist aufwendiger als man vor¬ 
her vermutet hat. Das hat einen ganz einfachen Grund: 
Während in höheren Programmiersprachen Ein- und Aus¬ 
gabe, Arithmetik, Kontroll- und Datenstrukturen vorhanden 
sind - als Teil der Sprache oder wie in C die Ein- und Aus¬ 
gabe als Standard-Bibliotheken - bietet die Assembler¬ 
sprache sehr wenig von alledem. Also muß man in jedes 
Programm viele elementare Routinen einbinden, die man 
sonst in der Laufzeitbibliothek (Runtime-Modul) eines 
Compilers oder im Basic-Interpreter vorfinden würde. 

Fertige Modele 


Hier soll nun eine Auswahl von Makros und Unterpro¬ 
grammen vorgestellt werden, die häufig wiederkehrende 
Aufgaben wie Ein- und Ausgabe, Fließkomma-Arithmetik 
und Diskettenbedienung erledigen. 

Alle Programme und Makros laufen mit Hypra-Ass. Sie kön¬ 
nen diese aber natürlich nach vorheriger Konvertierung 
auch mit Giga-Ass (in diesem Sonderheft Seite 116) ver¬ 
wenden. 


Die Verwendung solcher Standard-Pakete hat nicht nur 
den Vorteil, Arbeit zu sparen. Eigene Programme werden 
auch übersichtlicher, wenn gleiche Funktionen überall 
gleich aussehen. Natürlich gibt es auch Nachteile: Eine all¬ 
gemeine Lösung paßt vielleicht nicht immer optimal in den 
gegebenen Rahmen. Manchmal schleppt man bei Verwen¬ 
dung einer Standardbibliothek auch Programmteile mit 
sich, die eigentlich nicht benötigt werden oder es könnte im 
Einzelfall eine effizientere Lösung gefunden werden. Nor¬ 
malerweise überwiegen jedoch die Vorteile, und man 
kommt auf jeden Fall mit Hilfe einer Standardlösung zu 
einem lauffähigen Programm. Wenn die Effizienz an Platz 
und Zeit dann wirklich so gelitten hat, ist anschließend 
immer noch Zeit, die nicht benötigten Teile der eingebauten 
Bibliotheken zu löschen sowie spezielle Anpassungen vor¬ 
zunehmen. 

Ein weiterer Nachteil dieser »Baukasten-Methode« tritt 
leider speziell beim Hypra-Ass auf: Dieser Assembler 
unterstützt die Verwendung von Bibliotheken in Quelltext¬ 
form nicht. Manche Assembler werden nämlich mit einer 
Anweisung wie »INCLUDE FILENAME« oder »LIB FILE¬ 
NAME« dazu veranlaßt, während des Assemblierens den 
Inhalt einer Diskettendatei an der aktuellen Stelle einzufü¬ 
gen. Der Hypra-Ass kennt eine solche »INCLUDE«- 
Anweisung nicht, statt dessen gibt es die »APPEND«- 
Anweisung. Diese Anweisung bewirkt jedoch nur ein Nach¬ 
laden und Weiterassemblieren, nachdem der Quelltext im 
Speicher bereits fertig übersetzt ist. Damit eignet sich 
»APPEND« natürlich nicht, Bibliotheken einzubinden, 
deren Inhalt bereits während der Assemblierung des 
Hauptprogramms gebraucht wird. 
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Aus diesem Grund werden die hier verwendeten 
Programm-Module vor Eingabe des eigentlichen Pro¬ 
gramms mit »IM« (MERGE) vom Hypra-Ass Editor aus 
zusammengefügt. Dabei muß man darauf achten, daß die 
Reihenfolge der »MERGE«-Befehle stimmt, da der Editor- 
Befehl »MERGE« die eingelesene Datei immer am Ende 
des aktuellen Textes anfügt. In Tabelle 1 sehen Sie eine Auf¬ 
listung der Module. 

Die Endung ».HY« bei den Filenamen soll andeuten, daß 
es sich um Quelltexte im Hypra-Ass-Format handelt. Die 
Programme sind alle kommentiert. Diese Kommentare 
kann man bei Platzproblemen im Textspeicher des Hypra- 
Ass weglassen, da in einem Anwenderprogramm nur noch 
die Funktion und nicht die Implementierung der Hilfsrouti¬ 
nen und -makros wichtig ist. Für die Leser, die noch nicht 
wissen, was Makros sind, soll hier noch eine Erklärung 
gegeben werden. Diejenigen Leser, bei denen eine solche 
Erklärung schon Gähnanfälle hervorruft, können diesen 
Abschnitt ja überspringen. Vielleicht finden aber auch Pro¬ 
fis im folgenden Abschnitt noch etwas Neues. 


Was ist ein Makro? 


Der Hypra-Ass bietet, wie auch andere gute Assembler, die 
Möglichkeit, eine ganze Folge von Befehlen mit einem 
Namen zu versehen. Eine solche Kennzeichnung wird mit 
dem Befehl ».MA« eingeleitet und mit ».RT« abgeschlossen. 
Ein Beispiel wäre etwa: 

.MA INCA 
CLC 

ADC #1 

• RT 6-*eR 

Hier wird also die Befehlsfolge »CLC/ADC #1«mitdem 
Namen »INCA« versehen. Wenn Hypra-Ass während des 
Übersetzens diese Makrodefinition findet, wird noch kein 
Befehl erzeugt; statt dessen merkt sich der Assembler, daß 
unter dem Namen »INCA« ein Makro vereinbart wurde und 
wo es im Quelltext steht. Im weiteren Programmtext wird 
nun das Makro mit dem Befehl »... INCA« aufgerufen, das 
heißt, der Assembler erhält die Anweisung, anstatt dieser 
Zeile die Befehlsfolge »CLC / ADC #1« zu übersetzen. 

Auf diese Weise ist der Benutzer in der Lage, sozusagen 
eine »Wunsch-Maschine« zu definieren, indem er Befehle 
definiert, die der Prozessor eigentlich nicht kennt. Diese 
neuen Befehle müssen natürlich mit Hilfe der bereits vor¬ 
handenen definierbar sein. Als vorhandene Befehle gelten 
hier auch bereits vereinbarte Makros. In diesem Fall ergibt 
sich also auch eine Hierarchie von Makros. 

Dieses Werkzeug wird noch flexibler durch die Möglich¬ 
keit, Parameter anzugeben. Die Definition eines Makros 
mit Parametern sieht beispielsweise so aus: 

.MA LDAY (ADR) 

LDA ADR 
LDY ADR+1 
.RT 

Beim Aufruf muß man nun ebenfalls in Klammern ange¬ 
ben, was »ADR« bei diesem speziellen Makroaufruf bedeu¬ 
ten soll: 

... LDAY (PT) 

setzt voraus, daß irgendwo ein Label »PT« definiert wurde 
und erzeugt die Befehle 

LDA PT 
LDY PT+1 

Es gibt auch Makros, die mehrere Parameter haben, 
diese sind dann durch Kommata zu trennen. Beispiel: 

.MA MOVEB (FR0M,T0) 

LDA FROM 


STA TO 
.RT 

Aufruf: 

... MOVEB(0,MEMMAP) 

Als Parameter sind numerische Ausdrücke erlaubt. 
Wenn der Hypra-Ass einen Makro-Aufruf mit Parametern 
findet, werden diese mit der normalen Ausdruck- und Aus¬ 
wertungsroutine berechnet und den Parameter-Namen 
aus der Makro-Definition zugeordnet. Das funktioniert ähn¬ 
lich der Definition von Labels: Während der Expansion des 
Makros »MOVEB« (das heißt, während der Hypra-Ass 
Befehle aus dem Rumpf der Makro-Definition übersetzt) 
kennt der Assembler zusätzliche Symbole mit den Namen 
»FROM« und »TO«. Dieses Verfahren ist relativ einfach zu 
programmieren und schnell in der Ausführung, hat jedoch 
einen Haken: Es ist nicht möglich, etwas anderes als einen 
numerischen Ausdruck als Makro-Parameter zu überge¬ 
ben. So wäre es sicher schön, wenn man ein Makro 
»WRITE« zur Ausgabe einer Zeichenkette wie folgt definie¬ 
ren könnte: 

.MA WRITE(STRING) ;DAS GEHT LEIDER NICHT: 

LDA # < (AD) 

LDY # > (AD) 

BNE PRN 
AD .TX STRING 
.BY 0 

PRN JSR PRINTS 
.RT 

... WRITE(HELLO, WORLD) 

Dies ist ein Punkt, wo sich teure kommerzielle Assembler 
vom Hypra-Ass unterscheiden. Übrigens gibt es auch 
unabhängig von Makroassemblern sogenannte Makro- 
Prozessoren, die einfach einen Text lesen, darin Definitio¬ 
nen Und 'Vufrufe von Makros erkennen und auswerten. Des 
weiteren erzeugen sie einen Ausgabetext ohne die Makro¬ 
definitionen und mit ausgeführten Makro-Expandierun- 
gen. Ein solcher Makro-Prozessor ist als Pre-Prozessor für 
einen Compiler einsetzbar (standardmäßig bei C und PL/1 
vorgesehen). 

Eine andere Anwendung wäre auch die Textverarbeitung 
mit Makros für Serienbriefe. Oder etwa die Portierung von 


Listing 

Name 

Zeilennummern 

Funktion 

1 

SYSIOLIB.HY 

1000 - 1355 

Grundlage für alle anderen 
I/O-Module 

2 

HEXIOLIB.HY 

2000 - 2375 

Ein-/Ausgabe von Hexadezimal¬ 
zahlen 

3 

DEZIOLIB.HY 

3000 - 3655 

Ein-/Ausgabe von Dezimalzahlen 

4 

STRINGIOLIB.HY 

4000 - 4390 

Ein-/Ausgabe von Zeichenkellen 

5 

SIXTEEN.HY 

5000 - 5665 

Makrobibliolhek für 16-Bit-Befehle 

6 

DS.HY 

6000 - 6060 

spezielles Makro für FPBCD.HY 

7 

DOSCMD.HY 

10000 - 10725 

Unterprogramm Floppy-Bedienung 

8 

FILTER1.HY 

100 • 300 

Beginn allgemeines Konvertierungs¬ 
programm 

9 

FILTER2.HY 

10000 - 11080 

Teil 2 des Konvertierprogramms 

10 

FPBCD.HY 

10000 - 12910 

Fließkomma-Arithmetik 

11 

UPN1.HY 

100 - 110 

Beginn Anwendungsbeispiel für 
FPBCD.HY 

12 

UPN2.HY 

15000 - 17485 

Teil 2 des Anwendungsbeispiels 

13 

EX1.HY 

10000 - 10140 

Beispiel zu syslolib-hy 

14 

EX2.HY 

10000 - 10135 

Beispiel zu strlnglolib.hy 

15 

EX3.HY 

10000 - 10075 

Beispiel zu sixteen.hy 


Tabelle 1. Überblick über die einzelnen Module 
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Programmen. Ein Programm wird zum Beispiel dadurch 
portabel gemacht, daß es in einer fiktiven, dem Problem gut 
angepaßten »Assemblersprache« mit nicht zuviel verschie¬ 
denen Befehlen geschrieben wird. Um nun dieses Pro¬ 
gramm auf einem real existierenden Rechner zu imple¬ 
mentieren, muß man für jeden Befehl aus der Pseudo- 
Assemblersprache ein Makro definieren, das auf der Ziel¬ 
maschine Code erzeugt, der die gewünschte Funktion aus¬ 
führt. Man kann auch Makros verwenden, um den Befehls¬ 
satz eines Asssemblers zu erweitern oder an einen ande¬ 
ren Prozessor anzupassen. So gibt es für den C64-As- 
sembler »ASSI« Makropakete, um Code für den Z80, 6809 
und andere Prozessoren zu erzeugen. 

Makros nach Wunsch 


Schließlich sind auch Makro-Pakete schon verwendet wor¬ 
den, um Compiler auf andere Rechner zu übertragen. 
Damit ist der kleine Exkurs über Makros beendet; es wird 
wieder ganz praktisch, und zwar mit einer Beschreibung 
der einzelnen Module: 

SYSIOLIB.HY 

Dieses Modul (Listing 1) ist die Grundlage aller weiteren 
mit Ein- und Ausgabe befaßten Bibliotheken. Zunächst wer¬ 
den die häufig benutzten Einsprünge in die Kernai- 
Sprungtabelle definiert. Das betrifft die Ein- und Ausgabe 
von Zeichen über die Standardroutinen (BASIN, BASOUT, 
GEHN), die Handhabung von Files (SETNAM, SETLFS, 
OPEN, CLOSE, CHKIN, CHKOUT, CLRCHN, READST) 
und die Routinen zur direkten Bedienung des seriellen 
Busses (TALK, TALKSA, LISTEN, LISTENSA, UNTALK, 
UNLISTEN, IECIN, IECOUT) sowie die Abfrage der 
RUN/STOP-Taste (STOPEQ). Darauf aufbauend werden 
dann die Makros »MOPEN«, »MCLOSE« und »MDSTAT« 
definiert. Hier wird eine auch bei den anderen Modulen ein¬ 
gehaltene Konvention deutlich: Alle Makronamen begin¬ 
nen mit »M«. Das ist vorteilhaft, weil es häufig verwandte 
Unterprogramme und Makros gibt - zum Beispiel »OPEN« 
und »MOPEN« - wobei die Makros nur zum bequemeren 
Aufruf der Unterprogramme dienen. Das Makro »MOPEN« 
wird in ähnlicher Form wie der Basic-Befehl »OPEN« aufge¬ 
rufen: 

... MOPEN (lfn, dev, sa, filename, fnlaenge) 

Dabei sind »lfn« (logische Filenummer) und »sa« (Sekun¬ 
däradresse) Konstanten, »dev« (Gerätenummer), »file¬ 
name« und »fnlaenge« sind Adressen, an denen die jewei¬ 
lige Angabe zu finden ist. 

Ein-/Ausgabe-Module 


Es wäre natürlich angenehmer, wenn man direkt beim 
Makroaufruf zwischen Konstanten und Adressen unter¬ 
scheiden oder sogar einen konstanten Filenamen direkt 
angeben könnte. Dies ist mit dem Hypra-Ass aber nicht 
möglich, da er nur die Übergabe von numerischen Werten 
als Makro-Parameter gestattet. Die hier getroffene Festle¬ 
gung, was als Konstante und was als Adresse zu überge¬ 
ben ist, stellt natürlich nicht die einzige Möglichkeit dar. 
Man könnte ebensogut alle numerischen Angaben per 
Adresse übergeben oder weitere Parameter einführen, die 
angeben, ob etwa eine Sekundäradresse als Konstante 
oder als Adresse aufzufassen ist. Das würde jedoch den 
Aufruf des »MOPEN«-Makros umständlicher und unüber¬ 
sichtlicher machen. 

Nachdem ein File mit »MOPEN« eröffnet wurde, kann 
man mit dem Makro »MDSTAT« die Floppy-Statusmeldung 


einiesen. Als Parameter muß man zwei Adressen angeben: 
die Adresse, an der die Gerätenummer zu finden ist, sowie 
die Adresse eines Puffers, in den die Statusmeldung einge¬ 
lesen werden soll. Dieser Puffer muß mindestens eine 
Länge von 33 Byte haben. Das Makro sorgt nur für die 
Übergabe der Parameter an ein in »SYSIOLIB.HY« definier¬ 
tes Unterprogramm mit dem Namen »DSTAT«, das die 
eigentliche Arbeit erledigt. Nach Aufruf dieses Unterpro¬ 
gramms ist das Zero-Flag des Prozessors gesetzt, falls die 
Statusmeldung mit einer »0« begann. Ein Beispiel zur 
Benutzung dieser Makros ist in Listing 13 (»EX1.HY«) zu 
finden. 

In »SYSIOLIB.HY« werden schließlich noch »PT« und 
»CR« definiert. Dabei ist »PT« die Adresse eines Zeigers in 
der Zero-Page, der von den anderen I/O-Bibliotheken 
benutzt wird (Adresse: $FB), während »CR« die häufig 
benutzte Konstante 13 (Carriage Return) bezeichnet. 

HEXIOLIB.HY 

Das Modul »HEXIOLIB.HY« (Listing 2) enthält immer wie¬ 
der gebrauchte Unterprogramme zur hexadezimalen Ein- 
und Ausgabe von Ein- und Zwei-Byte-Werten. Dies sind im 
einzelnen die Routinen »INPUTHEX« und »PRINTHEX« für 
Zwei-Byte-Werte sowie »INHEXBYTE« und »PRHEXBYTE« 
für einzelne Bytes. Wort-Werte werden dabei hier wie auch 
in allen anderen Programmen im Format A/Y übergeben. 
Das heißt, im Akkumulator befindet sich das niederwertige 
und im Y-Register das höherwertige Byte. Nach Aufruf der 
Eingaberoutinen zeigt das Carry-Flag an, ob ein Fehler auf¬ 
getreten ist. Die Makros »MINPUTHEX« und »MPRINT- 
HEX« dienen jeweils zur Ein- oder Ausgabe einer 2-Byte- 
Zahl von/an eine bestimmte Speicheradresse. Der Aufruf 
lautet dann: 

...MINPUTHEX(AD) 
und 

...MPRINTHEX(AD) 

DEZIOLIB.HY 

Funktion und Syntax dieses Moduls (Listing 3) sind der 
»HEXIOLIB.HY« angeglichen, nur arbeitet es mit Dezimal¬ 
zahlen. Allerdings sind hier nur Routinen und Makros zur 
Behandlung von 2-Byte-Zahlen vorhanden. Die Namen der 
Unterprogramme lauten »INPUTDEZ« und »PRINTDEZ«, 
die Makros heißen »MINPUTDEZ« und »MPRINTDEZ«. 
Wie vorher wird auch hier ein Fehler durch ein gesetztes 
Carry-Bit angezeigt. Bei der Ausgabe werden führende 
Nullen nicht mit angezeigt. Dies könnte man leicht ändern, 
in diesem Fall würde sich die Routine »PRINTDEZ« noch 
vereinfachen. 

STRINGIOLIB.HY 

Dieses Modul (Listing 4) bietet die Unterprogramme 
»INPUTS«, »PRINTS«, »WRITES«, »CRLF« sowie die 
Makros »MINPUTS« und »MPRINTS«. Die Adresse der Zei¬ 
chenkette, die ein- oder ausgegeben werden soll, wird wie¬ 
der in der Registerkombination A/Y (Akkumulator = Low- 
Byte, Y-Register = High-Byte) übergeben. »PRINTS« gibt 
die Zeichenkette ab der Adresse in A/Y aus; das Ende der 
Zeichenkette muß mit einem Null-Byte markiert sein. 
»INPUTS« liest eine Zeichenkette in den Speicherbereich 
ein, dessen Adresse in A/Y übergeben wird; zusätzlich muß 
noch im X-Register die maximale Anzahl der einzulesen¬ 
den Zeichen angegeben werden. »INPUTS« legt hinter 
dem letzten eingelesenen Zeichen ein Null-Byte ab, so daß 
der Pufferbereich um ein Byte länger sein muß als die maxi¬ 
mal erlaubte Eingabe. Bei Rückkehr aus dem Unterpro¬ 
gramm »INPUTS« steht im Y-Register die Anzahl der tat¬ 
sächlich eingelesenen Zeichen. 

Die Routine »WRITES« soll es erlauben, Text direkt 
»inline« anzugeben, so daß man - ähnlich wie bei einem 
Basic-PRINT-Befehl - auf einen Blick sieht, was ausgege- 
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ben wird. Dazu wird der auszugebende Text direkt hinter 
den Unterprogrammaufruf »JSR WRITES« angeordnet. 
Der Abschluß des Textes wird wieder mit feinem Null-Byte 
markiert. Eine solche Parameterübergabe ist zwar langsa¬ 
mer als der direkte Aufruf von »PRINTS«, das dürfte norma¬ 
lerweise aber keine Rolle spielen. Ein weiterer Nachteil 
dieser Methode liegt darin, daß der Object-Code durch das 
Einstreuen von Text natürlich unübersichtlicher wird. Beide 
Routinen zur Textausgabe können übrigens beliebig lan¬ 
gen Text ausgeben. Die Eingaberoutine »INPUTS« ist 
jedoch auf 255 Zeichen beschränkt. 

Die Routine »CRLF« ist nur eine kleine Ergänzung, sie 
gibt genau ein RETURN-Zeichen ($0D) aus. Die Routinen 
»INPUTS« und »PRINTS« können auch mit Hilfe der Makros 
»MINPUTS« und »MPRINTS« aufgerufen werden. Die Syn¬ 
tax lautet: 

... MINPUTS(BUFFER,LEN) 

... MPRINTS(BUFFER) 

wobei die Länge als Konstante anzugeben ist. Ein einfa¬ 
ches Anwendungsbeispiel ist im Programm »EX2.HY« 
(Listing 14) angegeben. 

SIXTEEN.HY 

Bis auf eine einzige ».BY«-Anweisung, werden hier 
(Listing 5) ausschließlich Makros definiert. Diese Makros 
sollen die Handhabung von 16-Bit-Werten erleichtern. Es 
gibt allerdings auch einige 8-Bit-Befehle, die ams Gründen 
der Systematik mit aufgenommen wurden. Die 16-Bit- 
Befehle verwenden die Registerkom'binationi A/Y als 
»16-Bit-Akkumulator«. Ein Beispiel hierzu finden Sie im Pro¬ 
gramm »EX3.HY« (Listing 15). 

16-Bit-Werte einfach verarbeitet 


Die einzelnen Makros lauten: »LDAY, LDAYI, MOVEB, 
MOVEBI, MOVEW, MOVEWI, ADDW, ADDWI, SUBW, 
SUBWI, CM PW, CMPWI, INCW, DECW, PUSHB, PULLB, 
PUSHW und PULLW«. Als Parameter ist entweder eine 
Adresse anzugeben oder - bei den Makros für »IMME- 
DIATE«-Befehle, zu erkennen am »I« am Namensende - ein 
direkter Wert. Beispiel: »LDAY ($1234)« lädt den Speicher¬ 
inhalt aus den Adressen $1234 (low) und $1235 (high) nach 
A/Y. »LDAYI ($1234)« lädt die Konstante $1234 nach A/Y, 
Das heißt das niederwertige Byte ($34) wird in den Akku 
geladen und das höherwertige Byte ($12) in das Y-Register. 
Im gleichen Sinn gehören die Makros »MOVEB« und 
»MOVEBI« zusammen sowie »MOVEW« und »MOVEWI«, 
»ADDW« und »ADDWI« etc. Die »MOVE«-Makros müssen 
mit zwei Parametern aufgerufen werden. Der erste bezeich¬ 
net die Quelle, der zweite das Ziel. »MOVEB« steht für 
»Move Byte« und »MOVEW« für »Move Word«. Beispiel: 
... MOVEBI (0, STATUS) 
speichert eine 0 an der Adresse »STATUS« 

... MOVEW (PT, OLDPT) 

rettet einen 2-Byte-Zeiger »PT« an die Adresse 
»OLDPT/OLDPT+1«. Der Inhalt des Akkus sowie des Y- 
Registers (bei »MOVEW« und »MOVEWI«) wird durch diese 
Makros verändert. Die arithmetischen Makros »ADDW, 
ADDWI, SUBW, SUBWI, CMPW und CMPWI« arbeiten 
analog zu den normalen arithmetischen Befehlen der 
6510-CPU: Der derzeitige Inhalt der Registerkombination 
A/Y wird mit dem angegebenen Immediate-Operanden 
(bei »ADDWI, SUBWI und CMPWI«) beziehungsweise mit 
dem Speicherinhalt an der angegebenen Adresse ver¬ 
knüpft und das Ergebnis in A/Y abgelegt. Zu den Ver¬ 
gleichsbefehlen »CMPW« und »CMPWI« sollte man noch 
wissen, daß nach dem Vergleich das Zero-Flag sowie das 
Carry-Flag das Ergebnis korrekt wiedergeben, jedoch nicht 
das Minus-Flag. Das bedeutet, man kann durch einen 


anschließenden BNE- oder BEQ-Befehl einen Test auf 
Gleichheit durchführen oder mit BCC/BCS einen vorzei¬ 
chenlosen Vergleich anstellen. Die Interpretation des 
Minus-Flags als Ergebnis eines vorzeichenbehafteten Ver¬ 
gleichs gibt jedoch keine korrekten Ergebnisse. Nach 
einem vorzeichenlosen Vergleich bedeutet ein gesetztes 
Carry-Bit »größer oder gleich«, das gelöschte Carry-Bit also 
»kleiner«. Beispiel: 

... LDAY (WERT1) 

... CMPW (WERT2) 

BEQ GLEICH 
BCC W1KLEINER 
BCS W1GRÖSSER 

Das Ergebnis dieser Abfrage ist nur korrekt, wenn man 
»WERT1« und »WERT2« als vorzeichenlose Zahlen (0 bis 
65535) auffaßt. Das heißt, es gilt 0 < $8000, da $8000 vor¬ 
zeichenlos als 32768 betrachtet wird. Bei einer Interpreta¬ 
tion als vorzeichenbehaftete Zahl würde man 0 > $8000 
festsetzen, da in diesem Fall $8000 als -32768 angesehen 
würde. Die Makros »INCW« und »DECW« gehören schließ¬ 
lich auch noch zu den arithmetischen Makros. Sie inkre- 
mentieren oderdekrementieren einen 16-Bit-Wert im Spei¬ 
cher, wobei der Registerinhalt (A, X, Y) nicht verändert wird. 
Die Makros »PUSHB, PULLB, PUSHW und PULLW« rich¬ 
ten schließlich benutzerdefinierte Stacks ein. 

Was hier etwas bombastisch klingt, soll nur bedeuten, 
daß diese Makros per Programm eine Stapel Verwaltung 
durchführen, im Gegensatz zu dem kleinen Hardware- 
Stack des C64 im Bereich von $0100 bis $01ff. Als Parame¬ 
ter muß jeweils eine Adresse in der Zero-Page angegeben 
werden, an der ein 2-Byte-Stackpointer angelegt wird. Der 
Benutzer ist natürlich selbst für die Initialisierung und Über- 
wach'J n g dieser Stackpointer zuständig. Ein Beispiel fin¬ 
den Sie in Listing 15. 

Da der Software-Stack mit Hilfe der indirekt-indizierten 
Adressierung nachgebildet wird, wird bei Benutzung der 
»PUSH/PULL«-Befehle ein Zwischenspeicher für das Y- 
Register benötigt. Dieser Zwischenspeicher ist in der Datei 
»SIXTEEN.HY« unter dem Namen »SAVEY« definiert. 

DOSCMD.HY 

Hier (Listing 7) wird ein Unterprogramm definiert, das an 
passender Stelle in solche Programme eingebunden wird, 
die mit Disk-Files arbeiten. Es erlaubt dem Benutzer, das 
Directory einer Diskette zu zeigen, Befehle an das Lauf¬ 
werk zu schicken (etwa »s0:file« zum Löschen von Dateien), 
die Statusmeldung des Laufwerkes anzuzeigen und Text¬ 
files auszugeben. 

Nützliche DOS-Befehle 


Damit werden Programme, die vom Benutzer Filenamen 
erfragen, ziemlich anwenderfreundlich. Da sowohl Zahlen 
als auch Zeichenketten ein- und ausgegeben werden, wer¬ 
den die Bibliotheken »SYSIOLIB.HY« (sowieso immer erfor¬ 
derlich), »DEZIOLIB.HY«, »STRINGIOLIB.HY« und »SIX¬ 
TEEN.HY« benötigt. Um »DOSCMD« auszuprobieren, 
dient ein kurzer »Programm-Kopf« wie folgt: 

100 - .BA $0000 
110 - JMP DOSCMD 

Dann werden nacheinander die Module »SYSIOLIB.HY, 
DEZIOLIB.HY, STRINGIOLIB.HY und DOSCMD.HY« mit 
»IM« (MERGE) geladen und anschließend die Übersetzung 
gestartet. Mit SYS 49152 ($C000) überzeugt man sich dann 
vom Erfolg. 

FILTER1.HY, FILTER2.HY 

Dies ist das Gerüst eines allgemeinen File- 
Konvertierprogramms. Es führt in der hier angegebenen 
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Form allerdings noch keine Konvertierung durch, sondern 
kopiert nur die Eingabe-auf die Ausgabedatei. Um das Pro¬ 
gramm mit den erforderlichen Modulen zu verbinden, muß 
man folgende Files nacheinander in den Hypra-Ass »mer- 
gen«: »FILTER1.HY« (Listing 8), »SYSIOLIB.HY« (Listing 1), 
»STRINGIOLIB.HY« (Listing 4), »SIXTEEN.HY« (Listing 5) 
und »FILTER2.HY« (Listing 9). 

File-Handling leiditgemadit 


Im Gegensatz zu den anderen Programmen wird hier der 
Objectcode nicht bei $C000 abgelegt, sondern im Basic- 
Bereich ab $0801 und daher beim Assemblieren sofort auf 
Diskette geschrieben. Im Modul »FILTER1.HY« kann man 
sehen, wie einfach ein Maschinensprache-Programm mit 
einem Basic-Kopf zu versehen ist, so daß es wie ein Basic- 
Programm zu laden (LOAD "filename",8) und mit RUN zu 
starten ist. Die eigentliche Umcodierung muß in der Rou¬ 
tine »CONVERT« geschehen. Die Zeichenübergabe erfolgt 
im Akku, man könnte also eine tabellengesteuerte 
Umwandlung einfach mit den Befehlen: 

CONVERT TAX 

LDA TABLE,X 
RTS 

TABLE .BY 0,1,2 ; 256 Byte Umkodierung 

erreichen. Allerdings ist dies Gerüst nur für eine Zeichen- 
für-Zeichen-Umwandlung zu gebrauchen. Wenn eine 
andere Umwandlung erwünscht ist (etwa PRG-Files in 
SEQ-Files in Hex-Form zur Übertragung von Programmen 
in Mailboxen), muß man eben die Schleife ab der Marke 
»CHARLOOP« so ändern, daß nicht mehr für jedes Einga¬ 
bezeichen genau einmal »CONVERT« und »PUT« aufgeru¬ 
fen wird, sondern etwa immer 16 Byte gesammelt und dann 
zusammen als Hex-Zeile konvertiert werden. Dieses Pro¬ 
gramm dient ja nur als Beispiel, das als Anregung für 
eigene Anwendungen dienen soll. Eine andere Möglichkeit 
wäre, die Ein- und Ausgabe nicht nur auf Diskfiles zu erlau¬ 
ben, sondern auch die Gerätenummern einzulesen und so 
gleich die Übertragung der Dateien auf Drucker, Bildschirm 
etc. mitzuerledigen. Eine solche allgemeine Umlenkung 
von Ein- und Ausgabe ist besonders dann von Nutzen, 
wenn man sich angewöhnt, alle Programme damit zu ver¬ 
sehen und auf diese Weise die Kopplung zu ermöglichen. 

Universelles Konvertierprogramm 


Dieses Konzept ist besonders durch das Betriebssystem 
UNIX für Großrechner und Workstations bekannt gewor¬ 
den. Dort ist es dank Multitasking sogar möglich, die einzel¬ 
nen Programme, die Zusammenwirken sollen, gleichzeitig 
auszuführen und auf Zwischendateien zu verzichten. MS- 
DOS hat die Möglichkeit, mit sogenannten »Pipes« Pro¬ 
gramme zu verketten, übernommen. Allerdings werden 
hier mangels der Fähigkeit zum Multitasking vom Betriebs- 
sytem temporäre Dateien angelegt. 

Eine Besonderheit des Filter-Programms ist noch die 
gepufferte Ausgabe. Dadurch muß bei Benutzung eines 
Einzellaufwerkes der Lese- und Schreibkopf nicht ständig 
zwischen dem Lese- und Schreibfile wechseln. Statt des¬ 
sen wird der Speicher bis $9fff als Puffer benutzt, in dem 
die Ausgaben zwischengespeichert werden, bis er entwe¬ 
der voll ist oder die gesamte Eingabe gelesen wurde. Falls 
die Ausgabe auf den Bildschirm umgelenkt wird, sollte man 
die Pufferung eventuell unterlassen oder wenigstens den 
Puffer verkleinern, da sonst die Anzeige immer mit großen 
Pausen erfolgt. 


FPBCD.HY, UPN1.HY, UPN2.HY 

Das eigentliche Unterprogrammpaket steckt hier im 
Modul »FPBCD.HY« (Listing 10) während »UPN1.HY« 
(Listing 11) und »UPN2.HY« (Listing 12) eine darauf aufbau¬ 
ende Anwendung bilden. Die Bezeichnung »FPBCD« steht 
hier für »Floating-Point/BCD«. Es handelt sich also um 
Unterprogramme, um Fließkomma-BCD-Arithmetik zu rea¬ 
lisieren. »BCD« bedeutet »Binary Coded Decimal«. Bei 
Fließkomma-Zahlen wird bekanntlich eine Zahl in der Form 
M*B E 

dargestellt, wobei M für Mantisse, B für Basis und E für 
Exponent steht. Bei den hier aufgeführten Routinen wird 
nun als Basis 10 gewählt, die Mantisse in in gepackter 
BCD-Form gespeichert (2 Dezimalziffern pro Byte) und der 
Exponent als vorzeichenbehaftete 15-Bit-Binärzahl gespei¬ 
chert. Im sechzehnten Bit wird dann das Vorzeichen der 
Mantisse (und damit der gesamten Zahl) untergebracht, die 
maximale Mantissenlänge beträgt 254 Dezimalstellen. 

Durch Veränderung einer Konstanten im Quelltext kann 
man allerdings die maximale Mantissenlänge auch gerin¬ 
ger wählen. Dies reduziert den Platzbedarf der Puffer für 
Argumente und Ergebnis. Der Vorteil der hier präsentierten 
Routinen gegenüber der Verwendung der Basic- 
Fließkommaroutinen liegt zum einen in der Unabhängig¬ 
keit vom Basic-Interpreter, dann in dem größeren Wertebe¬ 
reich (Exponent von -16384 bis +16383), der wählbaren 
Mantissenlänge und der genauen Darstellung von Zahlen, 
die sich im binären Fließkomma-Format nicht exakt darstel¬ 
len lassen. 

Der letzte Punkt bedarf vielleicht noch einer genaueren 
Erläuterung: Man hört oft, BCD-Arithmetik sei prinzipiell 
genauer als Binär-Arithmetik. Das trifft so zunächst natür¬ 
lich nicht für ganze Zahlen zu, denn diese können, solange 
der W'c^ebereich ausreicht, immer exakt berechnet wer¬ 
den. Bei Fließkomma-Zahlen sieht die Sache etwas anders 
aus. Angenommen, man möchte einen Bruch »1/M« als 
Fließkommazahl darstellen, so muß man ihn ja in die Dar¬ 
stellung 

1/M = Z,/B + Z 2 /B 2 + Z 3 /B 3 +...+ Z n /B n 
bringen. Dabei steht »B« für die Basis der Fließkommadar¬ 
stellung (bei dem hier dargestellten Paket also 10 und bei 
dem Basic-Fließkommaformat 2), »n« für die Mantissen¬ 
länge und »Z, bis Z n « für die einzelnen Ziffern der Man¬ 
tisse. Nach kurzer Umformung erhält man dann die Glei¬ 
chung 

B n / M = Z,*B n '' + Z 2 *B n ' 2 +...+ Z n 

Diese Gleichung kann nur erfüllt werden, wenn »B n « 
durch »M« teilbar ist, also wenn alle Primfaktoren von »M« 
auch in »B n « enthalten sind. Dabei wird klar, daß die Wahl 
von 2 als Exponent nicht sehr günstig ist, denn es lassen 
sich so nur Brüche »1/M« exakt darstellen, bei denen »M« 
eine Zweier-Potenz ist. Im Gegensatz dazu enthält 10 die 
Primfaktoren 2 und 5, so daß sich bei gegebener Mantis¬ 
senlänge »n« mehr Zahlen genau darstellen lassen, näm¬ 
lich alle Brüche »1/M«, bei denen sich m in nicht mehr als 
n Faktoren 2 und 5 zerlegen läßt. Dieser Vergleich ist aller¬ 
dings in einer Hinsicht nicht gerade fair: Es wurde von glei¬ 
cher Mantissenlänge n ausgegangen, wobei aber eine 
Mantisse von n binären Ziffern eben auch nur n Bit benötigt, 
eine Mantisse von n dezimalen Ziffern bei der gepackten 
BCD-Darstellung 4 mal n Bit braucht. 

Der Vergleich fällt also tatsächlich nicht ganz so schlecht 
für die binäre Darstellung aus. So kann man etwa bei 4 Byte 
Mantissenlänge (also 32 binäre oder 8 dezimale Stellen) 
die Zahl 511/512 = 0.998046875 (dezimal) = 0.111111111 
(binär) in der BCD-Darstellung schon nicht mehr exakt wie¬ 
dergeben, binär jedoch ohne Schwierigkeiten. Die Aus¬ 
sage, BCD-Arithmetik sei immer genauer als Binär- 
Arithmetik ist also in dieser allgemeinen Formulierung 
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nicht richtig. Allerdings hat die BCD-Darstellung noch 
einen großen Vorteil: Da alle Menschen dezimal zu rechnen 
gewohnt sind, treten die Rundungsfehler bei der BCD- 
Rechnung genau da auf, wo man sie auch erwartet. So hat 
sich sicher noch nie jemand gewundert, daß bei der 
Berechnung von Vs ein Fehler auftritt, während es schon 
verblüffend ist, daß eine Basic-Schleife mit Schrittweite ’/io 
von -1 bis 1 die 0 hervorragend verfehlt. Ein weiterer Nach¬ 
teil der gewählten BCD-Darstellung ist noch der höhere 
Zeitbedarf, der mit steigender Mantissenlänge quadratisch 
(bei Multiplikation und Division) zunimmt. 

Während bei 8- bis lOstelligen Zahlen die Rechenzeit 
zwar auch langsamer als bei Basic-Fließkomma- 
Arithmetik, dabei jedoch noch ganz erträglich ist, dauert 
eine Division in 254stelliger Genauigkeit für einen Compu¬ 
ter geradezu erschreckend lang. Andererseits würde sie 
mit Papier und Bleistift sicher noch länger dauern... 

Genauigkeit dunh 254 Dezimalstellen 


Die einzelnen von einem Anwenderprogramm verwendba¬ 
ren Routinen des Moduls »FPBCD.HY« sind »FPADD, 
FPSUB, FPMULT, FPDIV, LOADARG1, LOADARG2, STO- 
REAKK« und »SETPRECISION«. Es werden immer die bei¬ 
den Operanden in den internen Puffern »FPARG1« und 
»FPARG2« erwartet und das Ergebnis in »FPAKK« abge¬ 
legt. Zum Belegen der Argumentpuffer dienen die Routi¬ 
nen »LOADARG1« und »LOADARG2«. Sie erhalten im Regi¬ 
sterpaar A/Y einen Zeiger auf die im Speicher abgelegte 
Fließkommazahl, die zu laden ist. 

Das Ergebnis kann mit »STOREAKK« dann an eine belie¬ 
bige Stelle im Speicher (Adresse wieder in A/Y) kopiert wer¬ 
den. Bei der Subtraktion befindet sich der Subtrahend und 
bei der Division der Divisor im Argumentpuffer 2. Nach Aus¬ 
führung einer Rechenoperation wird das Overflow-Bit bei 
Überlauf gesetzt, so daß man immer mit dem Befehl »BVS« 
zur Fehlerbehandlung springen kann. Bei Unterlauf (Expo¬ 
nent wird kleiner als -16384) wird das Ergebnis ohne Feh¬ 
lermeldung auf 0 gesetzt. 

Vor der ersten Benutzung des Fließkommapakets muß 
man mit »SETPRECISION« die gewünschte Genauigkeit 
einstellen, dabei wird im Prozessor-Akkumulator die Man¬ 
tissenlänge in Byte (also die halbe Ziffernzahl) übergeben. 
Natürlich darf diese Zahl nicht größer als die Konstante 
»MAXLEN« im Quelltext sein. »MAXLEN« selbst darf mit 
maximal 127 vereinbart werden. Das Format einer Fließ¬ 
kommazahl lautet: 

(EXP-LOW) (EXP-HIGH) (MANTISSE-1) (MANTISSE-2)... 

Dabei wird immer einer normalisierte Darstellung der 
Form: 

0,z, Z 2 Z 3 .10° 

vorausgesetzt. Das heißt, die erste Stelle der Mantisse muß 
ungleich Null sein und ist als erste Nachkommastelle der 
Normaldarstellung zu verstehen. Das Vorzeichen der 
Fließkomma-Zahl ist in Bit 7 des »EXP-HIGH - Byte« unter¬ 
gebracht, der restliche Exponent ist als vorzeichenbe¬ 
haftete 15-Bit-Zahl zu interpretieren. Einige Beispiele mit 
der Mantissenlänge 5 Byte sollten das Format klarstellen: 
PI .WO 1 j PI ist etwa 

0.31415926*1011 

.BY $31,$41,$59,$26,$54 

MILLION .WO 7 j 1 Million 

= 1016 = 0.1 * 

10t7 

.BY $10,$00,$00,$00,$00 

MIMILLI0N .WO $8000+7 ; -1 Million 

(Vorzeichen Bit 15) 

.BY $10,$00,$00,$00,$00 


HUNDERTSTEL .WO $7FFF ; Exponent ist -1, 

Vorzeichen der 
.BY $10,$00,$00,$00,$00 ; Mantisse ist 0 
TAUSENDSTEL .WO $7FFE ; Exponent ist -2, 

Vorzeichen der 
.BY $10,$00,$00,$00,$00 ; Mantisse ist 0 
MITAUSENDST .WO $FFFE j Exponent ist -2, 

Vorzeichen der 
.BY $10,$00,$00,$00,$00 ; Mantisse ist 1 

Die Routinen des Moduls »FPBCD.HY« benötigen übri¬ 
gens die Makrobibliothek »SIXTEEN.HY«. Bei der Pro¬ 
grammierung des Fließkommapakets zeigte sich ein Pro¬ 
blem des Hypra-Ass. Dieser kennt nämlich keinen Befehl, 
um eine bestimmte Menge Platz zu reservieren, wie dies 
etwa andere Assembler mit der Anweisung DS 10 (wie 
Giga-Ass) oder 
* = * +10 

können. Solange man nur in den Speicher assembliert, 
läßt sich der gewünschte Effekt mit 

PC .BA PC+10 

erreichen. Bei der Ausgabe des Code auf eine Datei funk¬ 
tioniert das jedoch nicht. Leider wird aber eine solche Platz¬ 
reservierung benötigt, um die Fließkommapuffer jeweils 
entsprechend dem Wert von »MAXLEN« vereinbaren zu 
können. Aus diesem Grund wird ein Makro »DS« (Listing 6) 
definiert, das mit einer Assemblerschleife solange ».BY« - 
Befehle erzeugt, bis der gewünschte Platz reserviert ist. 
Dieses Verfahren ist aber nicht besonders schnell, man 
merkt das an der unterschiedlichen Dauer einer Assem¬ 
blierung für verschiedene Werte von »MAXLEN«. 

Die Module »UPN1.HY« und »UPN2.HY« sollen ein An¬ 
wendungsbeispiel für die Fließkommaroutinen darstellen. 
Hier wird ein Tischrechner mit UPN-Bedienung realisiert. 
»UPN teht für »umgekehrte polnische Notation«. Das ist 
die Methode, mit der auch Hewlett-Packard-Taschenrech- 
ner arbeiten. Dieses Verfahren benutzt einen Stack von 
Zahlen. Man kann nun beliebig viele Zahlen eingeben (bis 
der Stack voll ist) oder einen der Befehle »+,-,* und /«. Bei 
Eingabe eines dieser Befehle wird die entsprechende Ope¬ 
ration mit den obersten beiden Zahlen auf dem Stack 
durchgeführt, diese vom Stack entfernt und das Ergebnis 
wieder auf den Stack gelegt. 

Rechnen mit 

»umgekehrt polnischer Notation« 


Der hier vorgestellte UPN-Rechner kann noch etwas mehr: 
Er zeigt immer vor dem Eingabeprompt die Anzahl der auf 
dem Stack liegenden Zahlen an und kennt noch die zusätz¬ 
lichen Befehle »D« (DROP, entfernt oberste Zahl vom 
Stack), »I« (verdoppelt oberste Zahl), »-« (vertauscht die 
beiden obersten Zahlen), »?«(Ausgabe der obersten Zahl, 
diese bleibt auf dem Stack liegen, wird automatisch nach 
jeder Rechenoperation durchgeführt) und »X« (EXIT). 

Bei der Eingabe ist zu beachten, daß die Befehlszeichen 
immer ohne führende Leerzeichen eingegeben werden 
müssen und umgekehrt bei der Eingabe von negativen 
Zahlen wenigstens ein Leerzeichen vor dem Minus- 
Zeichen stehen muß, da das Minus sonst als Operator fehl¬ 
interpretiert wird. Die Eingabeformel lautet: 

Vorzeichen Vorkommaanteil ».« Nachkommaanteil »e« 
Exponentenvorzeichen Exponent 

Jedes dieser Teile kann auch entfallen. Vor der Zahl dür¬ 
fen beliebig viele Leerzeichen stehen, zwischen den ein¬ 
zelnen Zeilen jedoch nicht. Die Ausgabe erfolgt im normali¬ 
sierten Format, das heißt in der Form: 
O.ddddddddddddevp oder 
-O.ddddddddddddevp 
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wobei »d« für Dezimalziffer, »v« für das Vorzeichen des 
Exponenten sowie »p« für diesen Exponenten selbst ste¬ 
hen. Ein Beispiel für die Bedienung des UPN-Rechners: 

Mit SYS 12 * 4096 starten 
00> 2 

01 >3 
02 >/ 

01 > 0.66666666666667e+0 
01 > -20 
02 >/ 

01 >-0.33333333333334e-1 
01 > lei 000 
02 >/ 

01 >-0.33333333333334e-1001 
01 >x Ende 

Um den UPN-Rechnerzu übersetzen, müssen nachein¬ 
ander folgende Module mit »/M« zusammengefügt werden: 
»UPN1.HY« (Listing 12), »SYSIOLIB.HY« (Listing 1), 
»STRINGIOLIB.HY« (Listing 4), »SIXTEEN.HY« (Listing 5), 
»DS.HY« (Listing 6), »FPBCD.HY« (Listing 10) und 
»UPN2.H Y« (Listing 12). Der Objectcode wird im Bereich ab 
$C000 abgelegt. Der restliche Platz bis $cfff wird als Stack 
für die Fließkommazahlen benutzt. Je nachdem, wie groß 


»MAXLEN« gewählt wurde, passen unterschiedlich viele 
Zahlen auf den Stack. Ein Überlauf wird vom Programm 
erkannt. 

Zum Schluß noch ein Hinweis: Wenn ein nicht definiertes 
Makro aufgerufen wird, gibt der Hypra-Ass eine Fehlermel¬ 
dung mit unsinniger Zeilennummer an. Man findet jedoch 
die Fehlerzeile relativ einfach, wenn man sich mit dem 
Befehl »/I« die unsortierte Liste der Labels ausgeben läßt. 
Diese werden nämlich in der Reihenfolge ausgegeben, in 
der sie definiert wurden. Man braucht also erst ab der Zeile 
im Quelltext zu suchen, in der das letzte ausgegebene 
Label definiert wurde. Alle hier abgedruckten Listings sind 
mit dem Hypra-Ass, der im Assembler-Sonderheft 8/85 ver¬ 
öffentlicht wurde, einzugeben. Eine Konvertierung ins 
Giga-Ass-Format ist aber mit dem in diesem Sonderheft 
veröffentlichten Programm »HYPRA-KONVERT« (Seite 
116ff) ebenso möglich. (D. Zabel/Martin Jobst) 

Llloralurvorwoise: 

(1) Brown, Polor J„ Macro Procassors (John Wlloy & Sons 1974) 

(2) Kornlghan/Plauger, Programmierwerkzauge (Springer 1980) 

(3) Nabereil, Herbert: Makro-48 - Assembler Im Assembler (C’t 8/84, S. 44) 

(4) Richards, M., The Portabillty ol Ihe BCPL Compiler (Sollware, Praolice and Eporience 1,1977, 
S.135) 

(5) Schlnke, Ulrich: Arllhmollk-Unlerrlchl lür 6502 und Z80 (c’l 3/84, 4/84, 6/84) 

(6) van der Waloren, Frils: <?PM (or Ihe M6800 (Dr. Dobb's Journal, 10/77, S. 22) 


»00 >« ist die Eingabe¬ 
aufforderung (Prompt) 

2 und 3 eingeben 
Division 

Ergebnis wird gerundet 
Leerzeichen ist nötig 


1000 

-J 



1100 

rt 




1005 

-J 

ayoton l/o llbrary 

fuor c 64 

1105 

na 

noloaelfn 



1010 




1190 

- 

lda 

Bf n 


1015 

-J kornal-dunptabollo 


1195 

- 

jsr 

oloae 


1020 

-.gi 

booout-Sf f 02 

l xoichon-auagabo 

1200 

rt 




1025 

“• gl 

bonln-$ffcf 

; xelohen-elngabe 

1205 

-. na 

ndatat(dv 

buffer) 


1030 

gi 

gotln=Sffo4 

; «lo bosio-got 

1210 

- 

lda 

dv 


1035 

-• gl 

chkin-$ffc6 

; eingabe auf fllo unachnlten 

1215 

- 

ldx 

■ <( buffer) 


1040 

- gi 

chkout B $ffc9 

; ausgabe auf fllo unochalten 

1220 

- 

ldy 

|>(buffer) 


1045 

gi 

clrohn*$rrco 

; ein/ausgabe aurueok auf taatatur und blldschira 

1225 

- 

dar 

d9tat 


1050 

gi 

open=9ffcO 

; flle ooffncn (vorher ootnnn und setlfs) 

1230 

rt 




1055 

gi 

olose=9ffo3 

; fllo achlioaaon (filonr in akkul 

1235 

triok-nakro 

damt auoh in 

leeren Zeilen label gesetzt «erden koennen 

1060 

1065 

-.gi 

gi 

talk»$rfb4 

untalk=$ffab 

*, geraet an bua als talker adrooaioron 
*, talker entadrea9ieren 


nix 



1070 

-- gi 

liston=9ffb1 

; geraet an bua aln llatonor adroasioron 

1250 

holt floppy 

atatusnoldung 

ln puffor bol x/y, nkku=geraetenun«er 

1075 

-. gi 

uniiston-9ffao 

; alle liatener ontadreaaleren 

1255 

—, ergebnis: eq nenn ok, ne 

enn nioht ok 

1000 

-. gl 

iecin=$ffa5 

; dlrokto oingabo von bua 

1260 

-dstat stx 

Pt 


1005 

-.gi 

iocout=9ffa8 

; direkte ausgobe auf bua 

1265 

-. gi 

dstat=dstat 


1090 

*.gi 

talkaa-$ff96 

; aokundaeradresae fuer talker senden 

1270 

- 

aty 

pt*1 


1095 

-, gl 

liotenaa=$fm 

; Bekundaorodrooao fuor liotonor aondon 

1275 

- 

dar 

talk 


1100 

-. gi 

atopeq-Ofrel 

; atoptaste Abfragen (aero-flog geaetxt bei atop) 

1200 

- 

lda 

115! o! 960 


1105 

- gi 

setna«=$rrbd 

i adreann und laengo dos fllonanen uebergoben 

1205 

- 

dar 

talkea 


1110 

-.gi 

netlfa"9ffbn 

1 filonunner, geraet und aekundaeradroooo uoborg. 

1290 

- 

ldy 

10 


1115 

-• gi 

roadat=$rfb7 

; atatua-byte holon (onataprioht at in baaio) 

1295 

-gototot dar 

iocin 


1120 

-.gi 

pt-9rb 

; xoro-pBge-xeigor fuer diverse aaecke 

1300 

- 

ata 

(pt),y 


1125 

-. gi 

or=90d 

; haeuflg benutato konstanto 

1305 

- 

iny 



1130 

1135 

na 

fflopenf fn,dv,sa,name,nlen) 
lda Ifn 

1310 

1315 

: 

onp 

bno 

lor 

gotstat 

Listing 1. SYSIOLIB.HY. Bitte 

1140 

1145 

1150 

- 

ldx dv 
ldy Iso 
dar ootlfa 


1320 

1325 

1330 

- 

dey 
lda 10 
ata ( pt),y 

dieses und alle folgenden 
Listings mit dem Hypra-Ass aus 

1155 

1160 

_ 

lda nlon 
ldx •<( nano) 


1335 

1340 

; 

dar 

ldy 

untalk 

10 

Sonderheft 8/05 eingeben (oder 

1165 


ldy •>( nano) 


1345 

1350 

1355 

- 

lda 

and 

rta 

l Pt). y 

•90f 

entsprechend abgeändert mit 

1175 

' 

dar opan 


~ 

dem Giga-Ass auf Seite 116) 


2000 -l 

2150 


boo lnporr 


2005 -1 untorprogronno und ngkroo xur oin/auagnbo von hoxadozlnalxahlo» 

2155 

- 

onp l93o 

i"9”»1 

2010 “i untorprogronno: 

2160 

- 

boo lnpdlg 


2015 -j gonoroll: naoh oingabo »lrd das oarry-blt geaoLxt, 

2165 

- 

°*P 13,7 

l"f"*1 

2020 -j «onn oin fohlor foatgoolollt «urdo 

2170 

- 

bco lnporr 


2025 Inhoxbyto: olnloson ainor 2-stolllgon hoxadoxlnalzahl, orgobnla 1« akku 

2175 

- 

onp l"a" 


2030 -{ inputhox: olnlooon olnor 4-atolllgon hoxodoxlnalaahl, 

2100 

- 

boo lnporr 


2035 -i orgobnlo ln akku ( lo« byto) und ln y-roglotor (hlgh-byto) 

2185 

- 

nbo |7 


2040 -i prhoibyto: auagaho dos nkku-lnhnltoo als 2-stolllgo hoxadoxlnolxahl 

2190 

-lnpdlg 

ond I90f 


2045 -1 prlnthox: ouogobo von a/y (akku:lo«, yrhlgh) als 4-atolllgo hox-iahl 

2195 

- 

olo 


2050 nakron: 

2200 

- 

rts 


2055 -1 nlnputhox«ad): 4-atolllgo hoxodoainalanhl noch ad/adM olnlooon, 

2205 

-lnporr 

000 


2060 -1 nprlnthox«ad): 2 byto bol od/od»1 alo 4-stolllge hoxadoxinalxohl ausg. 

2210 

- 

rto 


2065 -lnputhox Jsr Inhoxbyto 

2215 

-prlnthox 

pho 


2070 -.gl lnputhox-1nputhox; auch fuor nakroo bokonntgobon 

2220 

-. gl prlnthox-prl nthox 


2075 - bos hxorr 

2225 

- 

pho 


2080 - toy 

2230 

- 

tya 


2085 -Inhoxbyto dar lnpnlb 

2235 

- 

dar prhoxbyto 


2090 - bos hxorr 

2240 

- 

pla 


2095 - aol 

2245 

-prhoxbyte 

pho 


2100 - aol 

2250 

- 

lsr 


2105 - aol 

2255 

- 

lor 


2110 - aol 

2260 

- 

lor 


2115 - sta pt i pt als zalochonapolehor 

2265 

- 

lor 


2120 - dar inpnib 

2270 

- 

dar prnlb 


2125 - bco hxorr 

2275 

- 

pla 


2130 - ora pt 

2280 

-prnlb 

ond l9or 


2135 -hxorr rts 

2285 

- 

onp |10 


2140 -inpnib dar baeln 

2290 

- 

bco prdig 


2145 - cnp |"0" 

2295 

- 

ade 16 



2300 

-prdig 

ado l" 0 “ 

; carry Ist gelooscht 


42 
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3505 


bce numl 


3510 

- 

ino pt+1 


3515 

- 

boq nunerr 


3520 

-numl 

iny 


3525 

- 

cpy 16 


3530 

- 

boo numloop 


3535 

-nunerr 

■ 00 


3540 

- 

rta 


3545 

-dexinoilt 

bl». dlgltflag 


3550 

- 

bpi numorr 


3555 

- 

olo 


3560 

- 

lda pt 


3565 

- 

ldy pt + 1 


3570 

- 

rto 


3575 

-deacount 

. by 0 


3500 

-doabuffer 

. by 0,0, 0,0,0 


3505 

-dlgltflag 

. by 0 


3590 

-. «o nprlntdoal ad) 


3595 

- 

lda ad 


3600 

- 

ldy ad»1 


3605 

- 

Jtr prlntdei 


3610 

rt 



3615 

■■ ninputdei( ad) 


3620 

-agaln 

Jar lnputdex 


3625 

- 

boo ok 


3630 

- 

lda • "?“ 


3635 

- 

Jor boaout 


3640 

- 

jmp agaln 


3645 

-ok 

■ ta ad 


3650 

3655 

rt 

■ty ad+1 

Listing 3. DEZIOLIB.HY 


2305 



Jmp booout 

2360 - lda ad 

2310 

na 

»lnputhexl ad) 

2365 - ldy ad*1 

2315 

-agaln 

jar lnputhox 

2370 - jsr prinlho« 

2320 

- 


boc ok 

2375 rt 

2325 

- 


lda I-?- 


2330 

- 


jar basout 


2335 

- 


jmp agaln 


2340 

-ok 


oto ad 


2345 

- 


aty ad«1 


2350 

2355 

rt 

na 

nprinthoxt ad) 

Listing 2. HEXIOLIB.HY 


3000 

-J oln/nuogabo 

von 16-blt-aorton ala 

3005 

-j dos 1«ollahlon (ohno voraalohon) 

3010 

untorprogranao: 


3015 

-j prlnt das: a/y als dailnaliahl mit vornullonuntardruookung au»gobon 

3020 

lnputdos: doalmalanhl alnlooon, orgobnla ln o/y 

3025 


oarry goootat bodoutot fohler 

3030 

-l makroo: 




3035 

-j nprlntdaa( ad) 16-blt aorl 

an adroaao od/ad*1 doalnol ouagobon 

3040 

-i mlnputdeit ad) 16-blt wert 

ainleaon und lm apalohor bol od/nd+1 oblogon 

3045 

-prlntda« 

■ ta 

pt 


3050 

gl prlntdoa- 

prlntdoa; auch 

ln makroe boknnntgobon 

3055 

- 

aty 

pt *1 


3060 

- 

lda 

»0 


3065 

- 

ldy 

• 4 


3070 

-olrbur 

■ ta 

doabuffer, y 


3075 

- 

doy 



3080 

- 

bpi 

olrbuf 


3005 

- 

ldx 

116 


3090 

- 

Btl 

doacount 


3095 

-hoxtodeo 

1dl 

15 


3100 

- 

ldy 

• 0 


3105 

- 

olo 



3110 

-doublo 

lda 

deabuffer,y 


3115 

- 

rol 



3120 

- 

omp 

•10 


3125 

- 

boc 

nooarry 


3130 

- 

□ bo 

• 10 


3135 

-nooarry 

BtO 

doabuffor, y 


3140 

- 

lny 



3145 

- 

dox 



3150 

- 

bne 

double 


3155 

- 

aol 

Pt 


3160 

- 

rol 

pt+1 


3165 

- 

boo 

null 


3170 

-inodec 

lda 

deabuffer, x 


3175 

- 

olo 



3100 

- 

ado 

• 1 


3105 

- 

cnp 

•10 


31 90 

- 

boo 

incdocox 


3195 

- 

ldu 

•0 


3200 

_ 

ata 

deabuffer, x 


3205 

- 

inx 


S^ER 

3210 

- 

bne 

inodec 


3215 

-lncdecex 

sto 

doabuffor, x 


3220 

-null 

deo 

deacount 


3225 

- 

bno 

hoxtodeo 


3230 

- 

ldx 

•4 


3235 

-decout 

lda 

doabuffor,x 


3240 

- 

bne 

notO 


3245 

- 

bl t 

deacount 


3250 

- 

bpi 

skipla ; 

fuehrendo nullen untordrueoken 

3255 

- 

bnl 

prdigit 


3260 

-notO 

doo 

deacount ; 

flog: schon aiffern nusgognbon 

3265 

-prdigit 

ora 

»“0” 


3270 

- 

jar 

baoout 


3275 

-skipla 

dex 



3200 

- 

bpi 

decout 


3205 

- * 

bit 

deacount 


3290 

- 

bml 

doaoutoxit 


3295 

- 

lda 

i 

>onn alle nullon untordruockt, 

3300 

- 

jar 

baaout ; 


3305 

-daaouteilt rta 


3310 

-lnputdoa 

ldy 

•0 


3315 

-.gl lnputdoa- 

nputdoa 


3320 

- 

aty 

Pt 


3325 

- 

aty 

pt + 1 


3330 

- 

oty 

dlgltflag 


3335 

-numloop 

Jar 

baeln 


3340 

- 

blt 

dlgltflag 


3345 

- 

bml 

notfirotd 


3350 

- 

cmp 

, 

looraolchon uoborlooon 

3365 

- 

boq 

numloop 


3360 

-notfirotd 

omp 

• "0" 


3365 

- 

boo 

doxlnoxit 


3370 

- 

nbo 

• "0“ 


3375 

- 

cmp 

• 10 


3300 

- 

bca 

doxlnoxit 


3305 

- 

tax 



3 3 90 

- 

lda 

isrr 


3395 

- 

oto 

dlgltflag 


3400 

- 

aal 

Pt 


3405 

- 

rol 

pt*1 


3410 

- 

boa 

numorr 


3415 

- 

lda 

pt+1 


3420 

- 

olo 

deacount 


3425 

- 

lda 

pt 


3430 

- 

aol 

Pt 


3435 

- 

rol 

pt+1 


3440 

- 

boo 

numorr 


3445 

- 

aal 

pt 


3450 

- 

rol 

pt+1 


3455 

- 

boa 

nunerr 


3460 

- 

ade 

Pt 


3465 

- 

ata 

pt 


3470 

- 

lda 

pt+1 


3475 

- 

ade 

dozoount 


3480 

- 

ata 

pt+1 


3485 

- 

bCB 

numorr 


3490 

- 

txa 



3495 

- 

ado 

Pt 


3500 


ata 

Pt 



4000 



4005 

-5 aeiohenketten oin und auagobo 

4010 

-1 


4015 

Unterprogramme: 

4020 

“5 inputs: 

lleat aelchenketto ein 

4025 

-1 

a/y aelgt ouf ablagoadroaeu, lm x-regloter eteht die 

4030 

-5 


4035 


nach dom aufruf otoht im y-reglotor die anaohl der 

4040 


tateaeohlIch gelesenen «eichen 

4050 

' 

dahor muoa an der ablageadresae mindeatena 1 byte mehr 

4055 

-• 

plota «ur verfuogung stehen als aolohen erwartet werden 

4060 

-ji printa: 

gibt xoichonkette an dor ndreoae a/y aus, endo »uns mit 

4065 

-j 

0 markiert sein 

4070 

“l writoo: 

gibt ebenfalls aeichenkette aus, diese stoht direkt in 

4075 


an8chlues an den untorprogranmaufruf und nuaa mit 0 

4060 


obgo8chloa9en werden 

4085 

—, crlf: 

aetat cureor ouf don anfang der naeohaten «eile 

4090 

-• 


4095 •Jkros: 


4100 

—, minputstad, len) eingabe 

4105 

-j; mprint9(ad) ausgobe 

4110 

-inputo 

atx naxlona 

4115 

-.gl lnputs=inputa; damit Inputo auch von makros aus sichtbar ist 

4120 

- 

ata pt 

4125 

- 

aty pt«1 

4130 

- 

ldy >0 

4135 

-lnputlp 

cpy maxlono 

4140 

- 

beq lnputax 

4145 

- 

jar baaln 

4150 

- 

cnp lor 

4155 

- 

boq lnputax 

4160 

- 

ata ( pt),y 

4165 

- 

lny 

4170 

- 

bno lnputlp 

4175 

-lnputax 

lda 10 

4100 

- 

ata < pt).y 

4185 

- 

rta 

4190 

-printa 

ata pt 

4195 

gl printo-prlnto 

4200 

- 

aty pt+1 

4205 

- 

ldy (0 

4210 

-pnntlp 

lda (pt), y 

4215 

- 

boq printax 

4220 

- 

Jur basout 

4225 

- 

ino pt 

4230 

- 

bne prlntlp 

4235 

- 

ino pt+1 

4240 

- 

bno prlntlp 

4245 

- 

bno prlntlp 

4250 

-prlntox 

rt« 

4255 

-maxlono 

. by 0 

4260 

-■rltea 

pla 

4 26 5 

- 

olo 

4270 

- 

ado |1 

4275 

- 

tax 

4200 

- 

pla 

4285 

- 

odo «0 

4290 

- 

tay 

4295 

- 

txa 

4300 

- 

Jor prlnto 

4305 

- 

lda pt+1 

4310 

- 

pha 

4315 

- 

lda pt 

4320 

- 

pha 

4325 

- 

rte 

4330 

-crlf 

lda lor 

4335 

- 

Jmp boaout 

4340 

ma KDrintal odr) 

4345 

- 

lda |<(adr) 

4350 

- 

ldy •>( odr) 

4355 

- 

Jar printa 

4360 

-. rt 


4365 

-. ma ninputsl adr, len) 

4370 

- 

lda •<(adr) 

4375 

- 

ldy •>( adr) 

4380 

- 

ldx *len 

4385 

4390 

rt 

jsr Listing 4. STRINGIOLIB.HY 
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5000 -j 
5005 -j 

16 -bit-naorollb 


5010 

fuor gobrauch nlt hypra-aaa 


5015 -J 

load o/y 


5020 mo 

lday(ad) 


5025 - 

1 da ad 


5030 - 

ldy ad *1 


5035 rt 
5040 -.HO 

IdayK ad) 


5045 - 

Ido l<(ad) 


5050 - 

ldy Mail) 


5055 -.Pt 
5060 -J 

»toro a/y 


5065 na 

atay(ad) 


5070 - 

ata ad 


5075 - 

aty od»l 


5000 rt 

5005 -i 

novo byto 


5090 na 

novnbl fron, toJ 


5095 - 

1 da fron 


5100 - 

ata to 


5105 rt 
5110 na 

novabi« val, to) 


5115 - 

1 da Ival 


5120 - 

oto to 


5125 rt 

5130 

novo «ord 


5135 -.na 

novo«! fron, to) 


5140 - 

... ldoylfron) 


5145 - 

... atay(to) 


5150 rt 

5155 «a 

novo«i( val,to) 


5160 - 

.. IdayK val) 


5165 - 

... otay(to) 


5170 rt 

5175 

add «ord 


5180 na 

odd«< ad) 


5185 - 

olo 


5190 - 

fldc ad 


5195 - 

pha 


5200 - 

tya 


5205 - 

ado ad+l 


5210 - 

tay 


5215 - 

pla 


5220 rt 

5225 -.na 

add«l(val) 


5230 - 

clo 


5235 - 

ade l«val) 


5240 - 

pha 


5245 - 

tya 


5250 - 

ade •>(val) 


5255 - 

tay 


5260 - 

pla 


5265 -. rt 
5270 -; 

sub Mord 


5275 -.na 

3UbM< nd) 


5280 - 

sec 


5285 - 

obe ad 


5290 - 

pha 


5295 - 

tya 


5300 - 

sbc ad *1 


5305 - 

tay 


5310 - 

pla 


5315 -. rt 
5320 -. «a 

sub«K val) 


5325 - 

seo 


5330 - 

sbc •<(val) 


5335 - 

pho 


534 jj - 

tya 


5345 - 

obo l><val) 


5350 - 

tay 


5355 - 

pla 


5360 rt 

5365 -; 

conparo «ord unolgned 


5370 na 

onp«< ad) 


5375 - 

opy ad *1 


5380 - 

bne capNl 


5385 - 

cnp ad 


5390 -onpal ... nix 


5395 rt 



5400 -. na 

'npMl(val) 


5405 - 

opy •>(val) 


5410 - 

bna onpMl 


5415 - 

cnp •<(val) 


5420 -onpal ... nix 


5425 -. rt 
5430 

lnorenont 


5435 -.na 

nc«( ad) 


5440 - 

inc ad 


5445 - 

bne Inoal 


5450 - 

lno ad »1 


5455 -Ino« 

... nix 


5460 rt 

5465 

deoranent 


5470 na doc«( ad) 


5475 - 

pha 


5400 - 

ldn ad 


5485 - 

bno doc «1 


5490 - 

doo ad »1 


5495 -doo« 

doo ad 


5500 - 

pla 


5505 -.rt 
6510 -i 

puah a on uoor stock 


5515 -. na puahbt uap) 


5520 - 

aty nnvny 


5525 - 

ldy 10 


5530 - 

ata ( unp), y 


5535 - 

. . . deont uap) 


5540 - 

ldy oavoy 


5545 -. rt 
5550 -s 

puah a/y on uaer atack 


5555 -. na pushMt uap) 


5560 - 

pha 


5565 - 

tya 


5570 - 

. . . puahbf uap) 


5575 - 

pla 


5500 - 

. . . puahbt usp) 


5585 -. rt 
5590 -} 

pul 1 e ... 



5595 -. na 

pullbt uap) 


5600 - 

... lncM(uap) 


5605 - 

aty savey 


5610 - 

ldy 10 


5615 - 

Ido ( usp), y 


5620 - 
5625 -. rt 

ldy aavoy 


5630 -J 

pull a/y 


5635 - na 

pull«< uap) 


5640 - 

.. . pullbt usp) 


5645 - 
5650 - 

tay 

.. . pullbt usp) 

Llsting 5. SIXTEEN.HY 


6000 -. na dat len) 


6010 -. 1f len 1 >1 0 


6020 -. by 0 


6030 -.eq len-lon-1 


6040 -. go 6010 


6050 -. ol 


6060 -. rt 

Listing 6. DS.HY 


10000-doaond 

Jar nrltaa 

10005-. tx "goraet: 8" 

10010-. by 157,0; ouraor laft 

10015- 

Jar lnputdox 

10020- 

boo nunok 

10025-dovbad 

rte 

10030-nunok 

opy *1 

10035- 

boa dovbad 

10040- 

cnp 132 

10045- 

boa dovbad 

10050- 

ata dovloo 

10055- 

Jar orlf 

10060- 

Jar Mrlton 


10070-. by er 
10075-. tx "$ 

■ catalog" 

10080-. by er 

10085-. tx "! 

■ liot filo“ 

10090-. by er 
10095-. tx “q 

■ quit" 

1Q100-. by er, 0 

10105-loop 

lda |">“ 

10110- 

Jar basout 

10115-Maitkey 

Jar baain ; pronptxoichon 

10120- 

cnp •">" ; ignorieren 

10125- 

beq Maitkey 

10130- 

sta lino 

10135- 

cnp #cr 

10140- 

bno notonpty 

4S'*s- 

... ndstattdevice, line) 

10150- 

. . . nprintaf line) 

10155- 

jar orlf 

10160- 

Jnp loop 

10165-notempty 

... ninputot<linotl), 31) 

10170- 

iny 

10175- 

aty cndlon 

10180-foundcnd 

J8r orlf 

10185- 

lda line 

10190- 

cnp |“q" 

10195- 

bne notquit 

10200- 

rta 

10205-notqult 

onp #"!" 

10210- 

beq dollat 

10215- 

jnp notlist 

10220-dolist 

doc cndlon 

10225- 

nopent1, device, 2, ( 1lne«1), cndlon) 

10230- 

... ndotottdevico, line) 

10235- 

boq fileok 

10240- 

... nprintatline) 

10245- 

jar orlf 

10250- 

jnp oxitlist 

10255-flleok 

... nove«it 0, 1 lnun) 

10260-noxtl1n 

ldx 8i 

10265- 

Jar ohkln 

10270- 

... nlnputstlino, 80) 

10275- 

jar roadat 

10280- 

php 

10205- 

Jor olrohn 

10290- 

. . . inoMt linun) 

10295- 

... nprlntdoxt11 nun) 

10300- 

lda t": " 

10305- 

Jar baaout 

10310- 

. . . nprintat lino) 

10315- 

Jor orlf 

10320- 

pip 

10325- 

bne oxitliat 

10330- 

Jar tootkoy 

10335- 

bno naxtlin 

10340-oxltl1at 

.,. nolooat1> 

10345- 

Jnp loop 

10350-notllot 

onp l“9" 

10355- 

bna notoat 

10360- 

... nopont1,dovloo, 0, lino, cndlon) 

10365- 

ldx |1 

10370- 

Jar ohkln 

10375- 

jar baain j ladoadroaao ueberleoon 

10380- 

jar baain 

10385- 

Jor olrohn 

10390-oatllna 

ld« ll 

10395- 

Jar ohkln 

10400- 

Jar baain 

10405- 

Jor banin j llnkadreaso 

10410- 

Jar roadat 

10415- 

bno oataxlt 

10420- 

Jar baoin 

10425- 

pha 

10430- 

jor baoin 

10435- 

tay 

10440- 

pla 

10445- 

Jar printdex 


illne.de 

iline.net 


44 


SONDERHEFT 21 












C64 


ASSEMBLER-ANWENDUNG 


10390- 

ata 

dostnome,y 

10400- 

sta 

deatnomo *2,y 

10410- 

iny 


10420- 

lny 


10430- 

*ny 


10440- 

lny 


10450- 

aty 

daatlen 

10460- 


mopen«1, dev, 0, aronnmo, arolen) 

10470- 


mdotat(dev,sog) 

10480- 

bne 

badatat 

10490- 


mopont 2,dov, 9, deatnaae, deotlon) 

10500- 


mdotot« dov, mag) 

10510- 

bne 

bodotat 

10520- 

Jar 

emptybur 

10530- 

ldx 

•i 

10540- 

Jar 

ohkln 

10550-oliarloop 

jer 

baaln 

10560- 

pho 


10570- 

J«r 

raadat 

10580- 

ata 

atat 

10590- 

pla 


10600- 

Jar 

oonvort 

10610- 

J«r 

put 

10620- 

Jar 

atopaq 

10630- 

boq 

panlo 

10640- 

lda 

atat 

10650- 

boq 

oharloop 

10660- 

Jar 

fluah 

10670-panlc 

Jar 

olrchn 

10600- 


melooot1> 

10690- 


moloaot 2) 

10700- 

rta 


10710-bodotnt 


mprl nto( mag) 

10720- 

Jar 

orlf 

10730- 

Jmp 

panlo 

10740-pUt 

pha 


10750- 


lday( pt) 

10760- 


cmpM( ondpt) 

10770- 

boo 

putohar 

10780- 

Jar 

fluah i nenn puffer voll, dienen erat ouogeben 

10790-putohar 

pla 


10000- 

ldy 

»0 

10010- 

ato 

(pt),y 

10020- 


ino*( pt) 

10830- 

rto 


10040-fluali 


moveH< pt, ondpt) 

10850- 

Jar 

clrohn 

10060- 

ldx 

#2 

10870- 

Jar 

ohkout 

10880- 


movenH bufforstart, pt) 

10890-fluahloop 


lday« pt) 

10900- 


cnpM( ondpt) 

10910- 

bca 

flushx 

10920- 

ldy 

80 

10930- 

Ido 

(Pt).y 

10940- 

Jar 

baoout 

10950- 


inoH< pt) 

1096? 

Jar 

stopeq 

10970- 

beq 

flushx 

10900- 

Jmp 

flushloop 

10990-f1ushx 

jar 

enptybuf 

11000- 

ldx 

8i 

11010- 

jar 

ohkln 

1 1020- 

rto 


11030-emptybuf 


moveaitbufferatart,pt) 

11040- 


moveu(ramtop, endpt) 

11050- 

rto 


11060-eonvert 

rto 

; hier die eigentliche UBcodlorung olnbauon! 

1 1070-burferstart . by 0 

1 1080-. en 


Listing 9. FILTER2.HY 


10450- 

lda 

■ 

10455- 

J«r 

boaout 

10460-prnaae 

Jer 

baaln 

10465- 

cmp 

80 

10470- 

beq 

oxltlino 

10475- 

Jer 

baoout 

10480- 

J*P 

prnamo 

10405-oxitl1no 

Jar 

orlf 

10490- 

Jar 

olrchn 

10495- 

Jar 

toatkoy 

10500- 

bne 

call1 ne 

10505-oateilt 

Jar 

clrohn 

10510- 


mclosol1) 

10515- 

Jmp 

loop 

10520-notoot 

lda 

dovlce 

10525- 

Jar 

llaton 

10530- 

lda 

11 51 ol 960 

10535- 

Jar 

1lBienen 

10540- 

ldy 

• 0 

10545-eondcmd 

lda 

11no,y 

10550- 

beq 

oadready 

10555- 

Jar 

iooout 

10560- 

lny 


10565- 

bne 

sendend 

10570-cmdready 

lda 

•or 

10575- 

Jar 

iooout 

10500- 

Jar 

unllaton 

10505- 

Jmp 

loop 

10590—, ueberpruoft 

ob atop-tnate godruookt und 

10595-, «ortet, 

■onn leertaate gedruackt 

10600-j ergobnla: "oq", «onn otop, "ne” aonat 

10605-.eq etop- 



10610-.eq blnnk 

»920 


10615-teatkay 

Jar 

gotln 

10620- 

cmp 

8atop 

10625- 

boq 

taotx 

10630- 

cmp 

Sblank 

10635- 

bne 

toatx 

10640-noI tnext 

Jar 

getln 

10645- 

10650- 

cmp 

boq 

Listing 7. DOSCMD.HY 


100 



110 

-j * 

A 

120 

* allgemeiner Start eines asseobler- 

A 

130 

* Programms, dos im baolc-beroich 


1 40 

* liegt und mit 'run' gestartet «erden 

A 

150 

-j * soll. 

A 

160 

-• * 

• 

170 

««A***1«A******«»»««»«««»*«*»«*«*<»«**"«*»»*'« 

180 

objectcode muss auf floppy goschickt «erden, damit 

190 

-; hypra-aas nicht ueberschrieben mrd 


200 

eq sys=99o 


210 

-.eq ramtop-$37 


220 

ob "60: flltor, p, ■" 


230 

ba 9801 


240 

-.«o baslink, 1987 


250 

260 

by aya 
tx "( 2063)" 

Listing 8. FILTER1.HY 

270 

-. by 0 


280 

-baslink . «o 0 


290 

-begln Jmp atart 


300 

-! hier blbllotheken: syaiollb, stringiollb 

und sixteen einfuegon 




10010-i* 

* 

10020-;* ob hier beginnt daa eigentliche programm * 

10030-, * 

* 

10040“!AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

10050-oronome 

. tx “ 18 byto 

10060-arolon 

. by 0 

10070-daatname 

. tx " "j 23 byto 

10000-dootlon 

. by 0 

10090-endpt 

. «o 0 

10100-atat 

. by 0 

10110-dov 

.by 8 

10120-mog 

. tx " " 

10130-. tx " 

“1 «0 byte plata fuer otat.ua 

101«0-atart 

Jar orlf 

10150- 

Jar «rlton 

10160-. tx "allgomainer flltar" 

10170-. by or 

10100-, tx - .. . 

10190-. by or 

kolno konvortiorung eingebaut" 

10200-. tx "elngabe 

10210-. by 0 

10220- 

... Blnputaforanamo, 10) 

10230- 

opy 10 

10240- 

beq ailt 

10250- 

oty orolon 

10260- 

Jar orlf 

10270- 


10280-. tx "auagabe : " 

10290-. by 0 

10300- 

... mlnputatdontnomo,19) 

10310- 

opy 80 

10320- 

bno go 

10330-exlt 

rta 

10340-go 

lda •”a" 

10350- 

ata destname+1,y 

10360- 

lda •"»" 

10370- 

ata deotnomo'3,y 

10380- 

lda " 


bcd-fliea8komma-arlthoetlk. iumtlBB« bod »xt fplen bytes 
maximale nantiaaonlaongo: 254 alfforn 
-}* oxponont binner von -1638« bia *16383 

voraeiohen gepackt in bit 15 daa oxponont 


10000 
10005 
1001 0 
10015 
10020 
10025 

10030“!********* 

10035-.gl ap‘922 

10040-.gl maxlon-15; maximal 30 atollen montioaa vorolngoatol1t 

10045“!.-... 

10050-, aufrufo von Tp-routinen: 

10055-; aatpraclaion aatit mantlaaonlaongo (ln byta, ergibt akku*2 aiffo 
10060-i loadargl: landt fp-xahl boi < a/y) ln argumentberelch 1 
10065-; loailarga: laedt fp-aehl bei’(a/y) ln argunentboreich 2 
10070-, atoreakk: opalohert orgehma einer oporation noch (a/y) 

10075-; fpadd, fpaub, fpault, fpdlv vorknuopfon argumenta, overrioa-riag 
10000-i xlrd bei rilonnkomma-uobarlauf gaootst 
10005-aotprecloion ata fplon 


a/yl nach argumont-puffer 1 oder 2 kopieron 


10090- 

aol 


10095- 

ata 

dblen 

10100- 

rta 


10105-; flloeakonnaiahl von ( 

10110-loadargl 

ldx 

10 

10115- 

boq 

loadarg 

10120-loadarg2 

ldx 

11 

10125-loadarg 

DtO 

Pt 

10130- 

aty 

pt»1 

10135- 

ldy 

fplon 

10140- 

iny 


10145-loadloop 

lda 

(ptl.y 

10150- 

cpx 

80 

10155- 

bne 

put«rg2 

10160- 

ota 

oxpi,y 

10165- 

beq 

noxtbyte 

10170-putorg2 

sta 

exp2,y 

10175-nextbyte 

dey 


10180- 

cpy 

8$rr 

10185- 

bne 

loadloop 

10190- 

cpx 

80 

10195- 

bno 

unpack2 


mantlnoe • oxponont ♦ vorxeichen kopioran 


Listing 10. FPBCD.HY 
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10200- 

lda expl «1 


10205- 

jar unpaoksign 


10210- 

ata aipl*1 


10215- 

aty aignl 


10220- 

rta 


10225-unpack2 

lda eip2*1 


10230- 

jar unpackaign 


10235- 

ata eip2 »1 


10240- 

aty aign2 


10245- 

rta 


10250-unpaoksign ldy 1900 

i voraeichen aus bit 7 in y-rogiator 

10255- 

cip 1980 


10260- 

and I97f 

; oxponent-bita auaflltern 

10265- 

boo axteip 


10270- 

doy 


10275-extexp 

oap 8940 

j axponent vorxeichenerNeitorn 

10200 - 

boc algnpoa 


10285- 

ora l$80 


1.0290-aignpoa 

rta 


10295-1 flleBBkoaaa-akku nach 

a/y) abapeiehern 

10300-atoroakk 

ata pt 


10305- 

aty pt*1 


10310- 

ldy fplon 


10315- 

iny 

S 2 byte xuaaetilioh (vorxelohen und exponont) 

10320-atoreloo 

lda expakk,y 


10325- 

ata (pt).y 


10330- 

day 


10335- 

opy l$ff 


10340- 

bno atoreloo 


10345- 

rta 


10350-fpadd 

lda atgnl 


10355- 

ata aignakk 


10360- 

cep aign2 


10365- 

boq fpoddl 


10370- 

Jar doaubtr 


10375- 

rta 


10380-fpaddl 

jar doadd 


10385- 

rta 


10390-fpaub 

lda aignl 


10395- 

ata aignakk 


10400- 

oep algn2 


10405r 

bne fpaubl 


10410- 

jar doaubtr 


10415- 

rta 


10420-fpsubl 

jar doadd 


10425- 

rta 


10430-doadd 

jar normargs 

argueente anpassen 

10435- 

ldx fplen 


10440- 

olc 


10445- 

sed 


10450- 

clc 


10455-fpaloop 

lda fpargl-1,x 

ergebmn um 1 byte nach rechts verschoben 

10460- 

ade Tparg2-1,x 

ablegen, danit plat2 fuer ueberlauf 

104G5- 

sta fpakku,x 

vorhanden ist 

10470- 

dex 


10475- 

bne fpaloop 


10480- 

lda R0 


10485- 

rol 

uebertrag aus carry berücksichtigen 

10490- 

ata fpakku 


10495- 

cid 


10500- 

lda expakk 


10505- 

olo 


10510- 

ade 12 

ergebnia lat ja un 1 byte ■ 2 stellen 

10515- 

ata expakk 


10520- 

lda oxpakkH 

nach rechts verachoben, dies boruecksichtigen 

10525- 

ade #0 


10530- 

ata expakkH 


10535- 

ine fplen 


10540- 

Jar noroakku 

ergebni9 noraallaiaron 

10545- 

dac fplen 


10550- 

bvs fpaovl 


10555- 

jar roundakk 

und runden 

10560- 

jar chknnull 


10565- 

Jar packaign 

Vorzeichen und eiponent packon 

10570-fpaovl 

rta 


10575-doaubtr 

jar oonpaba 


10580- 

boa noxoh 


10505- 

ldx fplen 

falls aba( fpargl 1 <aba(fparg2), 

10590-xchloop 

lda fpargl-1, x 

vor aubtraktlon vertauschen 

10595- 

ldy fparg2-l, x 


10600- 

ata rpnrg2-l, x 


10605- 

tya 


10610- 

ata fpargl-1,x 


10615- 

dex 


10620- 

bne xchloop 


10625- 

ldx 11 

oxponenten auatauaahen 

10630-aMapoxp 

lda expl,x 


10635- 

ldy aip2,i 


10640- 

ata exp2,x 1 


10645- 

tya 


10650- 

ata oxpl,x 


10655- 

dex 


10660- 

bpi eaapoxp 


10665- 

lda aignakk 


10670- 

eor 1980 


10675- 

■ta aignakk 


10680-noioh 

Jar nornarga 


10685- 

ldx fplen 


10690- 

eod 


10695- 

■ 00 


10700-fpaloop 

lda fpargl-1,x 


10705- 

abo fporg2-1,x 


10710- 

ota fpakku-1,x 


10715- 

dox 


10720- 

bno fpaloop 


10725- 

old 


10730- 

jar noroakku 


10735- 

bva fpaovl 


10740- 

Jar roundakk 


10745- 

Jar ohkenull 


10750- 

Jar paokaign 


10755-fpoovl 

rta 


10760—, packt ■antlaeonvorieiohon und eiponent in 2 byte (boi oxpakk/eipokk«!> 

10765—, ootit overflo»-bit, »onn ozponont niobt la bereich von 

10770-J -16384 

bin 16383 liegt 


10775-paokolgn 

lda expakk*l 


10780- 

and I9o0 

X11000000 


10785- 

beq 

expakkok 

10790- 

cnp 

I9o0 

10795- 

beq 

expakkok 

10800- 

onp 

1980 

10805- 

beq 

tooanall 

10010- 

bit 

overfloa 

10815- 

rta 


10820-expakkok 

lda 

expakk+1 

10025- 

and 

•97f 

10030- 

bit 

aignakk 

10835- 

bpi 

akkpos 

10040- 

ora 

•900 

10845-akkpoa 

ata 

oxpakk*1 

10850- 

olv 


10855- 

rta 


10060-tooeeall 

Jar 

xerofak 

10065- 

olv 


10870- 

rta 


10875—; uoberpruefe, 

ob das o 


■enn nootlg 

10000-chknnul1 

lda 

uignukk 

10005- 

bpi 

nonlnuan 

10090- 

lda 

expakk 

10095- 

ora 

expakk«! 

10900- 

bno 

nonlnuan 

10905- 

lda 

fpakku 

10910- 

bno 

nonlnuan 

10915- 

ata 

aignakk 

10920-noelnuen 

rta 



ob dos orgebni8 "-0" lautot und korrlglaro au "*0" 


10928-i voroohlobo nnntlouo doo klolnoron argunonta oo nach raohto, doaa 
10930-; anoohlloaaond otollonrlohtlgo addition/aubtraktlon auogoruohrt 
■erden kann 

1093B-, auaserdoe «Ird der eiponent doa ergebnlaaoo hier beotinnt 


10940-nornarga 

aoa 


10945- 

Ido 

oxpl 

10950- 

ata 

oxpakk 

10955- 

abo 

exp2 

10960- 

tay 


10965- 

Ido 

oxpl«1 

10970- 

ata 

oxpakk«l 

10975- 

abc oxp2«1 

109B0- 

bne 

hlghdiff 

10985- 

opy 

Ro 

10990- 

beq 

nornorgsx 

10995- 

bne 

Brg21ess 

1 1000-; hlgh-byto lat <> 0 

11005-highdiff 

bpi 

srg21ess 

11010-; argl<nrg2, also diff: = 

11015- 

pho 


11020- 

tya 


11025- 

eor 

I9ff 

11030- 

olc 


11035- 

ade 

11 

11040- 

tay 


11045- 

Pi® 


11050- 

eor 

•9ff 


ade 

lsr 

10 

11065- 

pha 


11070- 

tya 


11075- 

ror 


11080- 

pha 


11005- 

lda 

exp2 

11090- 

sta 

expBkk 

11095- 

lda 

exp2«1 

11 100- 

sta 

expakk«! 

11105- 

Jsr 

setargl 

11110- 

J«P 

nlbshift 

11115-arg21ess 

lsr 


11120- 

pha 


11125- 

tya 


11130- 

ror 


11135- 

pho 


11140- 

jsr 


111 45-nlbshlft 

boc 

bytshift 

11150- 

jsr 

ahxftarg 

11155-bytehirt 

pla 


11160- 

tay 


11165- 

pla 


11170- 

beq 

bytahl 

11175- 

ldy 

fplen 

11180- 



11185- 

bno 

fl 11nul1 

11190-bytahl 

opy 

• 0 

11195- 

boq 

normargsi 

11200- 

aty 

«ulcount 

11205- 

ldy 

fplon 

11210- 



11215- 

tya 


11220- 

BOO 


11225- 

abo 

«uloount 

11230- 

ata 

nuloount 

11235- 

boo 

flllnull 

1 1 240-bytoloop 

■ty 

yaovo 

11245- 

ldy 

«uloount 

11250- 

lda 

(pt).y 

11255- 

ldy 

yaave 

11260 

ota 

(pt),y 

11265- 

doy 


11270- 

doo 

«ulcount 

11275- 

bpi 

byteloop 

11280-f111nul1 

lda 

«0 

11285- 

ata 

c pt» i y 

11290- 

doy 


11295- 

bpi 

flllnull 

1 1 300-normargsx 

rts 


11305-fpmult 

Jar 

olrfpakk 

11310- 

ldy 

•o 

11315-noxtdlg 

J«r 

ahlong 

11320- 

lda 

fpargl, y 

11325- 

and 

• 9ro 

11330- 

boq 

xorol 

11335- 

lsr 


11340- 

lsr 


11345- 

1 or 


11350- 

lsr 


11355- 

Jsr 

add 


und zelger auf argl 


; vorzelchenKochsol fertig, 
; diff:=diff / 2 


high-byte dor dlfforemiOO: dann «ird 
oo Molt goaohobon, daaa auf jeden Tall 0 
horauekoent 


dirrorena in byte 
y ■ daatinatlon-poInter 


1 oouropolnter 


fpakku in doppelter laenge 
um eine aiffer nach linke echleben 
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11360-aorol 

jer 

ahlong ; 

11365- 

lda 

fpargl.y ; 

11370- 

and 

l$r 

11375- 

boq 

vero 2 

11300- 

jar 

add 

1 1305-aero2 

iny 


11390- 

opy 

fplan 

11395- 

bne 

nextdig 

11400- 

Ido 

oignl 

11405- 

eor 

aign 2 

11410- 

sta 

eignokk 

11415- 

lda 

expl 

11420- 

olo 


11425- 

ado 

oxp 2 

11430- 

ata 

expakk 

11435- 

lda 

expl *1 

11440- 

ado 

oxp 2 »1 

11445- 

ata 

oxpakktl 

11450- 

bvo 

mulok 

11455- 

bmi 

■ulerr ; 

11460- 

jer 

aerofak 

11465- 

rta 


11470-aulok 

jar 

noraakku 

11475- 

bva 

mulorr 

11400- 

jer 

roundakk 

11485- 

bva 

mulorr 

11490- 

jar 

paokalgn 

11495-mulerr 

rta 


11 500-fpdlvovl 

bit 

overflos 

11505- 

rta 


11510-fpdlv 

lda 

fparg 2 

11515- 

boq 

f pdivovl 1 

11520- 

jar 

olrfpakk 

11525- 

lda 

slgnl 

11530- 

eor 

slgn 2 

11535- 

ata 

signakk ; 

11540- 

lda 

expl ; 

11545- 

seo 


11550- 

ebo 

oxp 2 

11555- 

eta 

expakk 

11560- 

lda 

expl *1 

11565- 

obo 

exp 2»1 

11570- 

ota 

oxpakktl 

11575- 

bvo 

fpdivl 

11500- 

bmi 

fpdivovl 

11505- 

lda 

•o ; 

11590- 

ata 

expakk 

11595- 

ata 

oxpakktl 

11600- 

ata 

signakk 

11605- 

olv 


11610- 

rts 


11615-fpdivl 

ldx 

fplen 

11620- 

lda 

#0 1 

11625- 

sta 

fpnrgl.x ; 

11630- 

sta 

fpargZ,x ; 

11635- 

Ino 

fplen 

11640- 

jar 

ooapmant ; 

11645- 

php 

5 

11650- 

jar 

arg 2 right ; 

11655- 

pip 


11660- 

boo 

f pdi v 2 

11665- 


inoa( e'xpakk) 

11670- 

jar 

arglright 

11675-fpdiv2 

lda 

dblen 

11680- 

sta 

nulcount 

11605- 

ino 

mulcount 

11690-fpdiv3 

jar 

oompoant 

11695- 

boo 

rpdivö 

11700- 

ldx 

fplen 

11705- 

aod 


11710- 

lda 

fpakku- 1 ,x 

11715- 

olo 


11720- 

ado 

•910 

11725- 

ota 

fpakku- 1 ,x 

11730- 

seo 


11735-fpdiv4 

lda 

Tpargl- 1 ,x 

11740- 

sbc 

fparg 2 - 1 ,x 

11745- 

ata 

fporgl- 1 ,x 

11750- 

dex 


11755- 

bne 

fpdiv4 

11760- 

old 


11765- 

J«P 

fpdiv3 

11770-fpdlv5 

doo 

mulcount 

11775- 

boq 

exitdiv 

11700- 

Jor 

ahohort 

11705- 

ldy 

• « 

11790-fpdiv6 

ldx 

fplen 

11795- 

olo 


11800-rpdiv7 

rol 

Tpargl- 1 ,x 

11005- 

dox 


11810- 

bne 

fpdiv7 

11015- 

doy 


11020 - 

bne 

fpdiv 6 

11025- 

J»P 

rpdlv3 

11 030-oxitdlv 

doo 

Tplon 

11035- 

3*r 

roundakk 

11040- 

Jsr 

paokolgn 

11845- 

rta 



fpakku in doppelter leonge 
un eine Ziffer nach links schieben 


nur nenn oxponbnt au grooa goHordon, fehler 


l division duroh 0 fohler 


voraoiohen dos ergebnlBBes bestimmen 
oiponent des ergebninooa bestimmen 


bei unterlauf koin fehler, ergebnie auf 0 


divieion muoo alt erhoehter mantissonlaenge 
ausgefuehrt Herden, damit dos ergebnis auch 
bis aur latsten stelle stimmt 

rolle aantlasel<mantisse 2 , 
gegeneinander verschieben und exponent 
korrigieren 


dn unterlauf aufgotreton 


noch lm (proaeeoor-)akku 


11B50-; aerofak: orgobnia 0 oraougen 
1 1055-, ovorfloa-f 1 ag loeaohen 
11060 -aerofak Jer clrfpakk 

11B65- ata algnakk j 

11B70- ata oxpekk 

11075- ata oxpakktl 

11000 - olv ; koin fehler 

11005- rta 

11090-j ahlong und ahahort ochiobon mantiaeo doa akku um eine xlffar nach 

11095-; links, und ssor ln einfacher (shshort) oder doppelter (ahlong) laonge 

11900-shlong lda dblon 

11905- bne ahiftakku 

11910-shshort lda fplan 

11915-shirtakku ldx 10 

11920- atx laatdlg 

11925- tax 

11930- in* 

11935-shlftak2 lda fpakku-1,* 

11940- asl 


11945- 

rol 


11950- 

rol 


11955- 

rol 


11960- 

pha 


11965- 

and I9f0 ; 

altes hoeheraortlgoo nibblo isolieren 

11970- 

orn laatdig ; 

und mit niedomertigem nibble der letaten 

11975- 

sta fpakku- 1 , x ; 

etello kombinieren 

11900- 

pln 


11905- 

rol 


11990- 

and »90f i 

ohonligo bita 4:7 noch 0:3 aohiobon 

11995- 

ota laatdig ; 

und fuor naeohate stelle morken 

12000- 

dox 


12005- 

bne ohiftnk 2 


12010- 

rta 


1201 5 -roundakk 

ldx fplen 


12020- 

lda fpnkku,x 


12025- 

and I9f0 


12030- 

omp #950 


12035- 

boo roundok 


12040- 

Ido »0 


12045- 

sod 


1 20 50-roundl 

Ido fpakku- 1 ,x 


12055- 

ado |0 


12060- 

ata fpakku- 1 ,x 


12066- 

boo roundok 


12070- 

dox 


12075- 

bno roundl 


12000- 

lda 1910 1 

duroh runden lat uoborlauf aufgetroten 

12005- 

ata fpakku 


12090- 

... inoHloxpakk) 


1 2095-roundok 

old 


12100- 

rts 


1 2105-olrfpakk 

ldx dblon i 

Floating poinl akku loeaohon 

12110- 

ltlo #0 


1 211 5-olrloop 

sta fpakku- 1 , x 


12120- 

dex 


12125- 

bno olrloop 


12130- 

rts 


12135-; addiere 

fpakku: *rpokkut< a) l *fparg 2 

121 40-add 

sty ysovo 


12145- 

sta mulcount 


12150- 

aod 


12155-eddl 

ldy fplen 


12160- 

ldx dblen 


12165- 

olo 


121 70-add2 

lda fpnrg 2 - 1 ,y 


12175- 

ado fpakku- 1 , x 


12100- 

sta fpakku- 1 , x 


12105- 

dex 


12190- 

dey 


12195- 

bne edd 2 


12200- 

bcc addok 


12205-add3 

lda «0 ; 

uebortrag vorne aufaddieren 

12210- 

ade fpakku- 1 ,x 


12215- 

sta fpakku- 1 ,x 


12220- 

dex 


12225- 

bca odd3 ; 

bis kein uobortrag mehr vorhanden 

1223.- -"ok 

1 223*j 

deo nulcount 


bno oddl 


12240- 

old 


12245- 

ldy yaavo 


12250- 

rta 


12255-, ergebnis im akku normalisieren (d. h. so verschieben, dass erste 
stelle <> 0 

12260 -noraakku 

ldx «0 


12265- 

ldy 10 


12270-oheckdig 

lda fpakku,* 

suche orstos byto in mantioooOO 

12275- 

bno founddlg 


12200- 

in* 


12205- 

opx fplen 


12290- 

bne oheokdig ; 

orgebnia 0 ? 

12295-undorf1 

Jar xororak ; 

bol untorlauf 0 ausgeben 

12300-normok 

olv 


12305- 

rts 


12310-founddig 

and #9f0 i 

falls hoeohstHertige xirfor lm reohton 

12315- 

bne normt ; 

nibble, xunaoehat um 1 nibble verschieben 

12320- 

atx xsavu 


12325- 

jar ehlong 


12330- 

ldx xoavo 


12335- 

aeo i 

und oxponenton korrigioron 

12340- 

lda oxpakk 


12345- 

sbo 11 


12350- 

ota oxpakk 


12355- 

lda oxpakktl 


12360- 

abo 10 


12365- 

sta oxpakktl 


12370- 

bva undorfl 


12375-norml 

txa 


12300- 

boq norook 


12305- 

aal l 


12390- 

ata muloount ; 

korroktur fuor oxpononton 

12395- 

lda oxpakk 


12400- 

ooc 


12405- 

stio muloount 


12410- 

sta oxpokk 


12415- 

Ido oxpakktl 


12420- 

obo 40 


12425- 

oto oxpakk * 1 


12430- 

bvo undorfl 


12435- 

ldy 10 1 

akku bytosoloo nach linke voraohiobon 

1 2440~norm2 

lda fpakku,x 


12445- 

ota fpakku, y 


12450- 

iny 


12455- 

lnx 


12460- 

opx fplon 


12465- 

boo norm 2 ; 

und rochts mit nullen auffuollen 

12470- 

boq norm 2 


12475- 

lda «0 


12400-norm3 

sta fpakku,y 


12405- 

iny 


12490- 

opy fplen 


12495- 

boc norm3 


12500- 

bos normok 


12505-; fpargl 

un oino xiffor ( 1 

nibblo) nach rechts voraohiobon 


12510-arglright Jsr setargl 

Listing 10. FPBCD.HY (Fortsetzung) 



SONDERHEFT 21 


>de 
r iline.nel 









ASSEMBLER-ANWENDUNG 


C64 


12515- jap shiftarg 

12520-; fparg2 un oino ziffor (1 nibble) nach rechts verschieben 
12S25-arg2right jsr eetarg2 

1 3530—; arguaent ua ein nibblo nach rechts schieben 
1 2535-; pt/pt *1 zeigt auf aantisae des arguaonts 


12540-shlftarg 

sty yaave 


1 2545-aiial 

ldy 10 


12550- 

sty lastdlg 


1255S-aha2 

lda (pt»,y 


12560- 

lsr 

5 byte aykllach vertauschen: 

12565- 

ror 

; blt 4: 7 -> blt 0: 3 

12570- 

ror 

5 blt 0:3 -> blt 5:7 und carry 

12575- 

ror 


12580- 

pha 


12585- 

and |$ 0 f 

5 altes hoeheraertlgea nibble Isolieren 

12590- 

ora lastdlg 

; und alt nlodorNertigom nibblo der lotsten 

12595.- 

ata (pt),y 

; stelle kombinieren 

12600- 

pla 


12605- 

ror 


12610- 

and A9fO 

; ohoallgo bita 0:3 nach 4:7 aohieben 

12615- 

ata laetdlg 

1 und fuer naoahste stelle merken 

12620- 

iny 


12625- 

opy fplen 


12630- 

boo aha 2 


12635- 

ldy yaave 


12640- 

rta 


12645-5 xaigor 

auf fpargl oder fparg 2 setzen 

1 2650-setargl 

ldx •<(fpargl) 


12655- 

otx pt 


12660- 

ldx #>(fpargl) 


12665- 

atx pttl 


12670- 

rta 


12675-sotarg2 

ldx t<( fparg 2 ) 


12680- 

atx pt 


12685- 

ldx •>(fparg 2 ) 


12690- 

atx pt *1 


12695- 

rts 


12700-j vergleicht abs( fpargl) 

und abs(fparg 2 ) 

12705ergobnia: carry :■ oba( fpargl)>«absl fparg2) 

12710-ooapabs 

lda expltl 


12715- 

cap oxp 2'1 


12720- 

bne diffoxp 


12725- 

lda expl 


12730- 

cap exp 2 


12735- 

beq conpaant 


12740- 

900 



12745- bpi, ooapeait 

12750- ein 

12755-dlf feirpi rta 

12760-; /vergleicht iiantisae von fpargl alt aantisse von fparg2, 
vrgrbnia a. coapabs 
127ti5-conn».ant ldx |0 

1 jy/Q-ocmtlauo ldui fpargl ,i 

12770- epp f parg 2 , i 

l5?80- bne ooapeiit 

12785- in« 

12790- cp« fplen 

12795- bno ooaploop 

12800 -ooapeiit rto ; eq bei gleiohhelt, 

oarry <■> abs( fpargl)>>abo( fparg 2 ) 

. by 9Ct 
genauigkeit 

. by 0 
. by 0 

hllfatpoioher 
. by o 
. by 0 
. by 0 
. by 0 


1 21105 -overf lo* 

12810-1 
1281 5-fplan 
12820 -dblsn 
12125—1 
128 30-lastdlg 
1 2835 -xdovu 
12040-ysave 
12845-aulcount 
12850-currsntlen . by 0 
12855-5 1. orguaont 
1 2860 -olgnl . by 0 

12865-expl .«o0 

12870-fpargl ... da(aaxlen) 

12875-5 2. arguaont 


12880 -sign 2 
1 2885-e«p 2 

12890-fparg2 
12895-i ergebnls 
12900-signakk 
12905-eipakk 
12910-fpakku 


by 0 

NO 0 

.. ds(aailen) 
by 0 

NO 0 


Listing 10. FPBCD.HY (Schluß) 


100 ba So000 

105 -.gl stack"$orrr 
110 - jap aain 


Listing 11. UPN1.HY 


15000-5 

15005-j upn-roohnor, auf fphed-routinen basiert 
15010-j arbeitet alt stack von progranaende bis 9cfff 
15015-; bofohlo: 

obersten beiden olemonte vertauschen 
oberstes elenent ausgeben 
oberstos olomont entfernen 
oberstes elenent verdoppeln 
beendon 
rechnen 

15050-5 alles andere: aahl oinloson 

15055-j zahlen ait Vorzeichen aueasen Bit einer leerstelle eingeloitot Norden, 
15060-5 danlt das vorsoichen nicht als subtraktionsbefehl missdeutet aird 
15065-5 


1 5020—; links pfeil 
15025-i ? 

1 5030-5 «1 
15035-i 
15040-i * 

1 5045-5 


15075- 

Jsr setprecialon 

15395-prlntpuah jar 

pushstk { 

15080- 

Jsr imtstk 

15400- 


ldayl(nuaber) 

1 5005-nainloop 

Jsr prompt 

15405- 

jsr 

printfp 

15090- 

jar baain 

15410.- 

3«P 

aalnloop 

15095- 

oap tor 

15415-foundop 

ldx 

natack 

15100- 

boq nalnloop 

15420- 

opx 

•2 

15105- 

oap #"?" 

15425- 

bco 

eaptyatk 

15110- 

bne noprlnt 

15430- 

pha 


15115- 

jmp printcoa 

15435- 

J»r 

popatk 

15120-noprlnt 

omp •"x" 

15440- 


ldayl(nuaber) 

15125- 

bno nobreak 

15445- 

jar 

loadarg 2 

15130- 

rta 

15450- 

Jar 

popatk 

151 35-nobroak 

oap 

15455- 


IdayK nuaber) 

15140- 

bne noenter 

15460- 

jar 

loadorgl 

15145- 

lda nstaok 

15465- 

pla 


15150- 

bne enterok 

15470- 

oap 

*"t" 

15155- 

jap eaptyatk 

15475- 

bne 

noplua 

151 60 -ontorok 

Jar popstk 

15480- 

jar 

fpadd 

15165- 

jar puahatk 

15485- 

j»P 

pushrea 

15170- 

Jsr puehatk 

15490-noplua 

oap 


15175- 

jmp malnloop 

15495- 

bne 

noainua 

1 51 00 -noenter 

omp •"d“ 

15500- 

jar 

fpeub 

15185- 

bno nodrop 

16505- 

jap 

pushrea 

15190- 

lda nataok 

15510-noalnua 

oap 

•"*" 

15195- 

beq eaptyatk 

15515- 

bne 

notiaea 

15200- 

Jar popatk 

15520- 

jar 

fpault 

15205- 

Jap aalnloop 

18526- 

j«P 

pushrea 

1 521 0 -nodrop 

oap *95f j prell nach links 

15530-notiaes 

Jar 

fpdiv 

15215- 

bno noaaap 

15535-pushres 

bvo 

roaok 

15220- 

ldx nataok 

15840- 


IdayK aover) 

15225- 

opx 12 

15845- 

jap 

error 

15230- 

boo eaptyatk 

1 5850-aover 

. tx 

»mm* arithaot 

15235- 

Jar popstk 

15B55-. by 0 



15240- 

Jar BNapnumber 

l5560-reaok 


IdayK nuaber) 

15245- 

jer popstk 

15565- 

jar 

atoraakk 

15250- 

Jsr BNapnuaber 

15570- 

J»P 

prlntpuah 

15255- 

Jer pushstk 

15578-proapt 

jar 

orlf 

15260- 

Jsr BNapnuaber 

15580- 

ldy 

nataok 

15265- 

Jap prlntpuah 

15585- 

iny 


15270-noannp 

oap #"»" 

15590- 

oed 


15275- 

beq foundop 

15595- 

lda 

•999 

15200- 

oap 

1 5600-todeo 

olo 


15285- 

boq Toundop 

15605- 

ado 

•901 

15290- 

cap 1"*" 

15610- 

doy 


15295- 

boq foundop 

15615- 

bne 

todeo 

15300- 

oap fl"/" 

15620- 

old 


15305- 

boq foundop 

15625- 

pha 


15310- 

tax 

15630- 

lsr 


15315- 

... IdayK number) 

15635- 

lsr 




15640- 

lsr 



15320- 

15325- 

15330- 

15335- 

15340-err. 

15345- 

15350-sover 

15355-. by 0 

1 5360-prlntooa 

15365- 

15370-eaptystk 
15375- 
1 5380-seapty 
15385-, by 


jsr inputfp 
jsr pushstk 
bco aalnloop 
... ldayi(sover) 
jsr prints 
jap aain 

.t* "*** stack overflo* ** 

lda natack 
bno printstaok 
... ldayl(seapty) 
jap error 

.tx "*** stack eapty ***" 


zahl Niodor xurueok auf stack 


onllne.net 
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5-pop2 


-puohl 


-puol >2 


15645- 

15650- 

15655- 

15660- 

15665- 

15670- 

15675- 

1 5600-pn ntdd 

15685- 

15690- 

15695-inltntk 
15700- 
15705- 
15710- 

15715-popatk 
15720- 
15725- 
15730- 
15735-popl 
15740- 
15745- 
15750- 
15755- 
15760- 
15765- 
15770- 
15775- 
15780- 
15 

15790 
15795 
15000 
15005 
15610 
15015 
15020 
15025 
1 5030 
15035 
15040 
15845 
15050 
15055 
15060 
1 5065 
15870 
15075 
15000 
15BB5 
15890 
15095 
15900 
15905 
15910 
15915 
15920 
15925 
15930 
15935 
15940 
15945 
15950 
15955 
15960 
15965 
15970 
15975 
15980 
15985 
15990 
15995 
16000 
16005 
16010 
16015 
16020 
16025 
16030 
16035 
16040 
16045 
16050 
16055 
16060 
16065 
16070 
16075 
16000 
16005 
16090 
16095 
16100 
16105 
16110 
16115 
16120 
16125 
16130 
16135 
16140 
16145 
16150 
16155 
16160 
16165 
16170 
16175 
16180 
16185 
16190 
16195 
16200 
16205 
16210 
16215 
16220 
16225 


lar 

jnr prlntdd 
pla 

Jsr prlntdd 
lda #">“ 

Jor basout 
rts 

and #0Of 
ora #“ 0 " 

Jap basout 

lda 10 

ata nstaok 

... «ovesH stack, sp) 

rta 

lda nstaok 
bn« popl 
■oo 
rta 

doo nstaok 
ldx fplon 
Jsr dopul 1 

ota nu«ber»l,x ; aantlsso 
dt« 

bn« pop 2 
Jsr dopul 1 
ata nuaborH 
jsr dopul 1 
st« nunbor 
olo 
rto 


i oxponant hlgh-byto und voraolohon 


i oxponont los-byts 


-pushstk lda nstaok 

oap #<(aoxstaok) 
boo pushl 
rta 

ino nstaok 
lda nuabor 
Jsr dopush 
lda nuabor *1 
jsr dopush 
ldx #0 

lda number* 2 ,x 
jsr dopush 
lnx 

cpx fplon 
boo pu 8 h 2 
clc 
rta 

saapnuaber ldx fplan ; 
lnx 

-sssploop lda numbsr,x 
pha 

lda Tpakku, x 
ata numbor, x 
pla 

sta Tpakku,x 
dtx 

cpx #$fT 
bne ssaploop 
rts 

. .. pushb( sp) 
rts 

... pullb(sp) 
rta 

... BtayC pt) ; 


benutzt Tpakku als xslnchenspeioher 




-dopush 

-dopull 


-inputTp 


ziel-xelgor Tutr fertige bed-zahl aerken 


txa 


nantisse, exponent und Vorzeichen loesohen 

loorxeiohen ueberlesen 
Vorzeichen der aantisse einlesen 
vornullonunterdrueokung Tuor «ontlase 
vorkoaaaantoll holon 


-tryexp 


j naohkoaaaanteil holon 

; kein oxponont: zahl lat fertig eingeleson 

; vurzoichen des exponenten holon 
; vornullonunterdruoukung des expononten 
; oxponont holon und alt dor 

j anzahl der vor- und naohkoaaastellen kombinieren 
I algn und oxponont kopieren 
; aantlsso kopieren und paoken 


"9"*1 


pha 

jsr olearbuT 
pla 

Jsr sklpspaco 
jsr getaslgn 
jsr skipxero 
jsr gotipart 
oap “ 
bne tryexp 
Jsr basin 
jsr getTpart 
oap l"o" 
bne oonvertf 
Jsr basln 
Jer getesign 
jsr skipxero 
Jar getexp 
Jer aakooxp 
oonvortf Jsr oopysex 
Jar oopyannt 
rta 

\ ergibt carry der, sonn Ziffer la akku, oarry set nenn keine «iffor 
dlgit oap 1 - 0 " 

boo nodlglt 
oap l$3a 
rta 
sec 
rta 

•j mnntleoen-voraolohon loson und aorken, sonn vorhsndon 
gotaoign jer getalgn 
bne noaelgn 
atx eign 
noaelgn rte 

■; oxpononton-vorzuloben lesen und aerkon, sann vorhanden 
gotoslgn Jor gotaign 
bne noealgn 
etx eelgn 
noeslgn rte 

•i teste, ob akku Vorzeichen onthaelt, sonn Ja, xero-flag sotzon, 

•; la x-roglster orgebnls (0 oder 9TD uobergoben und naoohotes xelohen loson 
-goteign ldx |$ff 
oap I“-" 
boq gotsign 
lnx 

oap •**" 

-gotsign bno nosign 
php 

Jer basin 
plp 

-nosign rts 

; fuohrende nullen untordrueoken 
skipxero c«p #"0 M 


-nodlglt 


j zoro-flag morken 


16230- 

bno 

nozero 

16235- 

Jsr 

basin 

16240- 

jap 

sklpzero 

16245-noaoro 

rts 


16250 cleorbuT 

ldx 

dblon 

16255- 

lda 

l"0" 

16260 -initaant 

sta 

aantiaao- 1 ,x 

16265- 

dox 


16270- 

bne 

inltaant 

16275- 

stx 

exp 

16280- 

BtX 

exp *1 

16285- 

stx 

■exp l 

16290- 

etx 

eexp'l 

16295- 

stx 

oslgn t 

16300- 

atx 

sign 

16305- 

rts 


16310-, laorieichen, 

goshiftete 

16315-sklpspaco 

oap 

- 

16320- 

beq 

laepaoe 

16325- 

oap 

•9a0 

16330- 

boq 

isspooe 

16335- 

oap 

• O0d 

16340- 

beq 

isspaoe 

16345- 

rts 


16350-lsspaoa 

Jar 

basln 

16355- 

jmp 

skipspaoo 

1 6360 -i vorkoamastellen holon, d 

16365-getlpart 

ldx 

10 

16370-lpart 

Jsr dlgit 

16375- 

bos 

lpartox 

16380- 

cpx 

dblon \ 

16385- 

bcs 

noiotoro 

16390- 

sta 

montisso, x 


16395- 

16400-nolstoro 

16405- 

16410- 

16415-nextidlg 
16420- 

16425-1partex 


lnx 

Ino exp 
bno nextldlg 
lno exptl 
jsr basln 
Jnp ipnrt 
rts 


hilfs-exponent 
voraolohon doe expononts 


;$ 00 *" 


dabei oxponont mltzoehlo 


passt Zeichen nooh in buffor? 


; vorkoaaaotellen altxaehlon 


16430-1 nachkoaaa-anteil holon, dabei beachten, ob uoberhoupt oohon 
16435-, Ziffern ln dor aontlsse vorliogon, »onn nicht, erst aal 



16440-, «lodor 

Tuehrende nullen 

unterdruecken 


16445-getfpart 

opx 

>0 

nenn nooh gar kolno ziTfern gefunden, 


16450- 

bne 

contaant 

orstaal Mieder vornullen unterdrücken 


16455-sklpfx 

cap 

l"0" 



16460- 

bne 

contaant 

um «. b. die zahl 0.005 zu 0.5 * 10 


16465- 

lda 

exp 



16470- 

bne 

deoexpi 



16475- 

dec 

oxp»l 



16480-docexpl 

deo 

exp 

zu normalisieren 


16485- 

Jsr 

basln 



16490- 

Jmp 

skipTz 



16495-oonteont 

jor 

dlgit 



16500- 

bcs 

Tpartex 

keine Ziffer mehr -> aantlsso fertig 


16505- 

cpx 

dblen 

nooh plat2? 


16510- 

bcs 

nofstöre 


□ 

m 

sta 

lnx 

aantisse, x 



16525-noTstore 

jsr 

basln 



16530- 

J«P 

eontmant 



16535-Tpartex 

rts 




16540 

16545 


•; exponent einlesen, 
■; la bereich von 0 b 


keine fehlerabfrage, 
s 16303 liegen! 


exponent auss 


16550-gotoxp 

Jsr 

dlgit 

16555- 

bos 

gotexp 

16560- 

and 

#$0f 

16565- 

ldx 

#10 

16570- 

ldy 

10 

16575-expaall0 

olc 


16580- 

ade 

eexp 

16585- 

pha 


16590- 

tya 


16595- 

ado 

eexp «1 

16600- 

tay 


16605- 

pla 


16610- 

dex 


16615- 

bne 

expaall 0 

16620- 

sta 

eexp 

16629- 

sty 

eexptl 

16630- 

J»r 

basln 

16635- 

Jap 

getexp 

16640-gotexp 

rte 



; eexp:=eexp* 10 *ziffer primitiv abor kurz 


16645- 

16650- 


expllzlt angegebenen oxpont (ooxp) alt position dos doxlaalpunktes 
xu elnor noraallalorten darstellung koabinloron 


16655-aakeoxp 

lda 

exp 

16660- 

bit 

eslgn 

16665- 

bpi 

oddoxp 

16670- 

■ ec 


16675- 

sbo 

oexp 

16680- 

sta 

exp 

16685- 

lda 

«xp *1 

16690- 

sbo 

eoxpH 

16695- 

sta 

oxpM 

16700- 

rta 


16705-addoxp 

olo 


16710- 

■do 

ooxp 

16715- 

sta 

exp 

16720- 

lda 

exp «1 

16725- 

ado 

ooxp'l 

16730- 

sta 

exp *1 

16735- 

rta 



16740-, vorxeiohen und oxponont an don geauonschten plntx kopieren 
16745-, und dabol packen (voraolohon der aantleso -> bitlö des oxpononton 


16750-copysex 

ldy 

•0 

16755- 

lda 

exp 

16760- 

sta 

(pt),y 

16765- 

lny 


16770- 

lda 

oxp *1 

16775- 

and 

l$7f 

16780- 

bit 

sign 

16785- 

bpi 

oopysexl 

16790- 

ora 

1580 

16795-copysexl 

sta 

(pt),y 

Listing 12. 
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AS 

SE 
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ER-ANWE 
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16 


iny 

rte 


16005- 

16010-j aantisao packen (iaaor 2 xlffoi 
16015-oopyaant ldx |0 
16020-caantlo lda aantisse, x 

16025- and IjOf 

16030- aal 

16035- aal 

16040- aal 

16045- aal 

16850- ata olgn ; iniaohenapelohar 

16055- lda aantlaeet-1, i 

16060- and |$0r 

16065- ora sign 

16070- ata (pt),y 

16075- iny 

16000- Im 

16005- lnx 

16090- opx dblen 

16095- bco oaantlo 

16900- rt# 

16905-printrp ... atay(pt) 

16910- ldy 10 

10915- Jar praalgn 

16920- Jar prlpart 

16925- Jar praant 

16930- Jar praalgn 

10935- Jar proxp 

16940- rta 

16945-praolgn lny 
16950- lda (pt),y 

16955- day 

16960- rol 

16965- lda •" - 

16970- boo doprelgn 

16975- lda 

16900-doprsign Jar baeout 

16905- iny 

16990- iny 

16995- rta 


in ein byte) und koploron 


17305-prexp3 doy 

17390- bpi prexpO 

17395- bit oxpflag 

17400- bei prexp4 

17405- lda f"0" 

17410- Jar baaout 

17415-prexp4 rta 

17420-loatab . by <(1),<(10),<(100),<( 1000),<( 10000) 
17425-hightab . by X 1), X 10), >M 00), >{ 1000), X 10000) 
17430—1 variable fuor i/o-routinon 


naoohste xiffer 


■ann noch gar nlohta auagegobo 
Jatxt eine 0 auogebon 


17435-aign 
17440-eaign 
17445-oxp 
17450-eexp 
17455-aant1oao 
17460-dlg 
17465-expflag 
1 7470-nuabor 
17475-notaok 
17400-. oq aaxataok 
17405-, on 


. by 0 
. by 0 
. no 0 

. HO 0 

... da(anilon*2) 

. by 0 
. by 0 

. .. do(aexlon*2) 
by 0 

ataok-nataok)/(aaxlen»2) 


Llsting 12. UPN2.HY (Schluß) 


; aantlaaon-voraelohon iat ln bit 7 daa 
; expononl untergobraoht 


vorxoiohon ln daa earry-flag rotten 


y nur nantioao richten 


17000-pripart 

lda »“0" 

{ noraaliaierte 

17005- 

Jar baaout 

S alt "0.“ an 

17010- 

lda I-." 


17015- 

Jer basout 


17020- 

rta 


17025-praont 

ldx fplen 


17030-prpair 

lda (pt), y 

j 2 ilfforn entp 


17035- 

17040- 

17045- 

17050- 

17055- 

17060- 

17065- 

17070- 

17075- 

17000- 

17005- 

17090- 

17095- 

17100- 

17105- 

17110- 


phe 

and I9f0 

lar 

lar 

lsr 

lar 

ora #"0" 
jar basout 
pla 

and I90f 
ora #"0" 
Jar basout 
iny 

dox 

bne prpolr 
rta 


5S6F 


17115-; vorcoichen des exponenton best innen und auadrucken, exponent 
17120-j positiv aachon, aird ia x (loa) und a (high) hinterlassen 
17125-prooign lda l''e“ 


j exponent-loa 


17140- 

lda 

(pt),y 

17145- 

tax 


17150- 

iny 


17155- 

Ido 

(pt),y 

17160- 

and 

•97f 

17165- 

cap 

l$40 

17170- 

boo 

exppoo 

17175- 

oor 

•97f 

17100- 

pha 


17105- 

txa 


17190- 

eor 

I9rr 

17195- 

ado 

•0 

17200- 

tax 


17205- 

Php 


17210- 

lda 


17215- 

Jar 

baaout 

17220- 

Pip 


17225- 

pla 


17230- 

ado 

•0 

17235- 

rta 


17240-exppoa 

pha 


17245- 

lda 


17250- 

Jar 

baaout 

17255- 

pla 


17260- 

rta 


17265-} aael 

byte-exponont au 

17270-proxp 

atx 

Pt 

17275- 

ata 

pt*1 

17280- 

lda 

10 

17205- 

ata 

oxpflag 

17290- 

ldy 

• 4 

17295-prexpO 

lda 

l"0“ 

17300- 

eta 

dl g 

17305-prexpl 

lda 

Pt 

17310- 

aoo 


17315- 

abo 

loatab, y 

17320- 

tax 


17325- 

lda 

ptX 

17330- 

abo 

hightob, y 

17335- 

boo 

presp2 

17340- 

Ino 

dig 

17345- 

deo 

oxpriag 

17350- 

atx 

Pt 

17355- 

ata 

pt+1 

17360- 

bos 

proxpl 

17365-proxp2 

bit 

oipflag 

17370- 

bpi 

prexp3 

17375- 

lda 

dig 

17380- 

Jar 

basout 


exponont-high 

isolieren 


o 


10000-etart 

nopon( 1, dov2, naae, Ion); file ooffnon 

10005- 

dotat« dev 

buffor)floppy-ototuo pruefon 

10010- boq 

fileok 


10015- ldx 

10 

\ aonn fohlar, mol düng auogobon 

10020-orrnog ldn 

buffor,x 


10025- beq 

exlt 

5 meldung luando: nie echlloasen 

10030- Jsr 

baaout 


10035- inx 



10040- bne 

orrmog 

; unbedingter aprung 

10045-fllook ldx 

• 1 


10050- Jar 

ohkln 

1 elngabo von file vorbereiten 

10055-1ist Jsr 

basln 


10060- Jer 

basout 

j file auf biIdachirn listen 

10065- jor 

stopoq 

{ bei stoptnsto abbrochon 

10070- boq 

oxit 


10075- Jsr 

roadot 

i solange file nicht xuende, 

10000- boq 

llst 

; aoitorlooen 

10005-exit Jar 

clrchn 

; Standard eln/ausgabB 

10090- 

ncloso«1J 

; file schlle93en 

10095- rts 



10100-neae . tx 

"ayfile" 

5 konstanter fllename 

10105-len . by 

(len-naae) 

; laengo dos filenaaens auoroohnen 

10110-dev . by 

0 

; geraetenuaeer der 1541 

10115-burrer .ao 

0 , 0 , 0 , 0 , 0 , 

)> 0,0; ab hier 33 byte platx lassen 

10120-, io 0, 0,0,0,0, 

0 , 0.0 


10125-. BO 0, 0, 0,0,0, 

0 , 0 , 0 


I0130-. BO 0, 0, 0, 0, 0, 

0 ,0.0 


10135- bv 0 



10140- — 


Listing 13. EX1.HY 


S nlo BBisohonapolohar 
| nooh keine xirfor auogagobon 
; naeohote xlffor 


} aorke, daoe aifforOO gefunden 


10000-start 

jsr arltes 


10005-.tx "dioo iot ein boispiel“ 


10010-. by er 



10015-. tx “fuor die strlng-ein/ausgabo" 


10020-. by or 



10025-. tx "bitte string oingebon: " 


10030-. by 0 
10035- 

... ainputsfbuffor, 00) 


10040- 

opy «0 


10045- 

boq nlohta 


10050- 

Jar aritos 


10055-. by or 

10060-. tx "aio 

haben *" 


10065-. by 0 
10070- 

... aprinto( buffor) 


10075- 

jor aritoa 


10000-, tx eingogoben" 


10005-. by or, 0 
10090- 

rte 


10095-niohta 

10100-. by or 

jor aritoa 


10105-, tx “doa 

10110-, by or 

aar gar nlohtol " 


10115-,tx "bltto noch aal:“ 


10120-. by 0 

10125- 

Jap agaln 


10130-buffor 

10135-, en 

• by 0 

Listing 14. EX2.HY 


10000-.gl staok-924 


10005-initotaok 


.ovo»l(55rrr, ttMHi nt,ok .Solist nach Unton 

10010- 

rta 

l ob 99fff 

10015-dopunh 


pusha(otook) 

10020- 

rta 


10025-dopull 


pull n< otook) 

10030- 

rtn 


10035-oheok 


lday(Stack); aaximal 4 k etaok 

10040- 


ompaX 99000) 

10045- 

boc 

ovorfloa 

10050- 

rte 


10055-ovorfloa 

J.r 

prints 

10060-, tx "atack ovorfloa" 

10065-, by 0 
10070- 

brk 


10075-, en 

Listing 15. EX3.HY 
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GRUNDLAGEN 


Von Basic zu 
Assembler 

Vom vertrauten Basic zum Programmieren in 
Assembler ist es gar nicht so weit. Wir werden 
langsam anfangen und uns von grundlegenden 
Schritten bis zu komplexen Problemlösungen 

Vorarbeiten. 

M an kann wohl getrost davon ausgehen, daß ein 
großer Teil der Commodore-64-Benutzer Basic be¬ 
herrscht. Vermutlich hat es Sie aber auch schon 
öfters gereizt, die langsamen Programme durch 
Assembler-Routinen zu beschleunigen. Aber bis zum eige¬ 
nen Maschinenprogramm ist es häufig noch ein holpriger 
Weg. Ein Führer, der Ihnen den Pfad aus den weiten Basic- 
Ebenen auf die Gipfel der Assembler-Programmierung 
zeigt, ist dieser Kurs. 

Zunächst halten wir uns an Bekanntes: Basic-Befehle 
sollen auf ihre Entsprechungen in Assembler untersucht 
werden. Oft aber streifen wir die Fesseln der Hochsprache 
ab und lernen allerlei Assembler-Techniken kennen. Wo es 
uns angemessen erscheint, nehmen wir uns die Freiheit, 
die computerinterne Firmware zu benutzen. Alles in allem 
sollen Sie durch Training zum vertrautem Umgang mit 
Assembler gelangen. 

Basic contra Assembler 


Basic macht uns den Umgang mit dem Computer relativ 
leicht: Wir brauchen uns kaum um die Verwaltung von 
Variablen zu kümmern. Benötigen wir zum Beispiel eine 
neue Stringvariable, dann richtet Basic sie beim ersten Auf¬ 
tauchen automatisch ein. Sehr entgegenkommend ist 
Basic auch, was den Verkehr mit Peripherie jeder Art 
angeht: Ein Zeichen von der Tastatur anzunehmen, ist mit 
GET oder INPUT recht einfach. Irgend etwas auf dem 
Drucker zu schreiben oder auf die Diskette: mit OPEN und 
dem PRINT # geht’s reibungslos und ohne Gedanken an 
die Busverwaltung. Die Hochsprache »Basic« nimmt uns 
vieles ab, worum wir uns in Assembler kümmern müssen. 

Andererseits befindet man sich etwa in der Situation 
eines Bauherrn, der sich ein Haus mit Fertigteilen aufstel¬ 
len lassen möchte: Jeder Wunsch, der vom Standard 
abweicht, ist nicht möglich oder wird sehr teuer. Basic- 
Erweiterungen sind dann mit einer großen Sammlung von 
Fertigteil-Formen zu vergleichen: Man muß alle kaufen, 
obwohl man nur einige für den Sonderwunsch braucht. 

Der Vergleich fängt nun etwas zu hinken an: Die Fertig¬ 
teile setzen sich nämlich bei genauerem Hinsehen aus klei¬ 
nen Einzelteilen (Ziegelsteinen) zusammen. Wenn man 
also auf die vorgefertigten Großteile weitgehend verzichtet, 
dafür aber den Umgang mit Ziegelsteinen (Assemblerbe¬ 
fehlen) beherrscht, kann man sich genau das individuelle 
Haus bauen, wie bizarr es auch immer aussehen mag. 

Wenn man sich das Verarbeiten eines Basic-Program- 
mes etwas genauer ansieht, dann versteht man die 



Schwerfälligkeit, mit der vieles geschieht. Vom Augenblick 
des Einschaltens an läuft ein Maschinenprogramm im 
Computer: Der Interpreter. Jeder Tastendruck, jeder Basic- 
Befehl, der diesem in die Hände fällt, wird untersucht und 
führt zur Abarbeitung eines auf diesen Befehl zugeschnit¬ 
tenen Assemblerprogrammes. 

Ein Basic-Befehl wie beispielsweise PRINT kann ganz 
verschiedene Reaktionen erfordern: Wenn vorher ein 
CMD-Kommando erfolgt war, findet die Ausgabe nicht auf 
dem Bildschirm statt. Wenn das nicht der Fall war, kann der 
Bildschirm an einer anderen Stelle als im Normalfall liegen. 

Der PRINT-Befehl im Vergleich 


Das, was auszudrucken ist, kann ein String sein, eine Inte¬ 
gerzahl oder eine Fließkommavariable, allerlei Fehlerquel¬ 
len sind abzufangen etc. Das zu PRINT gehörende Assem¬ 
bler-Programm muß all diese Möglichkeiten berücksichti¬ 
gen, wie selten sie auch angesprochen werden. 

Bei einem individuellen Assembler-Programm wissen 
wir dagegen, was wir wie ausgeben wollen. Unser eigener 
»PRINT-Befehl wird nur das enthalten, was unbedingt not¬ 
wendig ist, der ganze unnötige Ballast wird von uns nicht 
programmiert. Allerdings sind wir dann auch voll verant¬ 
wortlich für die einwandfreie Funktion. Wir müssen bei¬ 
spielsweise dafür sorgen, daß bei Zugriffen auf Register 
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C64, C128 


oder Speicher dort der richtige Wert zum richtigen Zeit¬ 
punkt im erlaubten Format zur Verfügung steht. Das ist wie 
im täglichen Leben: Die größere Freiheit legt uns mehr Ver¬ 
antwortung auf und schafft uns andererseits ungeahnte 
Möglichkeiten, Ideen zu verwirklichen. 

Einige Vorbemerkungen 


Für die ersten Beispielprogramme werde ich den Assem¬ 
bler »Hypra-Ass« verwenden. Erwurdeim64’er-Sonderheft 
8/85 abgedruckt und ist auch auf der entsprechenden 
Programmservice-Diskette erhältlich. Besonders interes¬ 
sant wird für Sie in diesem Zusammenhang auch der 
»Giga-Ass« aus dieser Ausgabe. 

Weil man aber auch einen Monitor braucht, findet zu die¬ 
sem Zweck weiterhin der SMON hier seinen Platz. Ich ver¬ 
wende eine Version, die bei $9000 beginnt, um ab $C000 
Raum zu lassen für den Reassembler zu Hypra-Ass (Son¬ 
derheft 8/85). Das ist ein nützliches Programm, mit dem 
man Maschinencode aus dem Speicher wieder in einen 
Quelltext umwandeln kann. Mittels des Hypra-Ass ist dieser 
Quelltext dann bearbeitbar. Mit diesem kompletten Instru¬ 
mentarium sind wir allen Aufgaben gewachsen. Quellcode 
von Hypra-Ass können Sie übrigens in das Giga-Ass- 
Format konvertieren. Beim Arbeiten mit Giga-Ass sollte der 
SMON bei $C000 beginnen, da Giga-Ass im Speicherbe¬ 
reich $8000 bis $9FFF liegt. Im weiteren wollen wir uns aber 
auf den Hypra-Ass beziehen. 


HYPRA-ASS ASSEMBLER!.IST ING: 

3 - .LI 1,4 

I*»* VERZOEGERUNGSSCHLEIFE VARIANTEN 1 UND 2 *». 
! X— ODER Y-REGISTER ALS ZAEHLER 
I 


sbbb abbb 

5002 cs 

5003 C0FF 
5005 90FD 
5007 00 


40 
: 50 
: 60 
■ 70 
: 80 
:70 
100 


-LABEL 


- 8 A $5000 
LDY #$00 
INY 

CPY #*FF 
BCC LABEL 
BRK 

-SY 1,4 


iBZW. LDX 
i INX 

1 CPX 

!WENN <255 


SYMBOLS IN ALPHABETICAL ORDER: 

LABEL . $5002 

END OF ASSEMBLY 0:14.6 

BASE - $5000 LAST BYTE AT $5007 

Llstlng 1. Etwas verzögern mit Variante 1 und 2 


llfl 

•LI 1,4 


20 

.DA >5000 


30 

VERZOEGERUNGSSCHLEIFE VARIANTE 4 »»« 

40 

-SVARIABLER ENDWERT 


50 

“iY-REGISTER ALS ZAEHLER 


60 

“1 


70 

LDA 4**20 

(DAS IST DEZIMAL 32 

00 

STA *FA 

SENDWERT SPEICHERN 

90 

- 1 


100 

LDY 44*00 

(Y-REGISTER INITIALISIEREN 

110 

-LADEL INY 


120 

CPY *FA 

(ENDWERT ERREICHT? 

130 

DCC LABEL 

(NEIN:DANN WEITERZAEHLEN 

140 

BRK 


150 

-1 


160 

- .SY 1,4 


170 

.ST 


Listing 2. Verschieden verzögern mit Variante 4 


Einfache Schleifen 


Eine der meistgebrauchten Strukturen in Basic und auch 
eine der wichtigsten in Assembler ist die Programm¬ 
schleife. Als »einfache« Schleife bezeichne ich solche, die 
zum Zählen nur 1 Byte erfordern, also maximal 256 Durch¬ 
läufe erlauben. Die verschiedenen Möglichkeiten sehen 
wir uns anhand von Verzögerungsschleifen an, die 
zunächst einmal nichts anderes tun, als zu zählen und Zeit 
zu verbrauchen (welch ein Luxus!). Die einfachste Variante 
lautet in Basic etwa: 

10 F0R I = 0 T0 255 
20 NEXT I 

In Listing 1 finden Sie die »Übersetzung« in Assembler. 

Sie können sowohl das Y-Register (Variante 1) als auch 
das X-Register (Variante 2) zum Zählen verwenden. In Zeile 
5 finden Sie .LI 1,4. Das ist ein Pseudobefehl (also kein 
6502-Befehl), der die Ausgabe des Protokolls über den 
Drucker bewirkt. Zeile 40 enthält durch .BA $5000 wieder 
einen Pseudobefehl. Damit legt man fest, von welcher 
Adresse an der Maschinencode in den Speicher gelegt 
werden soll. Die Zeilen 50 bis 90 sind unser Assemblerpro¬ 
gramm. Zuerst wird ein Startwert 0 in das Y-Register 
geschrieben und dieses dann in der Zeile mit dem Label um 
1 hochgezählt. 

Falls Ihnen der Ausdruck Label nicht geläufig ist: Natür¬ 
lich kann man statt dessen die Adresse 5002 hinter den 
BCC-Befehl in Zeile 80 schreiben - so haben wir das ja bis¬ 
her immer mit dem SMON-Assembler getan. Das hätte 
aber im Quelltext, den wir hier schreiben, den Nachteil, daß 
wir diese Adresse jedesmal ändern müßten, wenn wir uns 
entschlößen, mit dem Pseudobefehl .BA den Programm¬ 
start zu verlegen. Indem wir aber diese Zeile durch das 
Label-Kennzeichen markieren, merkt sich der Hypra-Ass 
die dazugehörige Zeilennummer und rechnet sie beim 
Assemblieren automatisch in die richtige Sprungadresse 
um. 


10 

- 

-LI 1,4 


20 

— 

.BA *5000 


30 

- 5 ##* 

VERZOEGERUNGSSCHLEIFE VARIANTE 5 *#* 

S 

60 

• . ARIABLER ENDWERT 


— ; cjPE ICHERSTELLE ALS 

ZAEHLER 

70 

- 

LDA 4**20 

? DAS IST DEZIMAL 32 

80 

90 

I, 

STA *FA 

SENDWERT SPEICHERN 

100 

- 

LDA 4**00 

»ZAEHLER INITIALISIEREN 

110 
120 

“1 

STA *5100 

$ DA IST ER:UNSER ZAEHLER 

130 

-LABEL 

INC *5100 


140 

— 

LDA *5100 


150 

- 

CMP *FA 

»VERGLEICHEN MIT ENDWERT 

160 

— 

BCC LABEL 

;WEITERZAEHLEN WENN <> ENDWERT 

170 

— 

BRK 


180 

- 

.SY 1,4 


190 

- 

.ST 



Listing 3. Dies ist die Variante 5 


10 

_ 

-LI 1,4 

20 

- 

.BA *5000 

30 

-(.«« VERZOEGERUNGSSCHLEIFE VARIANTE 6 »*» 

40 

A 6 WAERTB 

ZAEHLEN <Y-REGISTER» 

50 

-| 


sei 

- . 

LDY #$FF (STARTWERT NACH Y 

70 

-LABEL 

DEY 

80 

- 

DNE LABEL (WEITER BIS V - B 

90 

- 

BRK 

100 

-1 


110 


■SY 1,4 

120 

* 

.ST 

Listing 4. Rückwärts verzögern mit Variante 6 


10 - .LI 1,4 

20 - • .BA $5000 

30 -(»»» VERZOEGERUNSSSCHLEIFE VERSION 7 »«« 

40 -sABWAERTS ZAEHLEN ($FA ALS ZAEHLER) 


50 -| 



60 

LDA 44*20 

(STARTWERT IN ZAEHLER 

70 

STA *FA 

(SCHREIBEN 

80 -LABEL 

DEC *FA 


90 

BNE LABEL 

(WEITER BIS $FA = 19 

100 - 

BRK 


110 -J 



120 - 

.SY 1,4 


130 - 

.ST 



Listing 5. Hier haben wir die Variante 7 


•onlino.de 

online.net 
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Ein weiterer Vorteil ist, daß man zu Dokumentations¬ 
zwecken jede wichtige Adresse auf diese Weise markieren 
und sich am Schluß durch eine Symboltabelle ausgeben 
lassen kann. Besonders bei langen Programmen, in denen 
man dann sinnvolle Labelnamen verwendet (beispiels¬ 
weise DRUCKEN am Anfang des Programmteils, das einen 
Ausdruck steuert), kann das eine unschätzbare Hilfe sein. 

In unserem Programm in Listing 1 geht es weiter mit dem 
Vergleich, ob im Y-Register nach der Erhöhung schon $FF 
erreicht wurde. Ist das nicht der Fall, dann ist das Carry-Bit 
frei und der Programmablauf verzweigt zurück zur Label¬ 
zeile. Ansonsten ist die Verzögerungsschleife beendet und 
mit dem BRK meldet sich der SMON, den Sie zu diesem 
Zeitpunkt natürlich im Speicher haben sollten (vergessen 
Sie nicht, den SMON zumindest einmal zu starten mit SYS 
»Startadresse«, damit bei einem BRK in den SMON 
gesprungen wird). 

Falls Sie das Programm durch SYS $5000 vom Hypra- 
Ass aus gestartet haben (und nicht durch G 5000 aus dem 
SMON), finden Sie sich ebenfalls im Monitor wieder. Fast 
alle Beispielprogramme in diesem Kurs werden mit BRK 
enden. Der Grund dafür ist, daß es oft interessant ist, die 
Register nach dem Programmende zu beobachten. Sollten 
Sie ohne Monitor arbeiten wollen, dann müßten Sie statt 
dessen ein RTS einsetzen. Hinter dem eigentlichen Pro¬ 
gramm finden Sie .SY 1,4. Auch das ist ein Pseudobefehl, 
der die Ausgabe der Symboltabelle über den Drucker 
bewirkt. Nicht sichtbar ist ein Befehl .ST, mit dem die 
Assemblierung beendet wird. Einige interessante Angaben 
besorgt uns der Hypra-Ass noch nach der kurzen Symbol¬ 
tabelle: Eine Zeitangabe und den Bereich, in dem der 
Maschinencode nun nach der Assemblierung zu finden ist. 
Falls Sie diesen Objektcode (so nennt man den Maschinen¬ 
code auch häufig) speichern wollen (vom Monitor aus mit 
dem S-Kommando möglich), dann brauchen Sie diese 
Angaben. Unser Programm würde dann so abgespeichert: 
S " OBJ.VERZ.VAR1 ' 5000 5008 
(Man muß immer ein Byte zur Endadresse hinzurechnen 
beim Speichern des Objektcode). Eine andere Möglichkeit, 
den Objektcode auf Diskette zu speichern: Nach dem 
.L11,4 in der nächsten Zeile folgenden Befehl einsetzen: 
10 -.OB " OBJ.VERZ.VAR1 ,p,w 

Jetzt wird nach dem Starten des Assemblierens mit RUN 
automatisch das Maschinenprogramm gespeichert. 

Die weiteren Programmbeispiele werde ich nicht so 
erschöpfend erklären. Nur wenn neue Pseudobefehle ver¬ 
wendet werden oder eine neue Programmstruktur es erfor¬ 
dert, geht’s nochmal in dieTiefe. Um etwas Platz zu sparen, 
wurden die folgenden Programme nicht mit dem .LI - Befehl 
aus dem Drucker ausgegeben, sondern mit 
OPEN 1,4:CMD1 
/E 

Dadurch werden die Adressen mit den Hex-Codes der 
Maschinenbefehle nicht gedruckt, sondern nur das Listing, 
wie es auch auf dem Bildschirm zu sehen ist. 

Häufig tritt in Schleifen der Fall ein, daß weder das Y- 
noch das X-Register zur Verfügung stehen. Sie dienen 
dann anderweitig schon als I ndex. Statt dessen kann eben¬ 
sogut eine Speicherstelle den Zähler bilden, wie in dieser 
Variante 3: 


LDA #$00 

STA $FB 

LABEL INC $FB 

LDA $FB 

CMP #$FF 

BCC LABEL 

RTS 


;$FB ist Zähler 


Selbstverständlich kann auch eine andere Speicher¬ 
stelle anstelle von $FB verwendet werden, sogar eine, die 


nicht in der Zeropage liegt. Voraussetzung ist lediglich, daß 
sie nicht innerhalb der Schleife verändert wird - außer zum 
Zählen der Schleifendurchläufe. In den bisher kennenge¬ 
lernten Varianten haben wir immer $FF als Endwert genom¬ 
men. Nun steht man oft vor der Aufgabe, bis zu einem 
bestimmten Endwert zu zählen, der vorher irgendwie ein¬ 
gegeben oder festgelegt wird. In Basic sähe das beispiels¬ 
weise so aus: 

10 A = 32 
20 F0R I = 0 T0 A 
30 NEXT I 

Hier ist also der Endwert in Zeile 10 auf 32 gesetzt worden 
und die Schleife zählt bis zu diesem in A festgelegten Wert. 

In Assembler können wir das ebenfalls. Listing 2 zeigt die 
Variante 4. 

Die Speicherstelle $FA nimmt die Funktion der Variablen 
A des Basicprogrammes ein. Dorthinein wird der Endwert 
(32=$20) gelegt und der Vergleichsbefehl lautet nun: 

CPY $FA 

Das ist: »Vergleiche den Inhalt des Y-Registers mit dem 
Inhalt der Speicherstelle $FA«. Wir haben in dieser Version 
4 wieder das Y-Register als Zähler benutzt, Version 5 
(Listing 3) zeigt uns dasselbe, nur wird hier die Speicher¬ 
stelle $5100 zum Zählen verwendet. 

Es hat sich eingebürgert, Schleifen in Assembler nicht - 
wie wir es bisher getan haben - aufwärts, sondern abwärts 
zu zählen. Der Grund dafür ist: Es geht schneller, weil man 
sich meistens den Compare-Befehl ersparen kann. Bei Ver¬ 
zögerungsschleifen ist das ja noch nicht so interessant, 
später aber, wenn in den Schleifen noch allerhand ge¬ 
schehen soll, summieren sich die Taktzeiten bei mehr¬ 
fachem Durchlauf schon ganz erheblich. Eine Basic- 
Programmsequenz sähe nun so aus: 

JL0.FQR I = 255 T0 0 STEP -1 
20 NEai. I 

In Listing 4 finden Sie das Assemblerlisting der Vari¬ 
ante 6. 

Das entspricht der Variante 1. Der Unterschied ist aber, 
daß hier abwärts gezählt wird und man sich den CPY- 
Befehl sparen kann, denn vor einem Unterlauf des 
Y-Registers wird automatisch bei 0 die Zero-Flagge 
gesetzt. Das aber prüft der BNE-Befehl. 

Aus alledem ist also zu lernen: 

1) Wann immer möglich, abwärts zählen. 

2) Wann immer möglich, X- oder Y-Register als Zähler 
verwenden. 

Die Variante 5 war natürlich ein ausgesuchtes Extrem¬ 
beispiel, denn außer der Tatsache, daß man beim Abwärts¬ 
zählen den Endwert als Startwert immer gleich in den Zäh¬ 
ler eingeben kann und ihn normalerweise nicht noch 
irgendwo speichern muß, verwendet man natürlich - wenn 
es denn nötig ist, etwas anderes als die Indexregister dazu 
zu gebrauchen - eine Zeropagespeicherstelle als Zähler 
und nicht - wie in Version 5 - eine Speicherstelle wie $5100. 
Die verbesserte Version 7 entspricht dem Basicprogramm: 
10 A = 32 

20 F0R I = A T0 0 STEP -1 
30 NEXTI 

In Listing 5 finden Sie diese Version. $FA dient als Zähler. 

Etwas schwieriger wird die Programmierung, wenn man 
nicht nur um 1 herauf- oder herunterzählt, sondern um 2, •• 
3,4 oder mehr. Das Basic-Äquivalent drückt sich dann bei¬ 
spielsweise in der Ergänzung STEP -2 der FOR...NEXT- 
Schleife aus. Dreht es sich nur um kleine Schrittweiten, die 
konstant bleiben, dann verwendet man vorteilhaft mehrere 
DEY (oder DEX, DEC, INY, INX und INC) hintereinander. 
Man muß außerdem mit der Abbruchbedingung einer sol¬ 
chen Schleife vorsichtig sein. BNE ist nicht immer möglich, 
weil man unter Umständen schon vor der Prüfung (durch 
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10 

. 

.LI 1,4 


20 

— 

.DA $5000 


30 

-«*»• VERZOEGERUNGSSCHLEIFE VERSION 8 ... 

40 

“S FÜR I = 

32 TQ 0 STEP-3 


50 

“1 



60 


LDY #»20 

(STARTWERT IN ZAEHLER 

70 

-LABEL 

DEY 

»MINUS 3 

Q 0 

- 

DEY 


90 

— 

DEY 


100 

- 

BPL LABEL 

iWEITER BIS UNTERLAUF 

110 

— 

BRK 


120 

“1 



130 


.SY 1,4 


140 

- 

.ST 


Listing 6. Verzögern in kleinen Schritten mittels 

Variante 8 




10 

- 

.LI 1,4 


20 

- 

. 8 « »arati 


30 

-i«»» VERZOEGERUNGSSCHLEIFE VERSION 9 »*» 

40 

-»FÜR I - 

127 TO 0 STEP - 

10 

50 

-1 



60 


LDO «*7F 

■DAS IST DEZIHOL 127 

70 

— 

STA »FA 

i UNSER ZAEHLER 

G 0 

-LABEL 

SEC 


90 

- 

UDO »FA 


100 

— 

SBC M»0A 


1 10 

- 

STA »FA 


120 

- 

BPL LABEL 

(WEITER BIS UNTERLAUF 

130 

— 

BRK 


140 

- 

.BY 1,4 


150 

- 

-ST 



Listing 7. Verzögern In großen Schritten mit Variante 9 


10 

.LI 1,4 


20 

.BA »5000 


30 

•EQ SCREEN~*0400;BILDSCHIRMSTORT 


40 

•ED COLOR=*DB00s FARBRAMSTART 


50 

-?*«» BEISPIEL 1 *#« 


60 

-{VERSION 8 MIT EINGFACHEM JOB 


70 

-(ZEICHEN AUF BILDSCHIRM ZEIGEN 


B 0 

— | 


90 

-INITIALISIERUNG- 


100 



110 

LDY »*7F (DAS IST DEZIMAL 127 


120 

— J 


130 

-J- VERARBEITUNG - 


140 

-| 


150 

-LABEL TYA 


160 

STA SCREEN.Y 


170 

- STA CQLQR,Y 


180 

-5 


190 

-f-STEUERUNG- 


200 

-i 


210 

DEY 


220 

DEY 


230 

BPL LABEL 


240 

“f 


250 



260 

“1 


270 

BRK 


200 

"I 


290 

.SY 1,4 


300 

.ST 


Listing 8. Unser Beispiel 1 in Assembler: 


Bunte Zeichen 



BNE) unter 0 hindurch gezählt hat (dann folgt ja wieder $FF 
etc.). Hat beispielsweise der Zähler (hier das Y-Register) 
den Wert 1 und es wird durch eine Sequenz: 

DEY 

DEY 

DEY 

BNE LABEL 

weitergezählt, dann nimmt Y der Reihe nach die Werte 0, 
FF, FE an und BNE findet die Zeroflagge nicht gesetzt. Man 
muß also andere Abbruchbedingungen verwenden. 
Solange man bis zur ersten Prüfung (also dem ersten 
Schleifendurchlauf beim Herunterzählen) im Zähler minde¬ 
stens $7F(=binär 0111 1111) vorliegen hat, kann man mittels 
BPL die Schleife schließen. Zur Erinnerung: BPL ver¬ 
zweigt, wenn Bit 7 nicht gesetzt ist (kleiner 128), BMI ver¬ 
zweigt, wenn Bit 7 gesetzt ist (größer oder gleich 128). Das 
Basic-Programmstück 
10 FOR I = 32 TO 0 STEP -3 
20 NEXT I 

findet seine Entsprechung in dem Assemblerlisting Version 
8 (Listing 6). 


Wieder dient das Y-Register als Schleifenzähler. 
Größere Schrittweiten lassen es - von einer gewissen 
Grenze an, die durch das Verhältnis von Bytezahl auf der 
einen und Bearbeitungsdauer auf der anderen Seite, 
bestimmt wird-sinnvoll erscheinen, den Zähler durch Sub¬ 
traktion (oder Addition beim Aufwärtszählen) zu verändern. 
Das Analogon zur Basic-Sequenz: 

10 FOR I = 127 T0 0 STEP -10 
20 NEXT I 

sehen Sie in Listing 7. 

In dieser Version 9 dient die Zeropagespeicherstelle $FA 
als Zähler und in den Programmzeilen 80 bis 110 findet die 
Verminderung dieses Zählers durch Subtraktion statt ($0A 
= dezimal 10). Das Programm kann noch verändert wer¬ 
den, indem man anstelle von BPL den BCS-Befehl verwen¬ 
det. Wenn die Subtraktion einen Unterlauf ergeben hat, 
wird das Carry-Bit gelöscht. Außerdem lassen sich noch 2 
Byte einsparen, indem man das STA $FA aus Zeile 110 her¬ 
ausnimmt und dafür das LABEL eine Zeile höher setzt. 
Allerdings geht das dann auf Kosten der Durchschaubar- 
keit unseres Programmes. 

Wir wollen nun mit den einfachen Verzögerungsschlei¬ 
fen aufhören. Es gäbe noch weitere Aufgaben zu lösen (bei¬ 
spielsweise von einem bestimmten Startwert bis zu einem 
bestimmten Zielwert zu zählen), die vertraue ich aber Ihnen 
selbst an: Alles Notwendige dazu können Sie aus unseren 
verschiedenen Versionen entnehmen und kombinieren. 
Interessant werden Schleifen hauptsächlich durch einen 
Job, der in ihnen wiederholt ausgeführt wird. Zwei Bei¬ 
spiele sollen uns zur Illustration dienen. Vorher aber sollen 
noch einige Bemerkungen zur grundsätzlichen Architektur 
von Schleifen gemacht werden. 

Im Prinzip besteht jede Schleife aus vier Teilen: 

- Initialisierung. Beispielsweise wird hier der Startwert des 
Zähler- festgelegt. 

- Verarbeitung. Das ist das, was in den Verzögerungs¬ 
schleifen bisher leer blieb: der Job. 

- Steuerung. Hoch- oder Herunterzählen des Zählers und 
Prüfen der Abbruchbedingung. 

- Ausgang. Das war bisher bei uns immer der BRK-Befehl. 
Aus diesen vier Bestandteilen lassen sich zwei grund¬ 
sätzliche Schleifenmöglichkeiten konstruieren, die Sie in 
Bild 1 dargestellt finden. 

In Bild 1a haben wir das Prinzip vorliegen, das unseren 
normalen FOR...NEXT-Schleifen in Basic zugrundeliegt. 
Diese Schleife wird mindestens einmal durchlaufen. Erst 
nach der Ausführung des Jobs erfolgt die Prüfung, ob die 
Abbruchbedingung gegeben war. Soll solch eine Schleife 
n-mal durchlaufen werden, muß die Initialisierung mit n-1 
im Zähler erfolgen (oder die Abbruchbedingung entspre¬ 
chend umgeformt werden). 

Die Schleifenkonstruktion in Bild 1b dagegen muß nicht 
durchlaufen werden. Ihr entspricht etwa eine DO 
UNTIL...LOOP-Schleife oder auch eine DO WHILE...LOOP- 
Schleife aus dem Basic 7.0 des C 128 oder 3.5 des C16/ 
C116. Hier erfolgt die Initialisierung des Zählers genau mit 
dem Wert n. 

Sehen wir uns beispielsweise unsere Version 9 an, dann 
entdecken wir die einzelnen Schleifenteile wie folgt: 


Initialisierung: 

LDA #$7F 
STA $FA 

Verarbeitung: LABEL 

— 

Steuerung: 

SEC 

LDA $FA 
SBC $0A 
STA $FA 
BCS LABEL 

Ausgang: 

BRK 
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Auf diese Weise ist es möglich, alle bisher kennengelern¬ 
ten Schleifenvarianten mit einem beliebigen Job zu füllen. 
Noch eins gibt es zu bedenken: Alle Instruktionen zwischen 
dem Label und der Abbruchbedingung werden oft ausge¬ 
führt, sind also zeitfressend. Daher sollte der auszufüh¬ 
rende Job alle Befehle vermeiden, die ebensogut vor der 
eigentlichen Schleife stehen könnten. 

Sehen wir uns unser 1. Beispiel an. Wir stellen uns die 
Aufgabe, von den 127 Zeichen, die mittels POKE-Code 
erfaßbar sind, jedes 2. Zeichen an jeder 2. Bildschirmstelle 
abzubilden. Das Ganze soll durch Verwenden verschiede¬ 
ner Farben auch noch hübsch bunt aussehen. In Basic wür¬ 
den wir dafür schreiben: 

10 S = 1024 : C = 55296 
20 FOR I = 127 TO 0 STEP -2 
30 POKE S+I,I 
40 POKE C+I,I 
50 NEXT I 

Weil im Bildschirmfarbspeicher nur die Bits 0 bis 3 eine 
Rolle spielen (die anderen aber gar nicht beachtet werden), 
erzeugen wir in Zeile 40 auch die verschiedenen Farben 
mehrmals nacheinander. 

In Listing 8 wird dieselbe Problemlösung in Maschinen¬ 
sprache dargestellt. In den Zeilen 30,40 und 160,170 sehen 
Sie die Anwendung eines weiteren Pseudobefehls. Das 
.EQ bewirkt, daß eine bestimmte Speicherstelle mit einem 
Namen versehen werden kann. Im folgenden braucht man 
sich nur noch den Namen zu merken, der auch am Ende in 
der Symboltabelle mit ausgegeben wird. Dadurch wird 
man bis zu einem gewissen Grad sogar systemunabhän¬ 
gig. Um beispielsweise dieses Programm auf einem VC 20 




Bild 1a und b. Zwei grundsätzliche Schleifenformen 

in der Grundversion laufen zu lassen, muß in Zeile 30 der 
SCREEN-Wert auf $1E00 und in Zeile 40 der COLOR-Wert 
auf $9600 geändert werden. 

Bevor sie durch G 5000 aus dem Monitor heraus das Pro¬ 
gramm starten, löschen Sie am besten zuerst den Bild¬ 
schirm und fahren den Cursor in eine mittlere Bildschirm¬ 
zeile, damit er dem Ergebnis des Programmes nicht ins 
Gehege kommt. Das Programm läuft natürlich auch auf 
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dem C 128 (im 128er-Modus). Allerdings werden hier die 
Zeichen nur einfarbig, weil man zum Beschreiben des Bild- 
schirmfarbspeichers (mit STA COLOR.Y) noch die Bank 
umschalten muß. , . l .Vi l , i' I 

Sie sehen: Das geht in Assembler erheblich schneller als 
in Basic und eben die Geschwindigkeit in Assemblerpro¬ 
grammen wird es sein, die uns im 2. Beispiel noch ein 
wenig beschäftigen wird. Die Aufgabenstellung ist fol¬ 
gende: Ein weißer Ball soll von rechts unten kommend quer 
über den Bildschirm nach links oben fliegen. Dazu sollen 
zwei Firmwareroutinen (auch Interpreterroutinen genannt) 
verwendet werden: Eine zum Drucken beliebiger Zeichen 
und eine andere zum Setzen des Cursors. Die erste ist das 
normale PRINT in Basic, das als Kernal-Routine BSOUT 
(manchmal auch CHROUT genannt) durch Assemblerpro¬ 
gramme bei $FFD2 ansteuerbar ist. Das auszudruckende 
Zeichen muß vor dem Aufruf JSR $FFD2 im Akkumulator 
enthalten sein. Die andere Routine dient dem Steuern des 
Cursors. Gibt man in die Speicherstelle 211 ($D3) die 
gewünschte Spalte und in 214 ($D6) die Zeile des Bild¬ 
schirmes, an die der Cursor positioniert werden soll, dann 
lenkt ihn der Aufruf des bei 58640 ($E510) beginnenden 
Maschinenprogrammes unserer Firmware an diesen Ort. 

Alle Randbedingungen werden durch dieses Basic- 
Programm realisiert: 

10 S=211:Z=2l4:B=58640:Sl=40 
15 Zl=20 

20 PRINT CHR$(l47)CHR$(5) 

30 GOSUB 100: PRINT CHR$(113) 

40 F0R 1=19 TO 0 STEP -1 
50 GOSUB 100:PRINT CHR$(32) 

60 Sl=Sl-2:Z1=Z1-1 
70 GOSUB 100: PRINT CHR$( 113) 

80 NEXT I 

90 PRINT CHR$( 154): END ' 

100 P0KE S,S1:P0KE Z,ZI:SYS B: 

110 RETURN 

In der Schleife wird immer zuerst das zuletzt gedruckte 
Zeichen gelöscht (sonst hätten wir nicht nur einen Ball, son¬ 
dern eine Diagonale aus weißen Bällen) und dann nach 
dem Weitersetzen des Cursors der nächste Ball 
gezeichnet. 

Listing 9 zeigt nun das Äquivalent dazu in Assembler. In 
den Zeilen 30 bis 80 finden Sie wieder den Pseudobefehl 
.EQ. Mit diesem werden außer den schon besprochenen 
Speicherstellen (Zeile, Spalte, CSET und BSOUT) auch 
noch zwei Zähler kreiert: COUNTZ (Zeilerzähler) und 
COUNTS (Spaltenzähler). Was soll das, werden Sie fragen; 
warum verwendet man nicht direkt ZEILE und SPALTE? Die 
Ursache liegt darin, daß BSOUT ebenfalls diese Speicher¬ 
stellen benutzt und daher keine richtige Zählung mehr statt¬ 
finden kann. So zählt $FA und $FB und jedesmal vor Aufruf 
von CSET wird deren Inhalt in ZEILE und SPALTE übertra¬ 
gen. Wir brauchen natürlich nur einen Zähler für diese 
Schleife. COUNTS läuft nur nebenher und könnte auch in 
den Schleifenteil »Verarbeitung« geschrieben werden. Die 
Abbruchoperation in Zeile 480 prüft nur COUNTZ. Mehr 
Kommentar finden Sie direkt im Listing. 

So, nun starten Sie mal das Programm nach dem Assem- 
blieren aus dem Monitor mit G 50001 Sie meinen, da pas¬ 
siert ja gar nichts? Ich kann Ihnen beweisen, daß doch 
etwas passiert - nur so immens schnell, daß wir nichts 
davon sehen. Verändern Sie doch mal in Zeile 400 das 
#$20 (Leerzeichen) zu #$1C (Farbe rot). Das können Sie 
auch schnell aus dem Monitor her erreichen durch M 5033 
- dort finden Sie am Anfang die 20 - und überschreiben 
durch IC (RETURN drücken!). Wenn Sie nun starten, wird 
der Ball nicht mehr gelöscht, sondern nur rot gefärbt. Wir 
erhalten die Diagonale aus roten Bällen. Es geht also doch! 


10 

_ 

.LI 1,4 


1 20 

— 

.BA *5000 


, 30 

- 

.EQ SPALTE=*D3 


40 

- 

.EQ ZEILE=*D6 


50 

— 

■EQ Ct]UNTZ=*FA 


60 

— 

.EQ CüUNTS=*FB 


70 

- 

-EQ CSET=*E510 


Ü0 

— 

.EQ BS0UT=*FFD2 

90 

-1»*# 

BEISPIEL 2 »»• 


100 

BILDSCHIRMAUSGABE MIT F IRMWARE-RDUTINEN 

1 10 

“1 



120 


- VORBEREITUNGEN — 


130 

“1 



140 


LDA **93 

{DEZIMAL 147 

150 

- 

JSR BSUUT 

{BILDSCHIRM LOESCHEN 

160 

— 

LDA **05 


170 

— 

JSR BSOUT 

!ZEICHENFARBE WEISS 

1 R0 

— 

LDA **14 

IDEZIMAL 20 

190 

— 

8T0 ZEILE 


200 


STA COUNIZ 

{SICHERN 

210 

— 

LDA **27 

1 DEZIMAL 39 

220 

— 

STA SPALTE 


230 

- 

STA COUNTS 

{SICHERN 

240 

-1 



250 

“1 - 

VERARBEITUNG - 


260 




270 

-LABEL 

LDA COUNTZ 


200 

— 

BTA ZEILE 


290 

- 

LDA COUNTS 


300 

— 

STA SPALTE 


310 

- 

JSR CSET 

{CURSOR SETZEN 

320 

— 

LDA **71 

»DEZIMAL 113 

330 

- 

JSR BSOUT 

{GRAFIKZEICHEN DRUCKEN 

340 

— 

NÜP 


350 

- 

LDA COUNTZ 


360 

- 

STA ZEILE 


370 

- 

LDA COUNTS 


300 

— 

STA SPALTE 


390 

— 

JSR CSET 


400 

- 

LDA **20 

•.DEZIMAL 32 

410 

— 

JSR BSOUT 

{ZEICHEN LOESCHEN 

420 

— | 



430 

- 

STEUERUNG - 


440 

-1 



450 


DEC COUNTS 


460 

- 

DEC COUNTS 


470 

- 

DEC COUNTZ 


400 

- 

BNE LABEL 

;HERUNTERZAEHLEN BIS 0 

490 




500 


ABSCHLUSS - 


510 

-} 



520 

— 

LDA M*9A 

{DEZIMAL 154 

530 

- 

JSR BSOUT 

! ZEICHENFARBE HELLBLAU 

540 

— 

BRK 


550 

■»1 



560 

— 

-SY 1,4 


570 

- 

.ST 


Listing 9. Ein schneller Flitzer: Beispiel 2 


Wir müssen daher das Ganze etwas verlangsamen. 
Dazu ist schon eine Stelle vorgesehen: In Zeile 340 befin¬ 
det sich ein gänzlich unmotiviertes NOP-Kommando. Dort¬ 
hin packen wir nun eine Verzögerungsschleife und es 
ergibt sich das Programm in Listing 10. 

In die Zeilen 335 bis 345 haben wir die Version 6, mit dem 
Y-Register als Zähler eingefügt. Ein erneuter Start nach 
dem Assemblieren zeigt uns ein kurzes weißes Aufflackern 
(falls Sie die Farbe Rot wieder gegen #$20 ausgetauscht 
haben!). Das war also immer noch zu schnell! Also bauen 


250 

-i- 

VERARBEITUNG - 


260 

-i 



270 

-LABEL 

LDA COUNTZ 


200 

- 

STA ZEILE 


290 


LDA COUNTS 


•.00 


BTA SPALTE 


310 


JSR CSET 

I CURSOR SETZEN 

320 

— 

LDA #*71 

SDEZIMAL 113 

330 


JSR BSOUT 

;GRAFIKZEICHEN DRUCKEN 

335 

- 

LDY #*FF 

! VERZOEGERUNG 

340 

-MARKE 

DEY 


345 


BNE MARKE 


350 

- 

LDA COUNTZ 


360 

- 

STA ZEILE 


370 

- 

LDA COUNTS 


3B0 

- 

STA SPALTE 


390 

- 

JSR CSET 


400 

- 

LDA #*20 

! DEZIMAL 32 

410 


JSR BSOUT 

SZEICHEN LOESCHEN 

420 

-s 



430 


STEUERUNG - 


Listing 10. Flitzer mit kleinem Handicap 
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wir noch eine Verzögerungsschleife ein (Zeilen 346 bis 348 
in Listing 11). 

Nun sehen wir schon ein wenig mehr, aber wir können 
uns vorstellen, daß es reichlich ungelenk wäre, nun noch 
eine dritte, vierte,... Verzögerung einzubauen. Es gibt noch 
einen anderen Weg, nämlich einfach 2 Verzögerungen 
ineinander zu verschachteln. Das ist schließlich in Listing 
12 geschehen und wenn Sie das nach der Assemblierung 
starten, dann geht’s hübsch langsam. Immerhin wird die 
innere Schleife 255*255mal durchlaufen. Jedesmal näm¬ 
lich, wenn wir X bis 0 heruntergezählt haben, wird Y dekre- 
mentiert und X wieder mit #$FF beladen. Das geht so 
lange, bis auch Y auf 0 heruntergezählt wurde. Wenn Sie in 
Zeile 332 statt #$FF einen kleineren Startwert eingeben 
(geht wieder ganz gut vom Monitor aus), läuft der Ball 
schneller. Damit haben Sie die Geschwindigkeit völlig im 
Griff. 

Wir haben jetzt die einfachen 8-Bit-Schleifen verlassen, 
denn diese Verzögerung ist schon eine 16-Bit-Schleife. 

16-Bit-Schleifen 


Sehen wir uns zunächst einmal in Basic an, was wir da 
gemacht haben. Es dreht sich um etwas uns sehr Bekann¬ 
tes: Zwei ineinander geschachtelte Schleifen. Am genaue¬ 
sten entspricht wohl diese Programmsequenz unserer 
16-Bit-Verzögerung: 

100 Y=255 

110 X=255 

120 X=X-1 

130 IF X .. 0 THEN 120 
140 Y=Y-1 

150 IF Y .. 0 THEN 110 
Gebräuchlicher wäre allerdings diese Version: 

100 F0R Y=255 T0 0 STEP-1 

110 F0R X=255 T0 0 STEP-1 

120 NEXT X 

130 NEXT Y 

Dagegen halten wir unsere Verzögerungsschleife aus 
dem letzten Assemblerprogramm (Listing 12): 

LDY #$FF 
LABEL LDX # $FF 

MARKE DEX 

BNE MARKE 
DEY 

BNE LABEL 


250 

-J- 

VERARBEITUNG - 


26 0 

-1 




270 

-LABEL 

LDA 

COUNTZ 


200 

- 

STA 

ZEILE 


290 

- 

LDA 

COUNTS 


300 

- 

STA 

SPALTE 


310 

- 

JSR 

CSET 

(CURSOR SETZEN 

320 

- 

LDA 

#*71 

(DEZIMAL 113 

330 

- 

JSR 

BSOUT 

(GRAFIKZEICHEN DRUCKEN 

335 

- 

LDY 

#*FF 

(VERZOEBERUNB 

340 

-MARKE 

DEY 



345 

- 

BNE 

MARKE 


346 

- 

LDY 

#*FF 


347 

-WEITER 

DEY 



34B 

- 

BNE 

WEITER 


350 

- 

LDA 

COUNTZ 


360 

- 

STA 

ZEILE 


370 

- 

LDA 

COUNTS 


380 

- 

STA 

SPALTE 


390 

- 

JSR 

CSET 


400 

- 

LDA 

#*20 

(DEZIMAL 32 

410 

- 

JSR 

BSOUT 

(ZEICHEN LOESCHEN 

420 

430 

-1 

s- 

STEUER! 

JNG- 



Listing 11. Der doppelt zögernde Flitzer 


Diese Schleife zählt das X-Register so oft eine ganze 
Page (minus 1, also jeweils 255mal) durch, wie es das Y- 
Register angibt, hier also 255mal. Insgesamt finden daher 
255*255 = 65025 Durchläufe statt. Um ganze Pages, also 
256 Zählungen zu erreichen, lädt man ins X-Register ein¬ 
fach 0 ein. Der DEX-Befehl sorgt dann noch vor der BNE- 
Prüfung für einen Unterlauf auf $FF. 

Deutlich wird Ihnen sicher, daß wir - im Gegensatz zur 
einfachen Schleife - hier einen Multiplikationseffekt zu 
beachten haben. Die Anzahl der Durchläufe setzt sich 
zusammen aus: 

Y-Startwert * X-Startwert 

Das ist auch ganz akzeptabel, solange man die 
gewünschte Durchlaufzahl aus zwei Faktoren zusammen¬ 
setzen kann. Soll ein Job beispielsweise lOOOmal ausge¬ 
führt werden, dann gibt es mehrere Möglichkeiten, denn 

1000 = 8 * 125 
= 4 * 250 
=10 * 100 

Wir könnten dann unsere Job-Schleife schreiben: 

LDY #$04 
LABEL LDX #$FA 

MARKE Job-Befehle 

DEX 

BNE MARKE 

DEY 

BNE LABEL 

Abgesehen davon, daß es doch ein wenig aufwendig ist 

- besonders bei einer nicht festgelegten Anzahl von Durch¬ 
läufen -jedesmal eine Aufspaltung in zwei Faktoren vorzu¬ 
nehmen: Was tun wir bei Primzahlen? 997 Jobs beispiels¬ 
weise lassen sich in solch einer Doppelschleife nicht bear- 
beiter; '997 ist eine Primzahl, das bedeutet, diese Zahl ist 
nicht in Faktoren zerlegbar). 

Im Prinzip gibt es für solche Fälle zwei Lösungen: 

- Entweder stellt man fest, daß es gleichgültig ist, ob nun 
(um bei unseren Beispielenzu bleiben) 1000,1024oder997 
Durchläufe stattfinden. Es ist häufig der Fall, daß dadurch 
nicht mehr Schaden angerichtet wird als der zusätzliche 
Zeitbedarf für 27 Durchläufe (bei 1024 anstelle von 997). In 
diesem Fall legt man den Anfangswert der inneren Schleife 
einfach grundsätzlich auf 0 fest (arbeitet also genau eine 
Page darin ab) und variiert nach Bedarf den Startwert der 
äußeren Schleife (dort wird nun also 4 eingetragen). 

- Oder aber - wenn’s genau drauf ankommt - wir müssen 
zwei Schleifen einrichten: Für die ganzen Pages eine Dop¬ 
pelschleife und für den Rest eine einfache. Genau das 


250 

260 

“1- 

"5 

VERARBEITUNG - 


270 

-LABEL 

LDA COUNTZ 


2B0 

- 

STA ZEILE 


290 

- 

LDA COUNTS 


300 

- 

STA SPALTE 


310 

- 

JSR CSET 

(CURSOR BETZEN 

320 

- 

LDA #*71 

(DEZIMAL 113 

330 

- 

JSR BSOUT 

(BRAFIKZEICHEN DRUCKEN 

332 

- 

LDY #*FF 


334 

-MARKE 

LDX #*FF 


336 

-WEITER 

DEX 


33B 

- 

BNE WEITER 


340 

- 

DEY 


342 

- 

BNE MARKE 


350 

- 

LDA COUNTZ 


360 

- 

STA ZEILE 


370 

- 

LDA COUNTS 


3B0 

- 

STA SPALTE 


390 

- 

JSR CSET 


400 

- 

LDA #*20 

(DEZIMAL 32 

410 

420 

430 

“5 

JSR BSOUT 

(ZEICHEN LOESCHEN 

S 

a1tUtnUNb — —“ 



Listing 12. Der Flitzer ist voll unter Kontrolle 



SONDERHEFT 21 


\J'i Mio! 

















GRUNDLAGEN 


C64, C128 


geschieht in einer sehr nützlichen Routine unserer Firm¬ 
ware, der BLTUC- (oder auch Blockverschiebe-) Routine, 
auf die wir später genauer eingehen wollen. Sie können ja 
schon mal mittels SMON in den Speicher sehen: Von 
$A3BF bis A3FA ist dieses Programm zu finden. 

Bevor wir uns an diese schwierigeren Sachen wagen, 
wollen wir uns aber noch ein wenig mit Fragen der Schlei¬ 
fenstruktur befassen. Zunächst kann nur relativ selten auf 
die beiden Indexregister als Zähler zurückgegriffen wer¬ 
den. Man muß meistens zwei Speicherstellen dazu verwen¬ 
den. Außerdem kann man natürlich ebensogut in den 
Schleifen aufwärts zählen. Das soll im folgenden Beispiel 
beides geschehen, wo wir den Bildschirminhalt invertieren 
wollen. Das geschieht einfach durch Setzen des Bit 7 des 
Codes in jeder Bildschirmspeicherstelle (wir machen das 
durch EOR $80). Das hat den Vorzug, daß ein zweiter 
Durchlauf des Programmes wieder den Ausgangszustand 
des Bildschirmes herstellt. Zuerst sollen Sie eine etwas 
schwerfällige, aber überschaubare Form des Programmes 
kennenlernen (Listing 13): 

Hier wurden - auf höchst plumpe Weise - vier ganze 
Pages bearbeitet. Eine andere Lösung wäre es, anstelle 
von $FA in der Zeile 4010 das Y-Register zu erhöhen (mit¬ 
tels INY). Es würde dann sowohl als Index als auch als Zäh¬ 
lerdienen.(In unserer Version hatte es janureine Alibifunk¬ 
tion für die spezielle Art der Adressierung der Bildschirm¬ 
speicherzellen). Eleganter kann das Problem gelöst wer¬ 
den mit einer Technik, die Florian Müller in seinem Artikel 
»Effektives Programmieren in Assembler« (64'er Sonder¬ 
heft 8, 1985, S.22) vorstellt. Dabei werden $FA und $FB 
nicht mehr als Zähler verwendet, sondern dem Y-Register 
kommt wieder die Doppelfunktion zu als Index und als Zäh¬ 
ler der inneren Schleife. Das X-Register ist Zähler der äuße¬ 
ren Schleife. In der inneren wird Y hoch-, in der äußeren 
Schleife X heruntergezählt. Das Ergebnis davon ist: Das 
Programm wird kürzer und auch schneller (Listing 14). 

Es stört uns manchmal immer noch, daß wir- statt nur bis 
$07E7 (denn das ist dezimal 2023) - bis $07FF invertieren. 
Bevor wir in der nächsten Folge die oben erwähnte Variante 
ergründen, die in der BLTUC-Routine verwendet wird, soll 
Ihnen noch eine weitere Möglichkeit vorgestellt werden, die 
im SMON und neuerdings auch von F. Müller (siehe oben) 
gezeigt worden ist. Da geht’s recht trickreich zu. 

Wieder wird pro forma das Indexregister Y initialisiert 
wegen der speziellen Art der Adressierung (Listing 15). 

Natürlich wird diese Doppelschleife durch die ständigen 
Rechnungen im Steuerteil relativ langsam, weshalb es 
doch lohnt, auch andere Wege zu untersuchen. 

Zwei ROM-Routinen 


Kommen wir- wie versprochen - noch auf die beiden vorhin 
verwendeten Routinen zurück, die sich im oberen ROM- 
Bereich unseres Computers befinden. Die eine davon 
($FFD2) ist mittlerweile schon vielen recht geläufig. Sie 
dient dazu, ein im Akku enthaltenes Zeichen an ein vorher 
definiertes Gerät auszugeben. Der Unterschied zwischen 
beiden Routinen ist, daß CHROUT (also $FFD2) sich im 
sogenannten Kernel-Bereich befindet, die andere (PLOTK 
$E510) aber nicht. Was ist denn nun das Besondere am 
Kernel-Bereich? Es handelt sich um eine Tabelle von 39 
JMP-Befehlen, für die Commodore garantiert, daß sie in 
allen Computerversionen an der gleichen Stelle liegt und 
gleiche Funktionen beinhaltet. Leider existiert diese Mög¬ 
lichkeit des Kernel nur für relativ wenige Verwendungs¬ 
zwecke. Wer beispielsweise Fließkommaoperationen in 
Assembler zu programmieren hat, sucht oft ziemlich ver¬ 
zweifelt im ROM eines neuen Computers nach den dazu 


Initialisierung: 


4000 

LDA #$00 

Die Blldschlrmadresse wird 

4002 

STA $FA 

in den Veittor $FA/FB geschrieben. 

4004 

LDA #$04 

Index auf Null. 

4006 

STA $ra 


4008 

LDY #$00 


Job: 



400A 

LDA ($FA),Y 

Code ln Akku 

400C 

EOR #$80 

Invertieren und 

400E 

Steuerung: 

STA ($FA),Y 

zurtloksohreiben. 

4010 

INC $FA 

LSB hochzöhlen 

4012 

BNE $400A 

und weiter Job auaführen, bla ein Ober¬ 
lauf von 255 auf 0 stattfindet. 

4014 

INO $FB 

dann MSB erhöhen 

4016 

LDA $FB 

und prüfen, ob 

4018 

CMP #$08 

Endadresse erreicht ist. 

401A 

BNE $400A 

Falls noch nicht, erneut zur 

Ausgang: 


Jobachleife 

4010 

BRK 

Sonst Ende mit Reglsteranzelgo. 

Listing 13. Invertieren des Bildschirms 


Initialisieren 


4000 

LDA #$00 

LSB Bildschirm 

4002 

STA $FA 

ln Vektor und 

4004 

TAY 

Index = 0. 

4005 

LDA *04 

MSB ln Vektor 

4007 

STA $FB 

schreiben und 

4009 

TAX 

Zähler für die pages auf 4. 

Job: 



400A 

LDA ($FA),Y 

Dasselbe wie 

400C 

EOR #$80 

wir es vorhin 

400E 

Steuerteil: 

STA ($FA),Y 

hatten. 

4010 

INY 

Index (Zähler)+1 

4011 

Tunas»' 

BNE $400A 

wenn noch kein Oberlauf, erneut Job aus¬ 
führen. 

DEX 

sonst page-Zähler he runterzählen. 

4016 

BNE $400A 

Wenn noch nicht 0, dann wieder Jobbear¬ 
beitung. 

Ausgang: 


4018 

BRK 

sonst wieder Ende mit Registeranzeige. 

Listing 14. Verbesserte Form von Listing 6 


Initialisieren: 


4000 LDA 

#$oo 

Bildschirmstart 

4002 STA $FA 

in Vektor $EA/FB 

4004 LDA 

#$04 


4006 STA $FB 


4008 LDY 

#$00 


Job: 

400A 

LDA ($FA),Y 

Das kennen wir 

4000 

EOR #$80 

nun schon. 

400E 

STA ($FA),Y 


Steuerung: 

4010 

INC $FA 

Erhöhen des ISB 

4012 

BNE 4016 

Wenn kein Überlauf, erfolgt ein Sprung. 

4014 

INC $FB 

Sonst auoh Erhöhen des MSB. 

4016 

LDA $FA 

Das LSB wird nun 

4018 

CMP #$E8 

verglichen mit dem MSB der Endadresse + 

401A 

IDA $FB 

1. Dabei findet die Rosultatanzeige ln 
den Flaggen (N,Z,C) statt. 

Nun wird das MSB der Adresse ln den Akku 

4010 

SBC #$07 

geladen und 

das MSB der Endadrease subtrahiert. Die 

4 01E 

BCC 400A 

Carryflaggge Ist gesetzt, wenn die Adres- 
■ so ln $FA/FB gleich der Endadressetl 
($07EB) geworden Ist. 

Solange das noch nicht der Pall Ist, wird 

Ausgang: 


zum Job zurüokverzwelgt. 

4020 

BRK 

Sonst aber Ende mit Registeranzeige. 

Listing 15. Die trickreiohste Version 
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passenden Routinen. Hier hilft meist nur die Anschaffung 
eines ROM-Listings. 

Alle Kernel-Routinen verlangen eine festgelegte Bear¬ 
beitungsweise: 

a) Vorbereitungen treffen 

b) Routinenaufruf 

c) Fehlerabfrage und -behandlung (einige Fehlermeldun¬ 
gen finden Sie in Tabelle 1) 

Damit hätten wir die Vorrede hinter uns und können uns 
dem CHROUT-Programm zuwenden, das wir an dieser 
Stelle in seiner eingeschränkten Funktion betrachten, 
nämlich zur Ausgabe des Akku-Inhaltes auf dem Bild¬ 
schirm. Falls Sie eine detaillierte Schilderung weiterer 
Anwendungsmöglichkeiten suchen sollten: Im Assembler- 
Kurs (64’er-Sonderheft, Ausgabe 8/85, Seite 33 und ab 
Seite 39) finden Sie beispielsweise die Ausgabe auf den 
Drucker. 


Name CHROUT (auch BSOUT) 

Zweck 

Adresse 

Vorbereitungen 
Parameter Eingabeort 
Eing.Format 
Ausgabeort 
Ausg.formet 
Fehler 

Stapelbedarf 

Register 


Ausgabe eines Zeichens 
$FFD2, 65490 
(CHK0UT,0PEN) 

Akku 

ASCII 

spezifiziertes Gerät 

0 

8 

Akku 


Nr. 

Text 

Bedeutung 

0 

BREAK 

Während des Programmes wurde 
die RUN/STOP-Taste gedrückt 

1 

TOO MANY FILES 

Man kann maximal 10 oflene 

Files einrichten 

2 

FILE OPEN 

Ein bereits geöffneter File wird 
nochmal geöffnet 

3 

FILE NOT OPEN 

Auf einen noch nicht geöffneten 

File sollte zugegriffen werden 

4 

FILE NOT FOUND 

Der geforderte File Ist nicht 
verfügbar 

5 

DEVICE NOT PRESENT 

Das angesprochene Gerät zeigt 
keine Reaktion 

6 

NOT INPUT FILE 

Aus einem Schreibfile kann nicht 
gelesen werden 

7 

NOT OUTPUT FILE 

In einem Lesefile kann nicht 
geschrieben werden 

8 

MISSING FILE NAME 

Bei Operationen, die einen File¬ 
namen erfordern, fehlt dieser 

9 

ILLEGAL DEVICE 
NUMBER 

Das versuchte Kommando ist 
beim angesprochenen Gerät 
nicht möglich 


CHROUT ist freundlicherweise so geschaffen worden, 
daß von den Vorbereitungen lediglich übrigbleibt das Zei¬ 
chen in den Akku zu bringen, falls man nur die Bild¬ 
schirmausgabe wünscht. CHROUT ist zwar ein enorm viel¬ 
seitiger, aber leider auch etwas langsamer Geselle. Das 
liegt daran, daß CHROUT gewissermaßen als die eier¬ 
legende Wollmilchsau konstruiert wurde, also fast alles 
kann. Damit sind aber endlos viele Prüfungen und Abfra¬ 
gen verbunden, die man sich durch Verwenden anderer 
Routinen - die lernen Sie noch kennen - ersparen kann. 

Nun zur zweiten Adresse $E510, der PLOTK-Routine. 

Name PLOTK 

Zweck Cursor setzen 

Adresse $E510, 58640 

Vorbereitungen Zeile in 214, Spalte in 211 
Parameter Übergaben spielen hier keine 

Rolle. 

Fehler spielen nur bei Kernel-Routinen 

eine Rolle. 

Stapelbedarf 2 

Register Akku, X, Y 

Weitere Speicherstellen, die durch die Routine 
beschrieben werden können: 209, 210, 213, 217 (alle 
als Dezimalzahlen). 

Dies ist nur eine der möglichen Einsprungadressen dazu. 
Es handelt sich nicht um eine Kernel-Routine: Prompt fin¬ 
det sich auch in dem dazugehörigen Programm an einer 
anderen Einsprungstelle ein Unterschied bei verschiede¬ 
nen C 64-ROMs, der uns aber nicht zu kümmern braucht. 

Diese letzte Angabe werden Sie nicht bei allen beschrie¬ 
benen Routinen finden. Manchmal ist der Irrweg, dem man 
durch das ROM zu folgen hat, so komplex, daß ich Ihnen 
empfehle, selbst mal per SMON (Trace-Kommandos) 
durchs Labyrinth zu gehen. 

Vier Anwendungen der Schleifenprogrammierung wer¬ 
den Sie im folgenden kennenlernen: Das Löschen des Gra¬ 
fikspeichers, das Beschreiben des Grafik-Farbspeichers, 
einen Rahmenaufbau um den Bildschirm und schließlich 
das Beschreiben eines Bildschirmfensters. 


Tabelle 1. Fehlernummem und Ihre Bedeutung. Die Num¬ 
mern findet man nach Aufruf von Kernel-Routinen bei 
gesetztem Carry im Akku. 

Dies ist gleichzeitig auch die erste Reaktion auf Ihre Fra¬ 
gen, die Sie uns zum Thema Assembler gesandt haben. 
Noch eine technische Vorbemerkung: Alle nun folgenden 
Programme wurden mit einem Nachfolger des Hypra-Ass 
- dem Programm Top-Ass - geschrieben. Aus dem Top-Ass 
wurc aber nur die Optionen verwendet, die auch in 
Hypra-Ass enthalten sind. Einige Pseudo-Opcodes heißen 
etwas anders, die Bedeutung ist aber leicht zu erkennen. In 
den Kommentaren finden Sie den jeweiligen Befehl auch in 
der Hypra-Ass-Syntax. 

Oben hatten wir uns schon eine spezielle Form der Dop¬ 
pelschleife angesehen, die es möglich machte, auch von 
ganzen Seiten (Pages) abweichende Speicherbereiche zu 
bearbeiten. Als Beispiel hatten wir den Bildschirminhalt 
invertiert. Diese Doppelschleife soll in verallgemeinerter 
Form diesmal Verwendung finden. Bild 2 zeigt Ihnen ein 
Flußdiagramm dieser allgemeingültigen 16-Bit-Schleife. 

Schon in dem Beispiel zur Invertierung hatten wir die 
Startadresse als Vektor in zwei Zeropage-Speicherstellen 
geschrieben. Nun wird auch die Endadresse als Vektor 
$FC/FD gespeichert. So braucht nur im Initialisierungsteil 
von Aufgabe zu Aufgabe eine Änderung vorgenommen zu 
werden. 

Noch allgemeiner kann die Doppelschleife gestaltet wer¬ 
den durch eine Änderung des Jobteils. Handelt es sich bei¬ 
spielsweise um die Aufgabe, bestimmte Speicherbereiche 
zu beschreiben, dann kann auch der einzuschreibende 
Wert in eine Zeropage-Speicherstelle gepackt werden (hier 
in $FE). Will man allerdings auch die Art des Jobs offenhal¬ 
ten, dann verwendet man lediglich Sprünge in Unterpro¬ 
gramme. Der Jobteil heißt dann nur noch: 

JSRJOB 

Unsere Aufgabe ist es dann, an der Stelle JOB jeweils 
das gebrauchte Unterprogramm bereitzuhalten. Allerdings 
sollten solche Schleifenformen nicht oft benutzt werden, 
denn die Sprünge ins Unterprogramm verbrauchen relativ 
viel Rechenzeit. 

Zwei Fragen treten häufig auf, die das Löschen oder Neu¬ 
beschreiben der Grafikspeicher betreffen. Beide sind mit 
ein und derselben Doppelschleife lösbar. Sehen wir uns 
einmal die Sache mit dem Grafik-Farbspeicher an. 
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Grafik-Farbspeicher belegen 

Im allgemeinen verwendet ein C 64-Grafik-Programmierer 
eine Bit-Map, die bei 8192 startet und ein Farb-RAM, das 
anstelle des normalen Bildschirmes (also ab 1024 = $400) 
zu finden ist. Der Benutzer des C 128 hat die Bit-Map am 
gleichen Ort, aber dafür ein extra Grafik-Farb-RAM ab 
$1C00. Zwar hat das Basic 7.0 des C 128 allerlei nette 
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Listing 17. Blitzartiges Löschen der Bit-Map 


Grafik-Befehle anzubieten: Wenn aber gewünscht wird, 
eine schon auf dem Bildschirm sichtbare Zeichnung mit 
anderen Farben zu zeigen, stehen beide (also C 64- und 
C 128-Benutzer) vor demselben Problem. Eine globale 
Farbänderung ist beim C 128 nur bei gleichzeitigem 
Löschen der Bit-Map möglich! Wie ist die Aufgabe zu 
lösen? 

In beiden Fällen ist in 1000 Speicherstellen ein bestimm¬ 
ter Wert einzuschreiben: Beim C 64 von $400 bis $7E8, 
beim C128 von $01C00 bis$01FE8. Der Farbcode, der ein¬ 
zutragen ist, hat in beiden Fällen denselben Aufbau: Das 
untere Nibble (also die Bits 0 bis 3) enthält den Code der 


Hintergrund-, das obere Nibble (Bits 4 bis 7) den der Zei¬ 
chenfarbe. C 128-Benutzer müssen vom Farbcode jeweils 
eine 1 abziehen. Sei ZF die Zeichen- und HF die Hinter¬ 
grundfarbe, dann folgt für den einzuschreibenden Code F: 

F = 16*ZF + HF 

Als Listing 16 finden Sie eine mögliche Lösung des Pro¬ 
blems. Hier wurde in der Initialisierung (Zeilen 110 bis 270) 
auch die Belegung der Zeropage-Adressen mit dem Start¬ 
wert ($FA/FB), dem Endwert ($FC/FD) und dem Farbcode 
($FE) vorgenommen: 

Zum Listing muß sicher nichts mehr gesagt werden: Es 
ist ausführlich kommentiert und entspricht der oben im 
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GRUNDLAGEN 



Bild 3. Zum Rahmenproblem: 
Diese Zeichen benötigen Sie, 
wenn Sie einen Bildschirm¬ 
rahmen konstruieren wollen. 


Flußdiagramm gezeigten Doppelschleife. Zum Starten die¬ 
ses Maschinenprogrammes: Wenn Sie es einfach durch 
SYS 49152(C 128: BANK 0: SYS49152) 
mit auf dem Bildschirm vorhandener Abbildung ablaufen 
lassen, wird der Farbcode $F0 eingetragen, also hellgrau 
auf schwarzen Hintergrund. Falls Sie im Textmodus sind, 
entspricht das dem Zeichen mit dem Code $F0 (dezimal 
240, ein inverses Grafik-Zeichen), das nun den gesamten 
Bildschirm ziert. Möchten Sie eine andere Farbenkombina¬ 
tion erzielen, dann haben Sie mehrere Möglichkeiten. Ent¬ 
weder lassen Sie einfach die Zeilen 230 und 240 wegfallen 
und POKEn vor dem Routinenaufruf Ihren Wert F in die 
Speicherstelle $FE oder aber Sie verändern das Maschi¬ 
nenprogramm vor dem Aufruf, indem Sie an die Stelle in 
Zeile 230, an der der WERT steht, Ihr F POKEn. Das ist (vor¬ 
ausgesetzt, Sie belassen den Start bei $C000) die Spei¬ 
cherzelle $C011 (das ist dezimal 49169). Ein Aufruf könnte 
dann beispielsweise so aussehen: 

10 INPUT"ZF,HF =";ZF,HF 
20 F = 16*ZF + HF 
30 P0KE 49169,F 
40 SYS 49152 

Auf ähnliche Weise können natürlich auch die Start- 
und/oder Endadressen variiert werden, so daß beispiels¬ 
weise nur der halbe Farbspeicher neu belegt wird. 
C128-Benutzer müssen zum Ändern des Grafik-Farb-RAM 
die Werte in den Zeilen 70 und 80 auf die oben genannten 
Adressen einstellen. 

Bit-Map löschen 


Vom eben gezeigten Beispiel zum Löschen einer Bit- 
Map ist es nur ein kleiner Schritt. Lediglich der Ort einer Bit- 
Map ist ein anderer und ihr Umfang. Im allgemeinen startet 
der Grafik-Speicher bei 8192 ($2000), hat eine Ausdehnung 
von 8000 Bytes (nämlich 200*320/8) und endet bei $3F3F 
(dezimal 16191). Der einzutragende Wert ist Null. Listing 16 
unterscheidet sich vom Listing 17 somit nur durch die Zei¬ 
len 70 bis 90. 

Daran können Sie ersehen, wie vielseitig unsere Doppel¬ 
schleife ist. C 128-Benutzer werden meinen, daß sie das 


Listing 17 und - falls Ihnen niemals das Problem der Far¬ 
bänderung eines fertigen Bildes unterkommt - auch das 
Listing 16 entbehren könnten. Sollten Sie aber jemals in die 
Lage kommen, eine andere Bit-Map und einen anderen 
Grafik-Farbspeicher als die softwaremäßig voreingestell¬ 
ten bedienen zu wollen, dann sind Sie in der gleichen Lage 
wie ein C64-Benutzer. Alle Grafik-Kommandos zielen nur 
auf die oben erwähnten Standard-Grafik-Speicherbe- 
reiche. Jede andere Bit-Map und jedes andere Farb-RAM 
muß mit selbstgebastelten Befehlssequenzen behandelt 
werden. 

Noch eine kleine Bemerkung am Rande: Falls es Ihnen 
in den Sinn kommen sollte, das zum Listing 17 gehörende 
Maschinenprogramm einfach mal zu starten, dann beden¬ 
ken Sie, daß durch Hypra-Ass im fraglichen - zu löschen¬ 
den -Speicherbereich Quelltexte und Label abgelegt sind. 
Speichern Sie diese also vor dem Start ab! Noch schlimmer 
ergeht es C 128-Benutzern, die den Top-Ass verwenden: 
Das Löschen des Grafik-Bereiches reißt ein tiefes Loch ins 
Top-Ass-Programm. Top-Ass und normale Grafik können 
nicht gleichzeitig betrieben werden. 

Bildschirm umrahmen 


Viele Leser wollen wissen, wie man in Assembler einen 
Rahmen um den Textbildschirm legen kann. Gehen wir 
also dieses Problem möglichst allgemeingültig an. Wir 
brauchen dazu acht verschiedene Grafikzeichen (siehe 
dazu das Bild 3). 

Außerdem erkennen wir recht schnell, daß wir bei diesem 
Problem andere Schleifen benutzen müssen. In Bild 4 ist 
die Aufgabe grafisch aufgeschlüsselt. 

D'fl Nummern entsprechen jeweils den verschiedenen 
Zeici io.i, die in eine Speicherstelle einzuschreiben sind. Es 
handelt sich um folgende: 


Nr. 

Hex. 

Dez. 

Beschreibung 

1 

4F 

79 

Winkel links oben 

2 

77 

119 

Linie oben 

3 

50 

80 

Winkel rechts oben 

4 

74 

116 

Linie linksseitig 

5 

6A 

106 

Linie rechtsseitig 

6 

4C 

76 

Winkel links unten 

7 

6F 

111 

Linie unten 

8 

7A 

122 

Winkel rechts unten 


Im Listing 18 sind diese acht Zeichen in der 
Initialisierungsphase in acht Zeropage-Speicherstellen 
geschrieben worden ($1B bis $22), die CODE1 bis CODE8 
genannt wurden. 
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C64, C128 


Bevor wir dieses Programm besprechen, gebe ich Ihnen 
in Bild 5 noch das Flußdiagramm dazu an. 

Das Programm ist in drei Teilen angeordnet: Die Initiali¬ 
sierung, in der alle Startwerte festgelegt werden. Sie liegen 
durchweg in Zeropage-Speicherstellen, was durch einfa¬ 
ches Ändern dieses Programmteils das Programm flexibel 
hält. Wir hätten noch einen Schritt weiter gehen können, 
indem wir auch die einzuschreibenden Werte mit .define 
(oder .eq bei Hypra-Ass) definiert hätten. Aber ein wenig 
sollen Sie auch noch zu tun behalten. Als Phase 2 tritt dann 
die eigentliche Bearbeitung auf, die wiederum in drei 
Abschnitte unterteilbar ist: obere Zeile, Mittelteil und untere 
Zeile. Phase 3 ist der Abschluß des Programmes, der hier 
nur mittels eines BRK vollzogen wurde. Ein RTS erlaubt 
Ihnen die Benutzung auch von Basic aus. 

Sehen wir uns nun die Initialisierung im einzelnen an 
(Zeilen 470 bis 780): Es gibt immer noch eine ganze Menge 
C 64-Modelle, bei denen eih einfacher POKE-Befehl in den 
Bildschirmspeicher nicht ausreicht, ein Zeichen sichtbar 
werden zu lassen. Dann muß nämlich an der dazugehöri¬ 
gen Bildschirmfarbspeicherstelle ein Farbcode enthalten 
sein. Deshalb legen wir gleich zu Beginn einen Code 2 (für 
die Farbe Rot) ins X-Register, der dann später parallel zum 
Zeichencode in den Farbspeicher ab $D800 geschrieben 
wird. Es folgt ab Zeile 500 die schon erwähnte Eintragung 
der Zeichencodes in acht Zeropage-Speicherstellen ($1B 
bis $22, genannt CODE1 bis CODE8). Ab Zeile 660 werden 


zwei Vektoren erzeugt: $FB/FC enthält die Startadresse 
des Bildschirmes, $FD/FE die des Farb-RAM. Diese Vekto¬ 
ren heißen SCREEN und COLOR. Ab Zeile 740 werden 
zwei Schleifengrenzen festgelegt: in HORIZ schreiben wir 
die maximale Spaltenzahl pro Zeile (0...39) und nach VERT 
kommt eine Zahl, die die Menge der Zeilen (25 - Kopf- und 
Fußzeile) enthält. Schleifenzähler ist das Y-Register, das in 
Zeile 780 auf Null gesetzt wird. 

Damit sind alle wichtigen Parameter in Zeropage- 
Speicherzellen untergebracht und wir können im folgen¬ 
den Hauptteil des Programmes durchgängig die zeitlich 
günstige Form der Zeropage-Adressierung verwenden. 

Ab Zeile 800 folgt nun der Rahmenaufbau. Wir beginnen 
mit der oberen Zeile. Zuerst wird in Speicherstelle 1024 das 
erste Zeichen eingetragen. Dann verschieben wir den 
Farbcode aus dem X-Register in den Akku und schreiben 
ihn in den Farbspeicher. Die Sequenz 
STA (SCREEN),Y 
TXA 

STA (COLOR),Y 
INY 

wird im Verlauf des Programmes so häufig verwendet, daß 
es sich lohnen würde, sie als Makro zu definieren. Eine Auf¬ 
gabe für Sie! Von Zeile 870 bis 930 finden Sie eine kleine 
8-Bit-Schleife, die unserer Variante 4 aus der ersten Folge 
entspricht. Der Job dieser Schleife ist das Beschreiben der 
ersten Zeile mit dem Zeichen 2. Wenn schließlich die Posi- 
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Listing 18. Programm zum Zeichnen eines Rahmens um 
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tion 39 erreicht ist (also die 40. Spalte), wird die Schleife ver¬ 
lassen und das letzte Zeichen dieser Zeile eingetragen. Ein 
abschließendes INY richtet das Programm auf die erste 
Stelle der 2. Zeile. 

Wir kommen damit zum Mittelteil, zum Beschreiben der 
beiden Seitenlinien. Weil wir ohnehin Y nicht durchgängig 
als Zähler verwenden können (es geht halt nur bis 255), ver¬ 
ändern wir jetzt die beiden Vektoren SCREEN und COLOR, 
indem wir den aktuellen Stand des Y-Registers addieren. 
Danach können wir Y wieder auf Null setzen und HORIZ als 



Bild 5. Flußdiagramm zum Programm RAHMEN 


Grenzbedingung weiterverwenden. Diese Addition wird 
mehrfach gebraucht, deshalb ist sie zum Makro erklärt wor¬ 
den und ihre Definition als AKTUELL in den Zeilen 270 bis 
430 angegeben. Jedesmal, wenn nun das letzte Zeichen 
einer Zeile eingetragen wurde, findet der Makroaufruf statt, 
deshalb ist in Zeile 1020 noch eine Sprungmarke angege¬ 
ben. In Zeile 1030 liegt der Makroaufruf. Wenn dadurch die 
Vektoren aktualisiert wurden und das Y-Register wieder 
auf Null steht, schreiben wir in die erste Position der neuen 
Zeile das Zeichen 4. Es schließt sich wieder eine kleine 
8-Bit-Schleife an (Zeilen 1090 bis 1110), in der lediglich Y 
hochgezählt wird. Anschließend tragen wir das letzte Zei¬ 
chen derZeile ein und ziehen eine 1 ab von der Gesamtzahl 
an Zeilen, die in VERT gespeichert wurde. Zeile 1180 prüft 
nun, ob VERT schon bis Null heruntergezählt ist. Falls 
nicht, fängt dieser Programmteil wieder von vorne an: 
Aktualisieren der Vektoren, Nullsetzen des Y-Registers, 
und so fort. Ansonsten aber sind die Seitenlinien fertig und 
wir können die untere Zeile bearbeiten. Aber halt! Einige 
erfahrene Assembler-Hasen werden schon mehrmals ent¬ 
rüstet das Haupt geschüttelt haben: Warum denn so unöko¬ 
nomisch? Nun, im Prinzip hätten wir anstelle der Zeilen 
1090 bis 1110 auch einfach eine Addition vornehmen kön¬ 
nen, so daß alle Speicherstellen zwischen linkem und rech¬ 
tem Rand einer Zeile einfach übersprungen werden, oder 
aber wir hätten diesen ganzen Mittelteil ganz anders ange¬ 
packt, wenn da nicht noch eine interessante Möglichkeit 
bestehen würde: In die leere Y-Schleife könnte ja noch ein 
Job gepackt werden! So können Sie noch Texte ausgeben 
lassen oder ähnliches einschieben in die leere Schleife. 
Probieren Sie es mal aus! 

Zur Bearbeitung der letzten Zeile rufen wir wieder das 
Makro zum Aktualisieren der beiden Vektoren auf. Der Rest 
ist § ■ ".uso aufgebaut wie der Teil zum Beschreiben der 
ersten Zeile. Unser Rahmen ist fertig. 

Sie haben aus der Programmbeschreibung sicher schon 
erkennen können, daß wir hier nur einen von vielen mögli¬ 
chen Wegen gegangen sind. Beispielsweise hätten wir 
auch mit Rückwärtsschleifen arbeiten können und damit 
die CP-Y-Befehle eingespart. Wir hätten die Programmteile 
für die erste und die letzte Zeile als ein Unterprogramm 
schreiben können, das mit verschiedenen Parametern auf¬ 
gerufen wird, wir hätten... Beim Programmieren in Assem¬ 
bler hat man meistens viel mehr Variationsmöglichkeiten 
als in Basic. Zwar bleiben einige unveränderliche Skelett¬ 
teile immer bestehen (ein normaler Textbildschirm fängt 
halt bei $400 an, zu beschreibende Register liegen immer 
an derselben Stelle, etc.), wie wir aber dieses Gerüst 
umhüllen, steht uns weitgehend frei. Wenn Sie unser Rah¬ 
menprogramm in der vorliegenden Form (am besten noch 
mit einem RTS anstelle des BRK am Ende) aufrufen, dann 
zeichnet es Ihnen einen roten Standardrahmen um den 
gesamten Textbildschirm. Benutzer des C 128 sollten das 
Programm nach $1400 (statt nach $C000) legen. Falls es 
nämlich von $C000 aus gestartet wird, bleibt die Rahmen¬ 
farbe unberücksichtigt, weil das Farb-RAM in einer ande¬ 
ren Bank liegt. Von $1400 aus kann man es dann durch 
BANK 15: SYS DEC("l400") 

starten und der Rahmen wird bunt. Soll Ihr Rahmen aus 
anderen Zeichen bestehen? Kein Problem: Dann ändern 
Sie die Initialisierung oder POKEn Sie direkt in das Pro¬ 
gramm die neuen Codes. Eine andere Rahmenfarbe wird 
gewünscht? Wieder können Sie durch POKE-Kommando 
oder Ändern der Initialisierung Ihre Farbe erzielen. Der 
Rahmen soll nur um die obere Bildschirmhälfte reichen? 
Dann verändern Sie einfach den Wert, der nach VERT 
geschrieben wird. Schwieriger wird es, wenn Sie auch 
HORIZ anders haben möchten. Nach dem Setzen des letz¬ 
ten Zeichens in eine Zeile müßte noch anstelle des INY eine 
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Bild 6. Zum Problem, wie man Teile des Bildschirms mit 
Zeichen füllt 

Addition stehen, damit der Abstand zum ersten Zeichen der 
nächsten Zeile übersprungen wird. Vielleicht hilft Ihnen, 
dazu die Antwort auf die nächste Frage. 

Teilbereiche des Bildschirmes beschreiben 


Ein weiteres Problem tritt in Leserfragen häufig auf: Wie 
kann man beliebige rechteckige Teile des Bildschirmes mit 
Zeichen ausfüllen? Sehen wir uns das also auch mal an: 
Bild 6 zeigt, was gemeint ist und welche Bezeichnungen wir 
im folgenden verwenden werden. 

Die linke obere Ecke ist durch die Spalte S1 und die Zeile 
ZI, die rechte untere durch S2 und Z2 angegeben. Damit 
steht unser Rechteck fest. Drei Größen brauchen wir nun 
noch: Die Startadresse im Bildschirmspeicher und im Farb- 
RAM, die zu dem Punkt S1.Z1 gehört, die Breite und die 
Höhe des rechteckigen Bereiches. Das Bild 7 zeigt Ihnen 
die Arbeit, die wir im Speicher zu vollbringen haben: 

Breite und Höhe zu berechnen, ist einfach: 

Breite: SD = S2-S1 
Höhe : ZD = Z2-Z1 

Die Startadresse berechnet sich aus der Bildschirm¬ 
adresse SC (1024), der Zeilenzahl Z1-1, die jeweils mal 40 
zu nehmen ist und der Spaltenzahl S1: 

Start: S = 40*(Z1-1) + S1 

In Basic sähe unsere Problemlösung aus wie im Listing 
19 gezeigt. C 64-Benutzer setzen in Zeile 80 statt des DEC 
("3FF") einfach 1023 ein. 

Natürlich funktioniert das einwandfrei, aber es dauert! In 
Assembler geht das Ausfüllen auch dann noch blitzartig, 
wenn wir als Rechteck den gesamten Bildschirm vorgeben. 
Das einzige, was Kopfzerbrechen bereiten kann, ist die 
Berechnung der Startadresse. Aber auch dazu gibt es 
einen schnellen Weg, wie Sie gleich noch sehen werden. 


Bild 8 gibt Ihnen als Anhaltspunkt ein Flußdiagramm zum 
Assemblerprogramm TEILBEREICH. 

Listing 20 schließlich enthält unser gleich zu bespre¬ 
chendes Programm »Teilbereich«. 

Im ersten Teil des Listings sehen Sie wieder die Definitio¬ 
nen, die der Assembler beim Assemblieren statt der Merk¬ 
texte einsetzt. Diesmal sind von Zeile 130 bis 180 Werte vor¬ 
gegeben (purpurfarbene Zeichen A werden in das Recht¬ 
eck geschrieben, das von Spalte 4/Zeile 3 bis Spalte 15/ 
Zeile 13 reicht), von 220 bis 270 Zeropage-Speicherstellen, 
die der Speicherung der Spaltendifferenz (SPDIFF), Zei¬ 
lendifferenz (ZDIFF), der Spalte S1 (SPALTE) und eines 
Zwischenwertes der Rechnung (ZWSP) dienen. Außerdem 
sind zwei Vektoren vorgesehen: BILD (für die laufende Bild¬ 
schirmspeicherposition) und COLOR (dasselbe für das 
Farb-RAM). Die Zeilen 310 und 320 enthalten die Fest¬ 
legung der Basisadressen des Bildschirmspeichers und 
des Farb-RAMs (jeweils -1). 

Der erste Teil des eigentlichen Programmes dient der 
Initialisierung und der Berechnung der Steuergrößen (im 
Basic-Programm waren das SD, ZD und S). Zunächst spei¬ 
chern wir ZI als 16-Bit-Wert im Vektor BILD. Dazu muß das 
MSB von BILD (also BILD+1) noch auf Null gesetzt werden, 
denn ZI ist ja nur ein 8-Bit-Wert. Der Wert S1 wird danach 
in SPALTE geschrieben (Zeilen 430 und 440). Nun fängt die 
Rechnerei an. Wir bilden die Spalten- und die Zeilendiffe¬ 
renzen jeweils durch einfache 8-Bit-Subtraktionen. Zur 
Erinnerung: Vor einer normalen Subtraktion muß immer 
das Carry-Bit gesetzt werden, denn es dient gewisser¬ 
maßen als »Stelle, die geborgt werden kann«. Die Wirklich¬ 
keit ist etwas komplexer, aber das können Sie - falls es Sie 
interessiert - im Assemblerkurs oder in einschlägigen Lehr¬ 
büchern nachlesen. Nach vollendeter Subtraktion werden 
SPDirr und ZDIFF jeweils noch durch den INC-Befehl um 
1 erhöht. Das hat seinen Grund in den Schleifenabbruch¬ 
bedingungen im 2. Teil unseres Programmes. Soweit war 
die Sache noch recht einfach. Nun kommt aber die Berech¬ 
nung des Startpunktes im Bildschirm- und im Farb-RAM. 
Das heißt, wir haben den Ausdruck 
40*(Z1-1)+S1 

zu berechnen. Wir bedienen uns in der Hauptsache der As¬ 
sembler-Befehle ASL und ROL dazu, die - weil wir sie recht 
selten erleben - hier nochmal kurz erläutert werden sollen. 
Die Bilder 9 und 10 illustrieren die Erklärungen. 

ASL (arithmetic shift left = arithmetisches Linksver¬ 
schieben) schiebt jedes Bit des angesprochenen Bytes um 
eine Position nach links. An die Stelle des Bit 0 tritt eine Null 
und das Bit 7 landet im Carry. Was das bedeuten kann, 
sehen wir uns an einer Zahl im Dezimalsystem mal an: 
240 unsere Zahl 

2400 nun ist jede Stelle einmal nach links verschoben 

Sie sehen, daß das einer Multiplikation um den Faktor 10 
entspricht. Im binären Zahlensystem, das unser Computer 



Bild 7. Das haben wir im Bildschirm-RAM zu tun. Hier ein Auszug, der eine Bildschirmspalte darstellt 
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INIT: 


( Slarl ~~~) 




ZI als 16-Bit-W. 
In Blld/Blld + 1 
T 


I Sl - Spalte 


Borochnon von 
SRDIFF - SZSpalte 


Rechnungen 


Spalton- 


|SRDIFF ■ SRDIFF . l| d ||[ BInn7 S D 


Berachnen von 
ZDIFF - Z2-Blld 

r 


l Zollen- 


| ZDIFF . ZDIFF <• 1 | at „ 0 , enz ZD 


Bild . Blld-I 


| Zwischenspeichern] 

Wellerrechnen bis 
32 * Bild 
- 1 

Addition von 
Bild . 

.3? • Bild » B • Bild 

Addition: 

Bild - Bild + Spalte 


40 * (Zt - t) ♦ St 


Berechnen: 
Color . D8Q0 •> Bild 


Farb-RAM-Veklor 
Color 


Berechnen: 

Bild - $400 + Bild 


JOB: 


Zeichen In Bildschirm vom 
v. Farb-RAM eintragen 


Y = Y + I 



Bild - Bild + 40 
Color = Color + 40 


ZDIFF - ZDIFF-I 



Bild 8. Flußdiagramm zum 
Programm »Teilbereich« 


verwendet, ist die Zahlen¬ 
basis nicht mehr 10, son¬ 
dern 2. Deshalb führt hier 
jede Linksverschiebung zu 
einer Multiplikation mit 2. 
Sehen wir uns das am kon¬ 
kreten Beispiel an: Der 
höchste Wert für ZI in unse¬ 
rem Programm ist 25 (es 
gibt nur 25 Zeilen). Wenn 
wir von Z1-1 ausgehen, ist 
das 24: 

0001 1000 unsere Zahl 24 

1. ASL: 0011 0000 das ist 2-24 

2. ASL: 0110 0000 das Ist 4*24 

3. ASL: 1100 0000 das ist 8*24 

Vorsicht! Wenn wir nun 
nochmal die ASL-Operation 
anwenden, schieben wir 
das Bit 7 in das Carry-Bit. 
Das Ergebnis ist für eine 
8-Bit-Zahl zu groß gewor¬ 
den, eine 16-Bit-Zahl ist not¬ 
wendig. Wir müßten dann 
die 1 aus dem Carry-Bit als 
Bit 0 des MSB verwenden 
können. Das wird mit ROL 
(rotate left = nach links 
rotieren) möglich. Auch ver¬ 
schiebt der Befehl jedes Bit 
um eine Stelle nach links. 
Als neues Bit 0 aber tritt der 
Inhalt des Carry-Bit ein. 
Parallel dazu wandert das 
Bit 7 ins Carry-Bit. Der wei-c 
tere Weg in unserem Bei¬ 
spiel muß nun also lauten: 

4. ASL: 1 1000 0000 und dann 
1.ROL: 0000 0001 1000 0000 
MSB LSB 

Das ist nun 16*24. Durch 
ASL wurde Bit 7 ins Carry 
geschoben (deshalb steht 
es oben links außen), durch 
ROL (bezogen auf die Spei¬ 
cherstelle, die als MSB ein¬ 
gesetzt wird) wandert es 
dann ins MSB als Bit 0. Die 
dazugehörende Befehlsse¬ 
quenz lautet (siehe bei¬ 
spielsweise Zeilen 650/660 
des Listing 20): 

ASL BILD 
ROL BILD+1 

Vermutlich werden Sie 
sich nun fragen, was das 
alles mit unserem Problem 
zu tun hat, 40*(Z1-1)+S1 zu 
berechnen. Sehr viel! 


Rechnen Sie es mal nach. Es gilt nämlich: 

40*(Z1-1) = 8*(Z1-1) + 32*(Z1-1) 

Sowohl 8 als auch 32 sind aber Potenzen von 2, das 
bedeutet, daß sie durch mehrmaliges Multiplizieren der 2 
mit sich selbst herauskommen: 213 = 8 und 215 = 32. Es 
ist damit möglich, durch mehrmaliges Anwenden der ASL- 
Operation auf (Z1-1) beide Summanden zu erzeugen. Die 
Addition ergibt dann unseren gewünschten Wert 40*(Z1-1). 
Wir müssen nur noch Sl hinzurechnen. Wie wir vorhin 
noch sehen konnten, dürfen wir die drei ersten ASL- 


XO REM *** PROGRAMM TEILBILDSCHIRM IN BASIC »** 

20 INPUT"ECKE LINKS OBEN Sl,Z13SPACE="sSl,ZI 
30 INPUT"ECKE RECHTS UNTEN S2.Z2 =";S2,Z2 
40 INPUT“WAS SOLL HINEIN "jW 
50 REM *« STEUERWERTE BERECHNEN! 

55 REM S = BILDSCHIRMSTARTADRESSE 

60 REM SD = SPALTENDIFFERENZ 

70 REM ZD = ZEILENDIFFERENZ 

BO SC = DEC("3FF")iS = SC + 40«<Z1-1> + SliSD = 82 
- SliZD = Z2 - ZI 
90 REM *»* SCHLEIFE **« 

100 I=0iZ=0 
110 iPOKE B+I,W 

120 iI-I+liIF I>SD THEN S=S+40iI=0iZ=Z+11IF Z>ZD T 
HEN END 

130 .goto no Listing 19. 

Ein Programm zum Füllen rechteckiger Bildausschnitte 



Bild 9. Die grafische Darstellung der Wirkung eines 
ASL-Befehls 



Bild 10. Die grafische Darstellung der Wirkung des 
ROL-Kommandos 

Operationen noch ohne Rücksicht auf Verluste durchfüh¬ 
ren. Danach allerdings muß jedem ASL das dazugehörige 
ROL folgen, denn das Ergebnis kann eine 16-Bit-Zahl sein. 

In unserem Programm beginnen wir diese Berechnung 
in Zeile 580. Dort wird zunächst sicherheitshalber das 
Carry-Bit gelöscht für das erste ROL-Kommando. Durch 
DEC BILD erzeugen wir den Wert Z1-1 (nach BILD hatten 
wir ja ZI geschrieben, BILD+1 wurde reserviert für das 
MSB und eine Null eingetragen). Dreimaliges ASL BILD 
erzeugt 8 *(Z1-1). Sie erinnern sich: Erst vom vierten ASL an 
mußte beim größten erlaubten Zl-Wert auch ROL einge¬ 
setzt werden. In den Zeilen 640/650 packen wir diesen 
Summanden in den Zwischenspeicher. Danach sind noch 
zwei ASL mit anschließenden ROL-Kommandos nötig, um 
in BILD/BILD+1 den Wert 32*(Z1-1) zu erzeugen. Von Zeile 
690 bis 740 addieren wir beide Summanden und erhalten 
so 40*(Z1-1). Normalerweise muß vor jeder Addition mit 
ADC (denn das heißt ja »add with carry«, also addiere mit 
dem Carry-Bit, sogar addiere auch das Carry-Bit) das 
Carry-Bit durch CLC freigemacht werden. Hier können wir 
uns das aber ersparen, weil wir wissen, daß auch der größte 
Zl-Wert bei der letzten ROL-Operation nur eine Null ins 
Carry-Bit schieben konnte. Bei der folgenden Addition 
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-|im anderen «all i«t die aufgabe erledigt! 
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7 

(in hypra-aBBi .ay 1,4,7 

Listing 20. Das Assembler-Programm »Teilbereich« 


von Sl (Zeilen 760 bis 820) entsteht schließlich unser 
gewünschter Startwert - aber noch ohne Berücksichtigung 
der Anfangsadressen von Bildschirm- und Farb-RAM. Das 
kommt nun: Von Zeile 840 bis 900 entsteht im Vektor 
COLOR/COLOR+1 der Zeiger auf die erste Farb-RAM- 
Stelle, von Zeile 920 bis 980 im Vektor BILD/BILD+1 
schließlich der auf die erste Bildschirmspeicherstelle. Zum 
Abschluß dieser Programmphase schieben wir noch den 
Farbcode ins X-Register. 

Nun kommt die Doppelschleife, die den Bildschirmaus¬ 
schnitt beschreibt. Das Y-Register dient als Zähler jeweils 
einer Zeile. Der Zeichencode gelangt - wie der Farbcode - 
nach dem gleichen Rezept in die notwendigen Speicher¬ 
stellen, das wir auch schon in den vorangegangenen Pro¬ 
grammbeispielen gezeigt haben (das war die Sequenz, die 
wir dort auch als Makro hätten schreiben können: Hier in 
den Zeilen 1050 bis 1080). Jeweils am Ende der kleinen 
Schleife (in 1090 und 1100) wird der aktuelle Y-Zählerstand 
verglichen mit der Spaltendifferenz (SPDIFF) und - falls die 
Zeile noch nicht fertig ist - der nächste Durchlauf eingelei¬ 
tet. Andernfalls addieren wir sowohl zum Vektor 
BILD/BILD+1 als auch zu COLOR/COLOR+1 den Wert 40, 
rücken also eine Zeile runter. In 1280 dient ein DEC ZDIFF 
dazu, die Anzahl bearbeiteter Zeilen abzustreichen, bis 
dabei eine 0 auftritt. Ist das noch nicht der Fall, wird zurück¬ 
verzweigt nach LABEL1, wo wir den Y-Zähler neu initia¬ 
lisieren. 

Der letzte Teil unseres Programmes besteht lediglich 
wieder aus einem lapidaren RTS. 

Wenn Sie unser Programm nach dem Assemblieren ein¬ 
fach mittels SYS 49152 starten, sind automatisch die Bei¬ 
spielwerte eingesetzt. C 128-Benutzern sei wieder geraten, 
das Programm nach $1400 zu legen, damit auch der Farb- 
speicher belegt werden kann. Hier erfolgt der Start dann 
durch 

BANK 15: SYS DEC("l400"). 

Sehr flexibel wird »Teilbildschirm« aber erst durch einige 
POKE-Kommandos ins Programm hinein. Folgende Spei¬ 
cherstellen werden dann angesteuert: 


Parameter 

Ort im 

POKE-Adressen 


Programm 

C 64 

C 128 

ZI 

MARKEI + 1 

49157 

5125 

Sl 

MARKE2 + 1 

49161 

5129 

S2 

MARKE3+1 

49166 

5134 

Z2 

MARKE4+1 

49175 

5143 

Farbe 

MARKE5 + 1 

49255 

5223 

Wert 

LABEL2 + 1 

49259 

5227 


Vorausgesetzt wird bei diesen Angaben, daß im C 64 ab 
$C000 und im C 128 ab $01400 unser Programm zu finden 
ist. Listing 21 zeigt Ihnen, wie ein Basic-Programm ausse- 
hen kann, das alle POKE-Befehle ausführt und unsere 
Routine ansteuert. Falls geplant ist, Benutzer an dieses 
Programm zu lassen, die es nicht kennen, sollten Sie auch 
noch eine Überprüfung der Eingabewerte einbauen, an¬ 
dernfalls könnte beispielsweise Unsinn herauskommen, 
wenn S2 kleiner als S1 angegeben wird oder mal eine Zei¬ 
lennummer, die größer als 25 ist. Die erlaubten Werte sind 
jeweils Spaltenwerte zwischen 1 und 40, Zeilen zwischen 1 
und 25. 

Wie man Schleifen in Assembler anwenden kann und auf 
wie verschiedene Arten das möglich ist, haben Ihnen diese 
vier Beispiele sicher zeigen können. Aber mit Schleifen ist 
noch viel mehr machbar. 

Nun ist es endlich soweit: Wie versprochen, lernen Sie 
jetzt die Blockverschieberoutine kennen, aber auch ihre 
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10 REM «*«**»«« AUFRUFPROGRAMM FUER TEILBILDSCHIRM 

*«»*»»»»*» 

20 REM IN REM-BEMERKUNGEN JEWEILS WERTE FUER DEN C 
12B 

30 REM VORAUSSETZUNG, DASS BEIM C64 AB »COOO 
40 REM BEIM C120 AB *1400 DAS 

PROGRAMM LIEGT. 

50 REM 

60 REM-EINGABE DER PARAMETER- 

70 PRINT CHR*<147):INPUT"LINKE OBERE ECKE Z1,S1"|2 
1 ,S1 

BO INPUT“RECHTE UNTERE ECKE Z2,S2"sZ2,82 
90 INPUT"FARBE,WERT"»F,W 

100 REM-EINPOKEN DER WERTE- 

110 POKE 49157,ZliREM POKE 5125,ZI 
120 POKE 49161,31:REM POKE 5129,81 
130 POKE 49166,82:REM POKE 5134,82 
140 POKE 49175,Z2:REM POKE 5143,Z2 
150 POKE 49255,F:REM POKE 5223,F 
160 POKE 49259,W:REM POKE 5227,W 

170 REM-AUFRUF DER ROUTINE- 

1B0 SYS49152 
190 END 

Listing 21. Ein Basic-Programm, das alle POKE-Befehle 
ausführt und unsere Routine ansteuert 


Schwächen und einen Weg, Speicherbereiche fehlerfrei zu 
verschieben. 

Eng mit dem Verschieben von Bereichen ist das andere 
Programm verwandt, das wir entwickeln. SWAP nennen wir 
es, und es soll Speicherbereiche miteinander vertauschen. 
Wie immer, so sind auch diesmal die Programme sowohl 
auf dem C 64 als auch dem C 128 einsetzbar. 

Speicherblöcke verschieben 


Häufiges Thema in Leseranfragen ist das Verschieben von 
Speicherbereichen. Das ist durchaus zu verstehen, denn 
mit einem Programminstrument, das beliebige Inhalte 
beliebig großer Speicherbereiche verschieben kann, läßt 
sich allerhand anstellen. So könnte man ein Basic-Pro¬ 
gramm vorübergehend beispielsweise nach $C000 legen, 
in der Zwischenzeit ein anderes laden und bearbeiten und 
dann das erste wieder herunterholen in den Basic- 
Speicher. Oder es wäre möglich, einen Hilfsbildschirm zu 
erstellen, diesen irgendwo im Speicher an einen sicheren 
Ort zu verlagern und ihn dann auf Tastendruck wieder her¬ 
vorzuholen. Oder man könnte sich verschiedene Teile von 
Bildern erstellen, im Speicher ablegen und bei Bedarf in die 
aktuelle Bitmap blenden. Oder... Ihnen fallen bestimmt 
noch viele Anwendungen für ein solches Programminstru¬ 
ment ein. 

Diejenigen unter Ihnen, vor denen nun ein C 64 steht, 
haben Glück: Im Betriebssystem des C 64 ist nämlich eine 
komplette und vor allem leicht ansteuerbare Blockverschie- 
beroutine enthalten. C 128-Benutzer finden solch eine Rou¬ 
tine zwar auch in ihrem Speicher vor (nämlich ab $F4EA8), 
die ist aber leider nicht zu verwenden, weil sie nicht einfach 
mit einem RTS endet, sondern noch allerlei unerwünschte 
Zeigeränderungen anstellt. Allerdings kann der C 128-Be- 
sitzer auch mit erheblichen Effekt auf den T-Befehl des ein¬ 
gebauten Monitors zugreifen. Auch von Basic aus ist das 
mit Hilfe des »programmierten Direktmodus« möglich. Wer 
sich stärker dafür interessiert, der sollte mal in folgendem 
Buch das Kapitel dazu nachlesen: Ponnath, »Grafikpro¬ 
grammierung C 128«, Markt und Technik Verlag, MT857. 
Eine andere Möglichkeit für den C 128-Benutzer ist unser 
später noch vorzustellendes Programm BLOCK. 

Sehen wir uns nun zunächst die im C 64-lnterpreter ent¬ 
haltene Blockverschieberoutine BLTUC an: 


Name 

BLTUC 

Zweck 

Verschieben von Speicherinhalten im Speicher 

Adresse 

$A3BF, dez. 41919 

Vorbereitungen 

Quelle Startadresse nach $5F/60 

Endadresse+1 

nach S5A/5B 

Ziel 

Endadresse+1 nach $58/59 

Speicherstellen 

$58 bis 5B, $5F, $60, $22 

Register 

Akku, X- und Y-Reglster 

Stapelbedarf 

keiner 


Das scheint also der Weg zur Benutzung dieser Routine 
zu sein: Man schreibt ein Basic-Programm, das die leidige 
Umrechnung der drei Adressen (Quellenstart, Quellen- 
ende+1 und Zielende+1) übernimmt und die errechneten 
LSB und MSB in die erforderlichen Abholspeicherstellen 
packt. Danach braucht man nur noch mittels eines SYS 
41919 die BLTUC-Routine zu starten. Sollten Sie es mal pro¬ 
bieren wollen, dann werden Sie einen Absturz des Pro- 
grammes erleben. So geht es nicht, und zwar deshalb, weil 
der Basic-Interpreter die Speicherstellen $5F und $60 nach 
dem Belegen mit der Quellenstartadresse mit seinen Merk¬ 
werten überschreibt. Glücklicherweise enthält aber die 
Seite 3 eine Möglichkeit, Werte abholbereit für die Register 
so aufzubewahren, daß sie nach einem SYS-Befehl im 
Akku, dem X- und dem Y-Register zu finden sind. Die 
Zuordnung ist dann so: 


Name 

Adr« 

$ 

isse 

dez. 

Register 

SAREG 

30C 

780 

Akku 

SXr iG 

30D 

781 

X-Register 

SYREG 

30E 

782 

Y-Register 

SPREG 

30F 

783 

Stapelzeiger 


Wir schreiben nun die Quellenstartadresse statt nach 
$5F/60 zunächst nach 780 und 781. Der anschließende 
SYS-Befehl ruft zuerst ein kleines Maschinenprogramm 
auf, das die Werte in die richtigen Speicherzellen schreibt 
und dann BLTUC anspringt: 

STA $5F 
STX $60 
JMP $A3BF 

Beiliegend finden Sie ein kleines Basic-Programm, das 
alle diese Aufgaben übernimmt: »BLTUC BAS« (Listing 22) 

BLTUC BAS zeigt die Funktion von BLTUC anhand des 
Bildschirmspeichers. In den Zeilen 40 und 50 wird in die 
erste Bildschirmzeile - ab Position 1025 - eine fortlaufende 
Reihe von verschiedenen Zeichen geschrieben, die wir im 
folgenden verschieben werden. Damit diese Zeichen sicht¬ 
bar werden, müssen einige ältere Versionen des C 64 auch 
den Farbspeicher beschreiben. Das geschieht in der Zeile 
40. Die Zeilen 54 und 56 erzeugen das kleine Maschinen¬ 
programm, das die Belegung der Abrufzellen $5F, $60 und 
den Sprung in die BLTUC-Routine ausführt. Sie lesen den 
Dezimalcode des Maschinenprogrammes aus der 
DATA-Zeile in den Speicher ab 49152. Nun bereiten wir die 
erste Verschiebung vor: Hier soll einfach der ganze Bereich 
von 1025 bis 1063 um eine Zeile weiter geschoben werden, 
also nun bei 1065 beginnen. Damit alles nicht ganz so 
schnell geht, sind noch kleine Warteschleifen ins Pro¬ 
gramm eingebaut. In den Zeilen 90 bis 110 trennen wir die 
in 70 und 80 benannten Start- und Endadressen auf in die 
MSB- und LSB-Werte und schreiben sie in die erforderli¬ 
chen Speicherstellen 88 bis 91, beziehungsweise 780 und 
781 ein. Zeile 120 vollführt nun mittels des SYS-Aufrufes die 
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Verschiebung, was Sie auf defn Bildschirm erkennen kön¬ 
nen. 

Auf Tastendruck gelangen Sie in den zweiten, den kriti¬ 
schen Teil des Programmes. Hier werden wir einen Fehler 
der BLTUC-Routine finden. Wir verschieben in diesem Teil 
den Inhalt des Speicherbereiches 1025 bis 1063 um eine 
Position abwärts, also in den Bereich 1024 bis 1062. Woran 
liegt es, daß hier plötzlich eine Fehlfunktion auftritt? Sehen 
wir uns dazu die BLTUC-Routine genauer an. Als Pro¬ 
gramm BLTUC (Listing 23) finden Sie nachstehend ein 
Disassemblerlisting der BLTUC-Routine, wie sie im 
C 64-Speicher ab $A3BF zu finden ist. 

Die Anatomie der BLTUC-Routine 


Das ganze Programm besteht aus zwei Teilen. Im ersten 
Teil werden Berechnungen angestellt über die Länge des 
zu transportierenden Bereiches und zwei Transportzeiger 
eingerichtet. Im zweiten Teil findet dann die eigentliche Ver¬ 
schiebung statt. Die erste 16-Bit-Subtraktion (Quelle bis 
Ende+1 minus Quelle-Start) legt das MSB der Länge ins 
X-Register (das enthält dann die Anzahl der zu transportie¬ 
renden Pages) und das LSB ins Y-Register und in die Spei¬ 
cherstelle $22 (dort liegt dann die restliche Länge, die weni¬ 
ger als eine ganze Page beträgt). Der BEQ-Befehl stellt fest, 
ob überhaupt ein solcher Rest vorhanden ist und verzweigt 
ansonsten direkt in den Transportteil. Zwei weitere Subtrak¬ 
tionen (Quelle-Ende+1 minus Länge des Restes und Ziel- 
Ende+1 minus Länge des Restes) richten die Zeiger 
$5A/5B und $58/59 auf die Adressen der nächstniedrigeren 
ganzen Page. Der Rest befindet sich noch im Y-Register. 
Das X-Register dient als Page-Zähler. Der BCC-Befehl bei 
$A3E6 führt immer zum Sprung nach $A3EC, weil an dieser 
Stelle das Carry-Bit immer frei ist. 

Danach beginnt der Transportteil. Er besteht im wesentli¬ 
chen aus zwei ineinander verschachtelten Schleifen, von 
denen die innere Schleife Byte für Byte aus dem Quell- in 
den Zielbereich kopiert (dabei beginnt sie mit dem Rest), 
die äußere zunächst ebenfalls ein Byte überträgt und dann 
die MSB-Werte der beiden Zeiger ($59 und $5B) herunter¬ 
zählt. Dabei wird auch jedesmal der Pagezähler (X-Regi¬ 
ster) um 1 reduziert. 

Kopieren von oben und von unten 


Wir stellen also fest, daß ein Bereich durch BLTUC immer 
von der höheren zur niedrigeren Adresse hin durchgearbei¬ 
tet wird. Sowohl der Index Y als auch der Page-Zähler X 
werden heruntergezählt. Welche Folgen das hat, werden 
wir nun bei einer genauen Betrachtung aller möglichen Ver¬ 
schiebungsfälle schnell erkennen. Insgesamt acht sind zu 
unterscheiden: 

1. Quell- und Zielbereich überschneiden sich nicht. Der 
Zielbereich liegt oberhalb des Quellbereiches. Das Kopie¬ 
ren erfolgt von unten (also von der niedrigsten Adresse an 
aufwärts. Die Register werden hochgezählt). Das nennen 
wir den Fall 1. 

2. Gleiche Bedingungen wie in Fall 1. Aber das Kopieren 
geschieht von oben (also von der höchsten Adresse an ab¬ 
wärts. Die Register zählen wir hier herunter). Dies ist Fall 2. 

3. Wieder liegt keine Überschneidung vor. Der Zielbereich 
liegt nun aber unterhalb des Quellbereiches. Das Kopieren 
erfolgt von unten. Fall 3 liegt vor. 

4. Die Bedingungen sind mit Fall 3 identisch, aber es wird 
wieder abwärts kopiert. Das ist Fall 4. 

5. Quell- und Zielbereich überschneiden sich. Ansonsten 
sind die Verhältnisse wie bei Fall 1. Das wäre dann Fall 5. 


6. Fall 6tritt ein, wenn gleiche Bedingungen wie in Fall 2 vor¬ 
liegen. Einziger Unterschied ist auch hier die Überschnei¬ 
dung von Quell- und Zielbereich. 

7. Fall 7 entspricht dem Fall 3 mit Überlappung der 
Bereiche. 

8. Das ist wieder der Fall 4 mit der Überschneidung von 
Quell- und Zielbereich. 

Die Fälle 1 bis 4 bereiten keine Probleme. Hier bleibt es 
uns überlassen, wie wir eigene Verschiebungsprogramme 
organisieren wollen. Der BLTUC-Routinenanwendung ent¬ 
sprechen die Fälle 2 und 4. Sehen wir uns nun Fall 5 an 
(siehe dazu Bild 11). 


1B REM #»*#« BLTUC - TESTPROGRAMM »***» <179> 
ZB PRINT CHR*(147) <049> 
3B PGKE 53200, 0:POKE 53201,5:POKE 646,1 <120> 
35 REM +++ FARBRAM U. SCHIRM BELEGEN +++ <053> 
40 FOR I = 0 TO 79:POKE 55296+f, 1:NEXT I <221> 
50 FOR I - 1 TO 39:POKE 1024+1,I:NEXT I <1BB> 
52 REM +++ ML-PRB.PARAMETERUEBERGABE +++ <073> 
54 FOR 1-49152 TO 4915B:READ A:POKE I,A:NE 

XT I <219> 
56 DATA 133,95,134,96,76,191,163 <002> 
60 REM +++ AUFWAERTS VERSCHIEBEN +++ <1BB> 
62 FOR 1=0 TO 300:NEXT I <161> 
64 PRINT CHR*(17)CHR*(17)"WIR VERSCHIEBEN 

JETZT!" <196> 
66 FOR 1=0 TO 300:NEXT I <165> 
70 QS—1025:QE—1064:REM QUELLE START UND QU 

ELLE ENDE+1 <062> 
80 ZE—1065:REM ZIEL ENDE+1 <092> 
90 A=INT(QS/256):POKE 7B1,A:P0KE 780,QS-25 

6 »A <015> 
100 A=INT(QE/256):POKE 91,A:P0KE 90.QE-256 

*A <099> 
110 A=INT(ZE/256):POKE B9,A:P0KE SB.ZE-256 

*A <034> 
120 SYS 49152 <17B> 
130 PRINT CHR*(17)CHR*(17)"DAS WAR UM 1 AU 

' WAERTS":PRINT"BITTE TASTE DRUECKEN" <167> 
140 GET A*:IF A*=""THEN 140 <014> 
150 REM +++ ABWAERTS VERSCHIEBEN +++ <121> 
152 FOR 1=0 TO 300:NEXT I <251> 
154 PRINT CHR*(17)CHR*(17)"JETZT VERSCHIEB 

EN WIR ABWAERTS!" <200> 
156 FOR 1=0 TO 300:NEXT I <255> 
160 QS=1025:QE—1064:REM QUELLE START UND Q 

UELLE ENDE+1 <152> 
170 ZE=1063:REM ZIEL ENDE+1 <1B0> 
1B0 A=INT(QS/256):POKE 7B1,A:P0KE 7B0,QS-2 

56»A <105> 
190 A=INT(QE/256):POKE 91,A:P0KE 90.QE-256 

*A <1B9> 
200 A=INT(ZE/256):POKE B9,A:P0KE Be,ZE-256 

»A <124> 
210 SYS 49152 <012> 
220 PRINT CHR*(17)CHR*(17)"DA SEHEN SIE DA 

S PROBLEM":PRINT"DER BLTUC-ROUTINE" <177> 


6 64'er 

Llstlng 22. »BLTUC BAS« - Ein kleines 
Basic-Programm zum Testen der BLTUC-Routine 
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Listing 23. »BLTUC« - So steht die BLTUC-Routine im 
C64-Spe!cher (Disassembler-Listing) 
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ln Bild 11a ist die Ausgangslage abgebildet, wobei wegen 
der besseren Übersicht Quell- und Zielbereich unterein¬ 
ander gezeichnet sind. Natürlich handelt es sich bei den 
untereinanderliegenden Kästchen immer um ein und die¬ 
selbe Speicherstelle. In Bild 11b wird das erste Byte des 
Quellbereiches in die erste Speicherstelle des Zielberei¬ 
ches kopiert. Das ist aber gleichzeitig das zweite Byte des 
Quellbereiches. Was nun geschieht, zeigen die Teilbilder 
11c und schließlich 11d: Der gesamte Zielbereich füllt sich 
mit dem Inhalt der ersten Quellbereichs-Speicherstelle. 
Hätten Sie das gedacht? 

Bild 12 verdeutlicht uns den Fall 6. 


chen Inhalt, was Ihnen die Teilbilder c und d zeigen. Genau 
das macht die BLTUC-Routine, wie Sie im zweiten Teil des 
Programmes BLTUC BAS feststellen konnten. Man darf 
also diese Interpreter-Routine nicht anwenden, wenn der 
Zielbereich unterhalb des Quellbereiches liegt und beide 
sich überschneiden! 

Wenn es daher unsicher ist, ob sich Quell- und Zielbe¬ 
reich überlappen oder wenn man davon ausgehen kann, 
daß das sicher der Fall sein wird, dann verfahre man beim 
Erstellen eigener Verschiebe-Routinen nach folgender 
Regel: 

- Abwärts kopieren beim Aufwärtsverschieben 

- Aufwärts kopieren beim Abwärtsverschieben 
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B 
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Bild 11. Der Fall 5 


|a 

B 

C 

D 



B 

C 

D 

□ 


Quelle 

Ziel 


Ausgangstage 

Ol 


A 1 B | C | P|D 


1. Verschiebung (letztes Byte) 

M. b @p] 

Z. Verschiebung 


A A 


B|C | P 


Verschieben beendel 


Bild 12. Der Fall 6 
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Bild 13. Der Fall 7 
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Bild 14. Der Fall 8 


Fehlerfreies Verschieben mit »BLOCK« 


Wie sollte ein Verschiebeprogramm aussehen, das allen 
Eventualitäten gerecht wird? Ganz einfach: es müßte 
zunächst prüfen, ob eine Überlappung von Quell- und Ziel¬ 
bereich vorliegt und je nach Ergebnis dann zum entspre- 


Es ist nach dem gleichen Schema wie Bild 11 aufgebaut. 
Sie sehen, daß nun aber von oben herunter gearbeitet wird. 
Die erste Verschiebung packt das letzte Byte des Quellbe¬ 
reiches in die letzte Speicherstelle des Zielbereiches (Teil¬ 
bild b). An den folgenden Teilbildern c und d ist deutlich, 
daß diese Methode fehlerfrei funktioniert. Nach diesem 
Schema arbeitet die BLTUC-Routine, weshalb wir beim 
Aufwärtsverschieben von Speicherinhalten auch bei Über¬ 
lappungen keine Störungen erwarten brauchen. 

Wenden wir uns nun dem Fall 7 zu. Bild 13 soll bei dieser 
Betrachtung wieder helfen: 

In Fall 7 liegt der Zielbereich unterhalb des Quellberei¬ 
ches und es wird von unten gearbeitet, also die Register 
aufwärts gezählt. Aus Bild 14 ist - gleiches Schema wie bis¬ 
her - zu entnehmen, daß keine Probleme auftreten. Zu 
guter Letzt hilft uns das Bild 14 zum Verstehen des Falls 8: 

Im Teilbild 14b erkennen Sie das Problem: Sobald das 
letzte Byte des Quellbereiches in die letzte Speicherstelle 
des Zielbereiches verschoben ist, haben wir das vorletzte 
Byte des Quellbereiches damit überschrieben, denn das ist 
ja gleichzeitig die letzte Speicherstelle des Zielbereiches. 
Jede weitere Verschiebung kopiert nur wieder diesen glei- 
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-I BLOCKVERBCMIEBEROUTINE OHNE FEHLER 

-.DEFINE MVELEN - *FA »IN MYPRA-ABB WIRD STATT DER 
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“1 
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-I ALS ERSTES WIRD BEBT IMMT 
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190 
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200 

210 

-J ZU VERSCHIEBENDEN BYTES 
-1 

IST. 

220 

-START 

LDA MVDEST 

;BERECHNUNG ZIEL MINUS QUELLE 

230 

- 

SEC 


■ ‘ r 

-W 

SDC MVSRCE 


250 


TAX 


260 

— 

LDA MVDEST*1 


270 

- 

SDC MVSRCE*1 
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- 

TAY 
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- 

TXA 

»VERGLEICH MIT LAENGE DES VERSCHIEBEBEREICHES 

300 

- 
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— 

TVA 


320 

- 
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- 
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- 
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»SONST ZUM UP FUER UEBERLAPPUNG 
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— 

JMP EXIT 


360 

-DOLEFT 

JSR MVELFT 
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370 

3B0 

-EXIT 

”1 

RTB 
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-»•••• UP 
-1 
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-MVELFT 
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»INDEX AUF NULL 
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- 

LUX MVELEN*1 

»ANZAHL PAGES IN X 
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- 

DEO MLPART 
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-MLPAGE 

LDA (MVSRCEl,Y 

»EIN ÜYIE VERSCHIEBEN 
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- 

BTA (MVDEST1,V 
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- 

INV 

»NAECHSTES BYTE 
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— 

BNE MLPAGE 

»BIS 236 BYTES VERSCHOBEN SIND 

400 

• 

INC MVSRCE*1 
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490 

— 

INC MVDEBT*! 

1 1JND DEO ZIELDEREICMEO 

300 

- 

DEX 

»PAGEZAEHLER HERUNTERZAEHLEN 

310 

- 

BNE MLPAQE 

»WEITERMACHEN DIS Al LE VOLLEN PAGEB FERTIG 

320 

-MLPART 

LDX MVELEN 

1 LAENGE DES RF.BTDERE ICHEB IN X 

330 

- 

BEO Ml.EX IT 

|ZURUECK, WENN REST GLEICH NULL 

540 

-MILABT 

LDA 1 MVSRCEI.Y 

»EIN BYTE VERSCHIEBEN 

330 

• 

BIA (MVDEBT»,Y 


360 

- 

INV 

1NAECHSTES DYTE 

370 

_ 

DEX 

IZAEHLER HERUNTERZAEHLEN 

500 

- 

BNE MLLABT 

»WEITEM BIS HEBT DURCHGEARDE1TET IBT 

590 

600 

-MLEXIT 

RTS 

IZURUECK ZUM HAUPTPROORAMM 
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620 

-1 

ZUM VERSCHIEBEN 

MIT UEBERLAPPUNG i MVERHT •••• 
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-MVERHT 

IDA MVELEN* I 

|ZEIGER AUF LETZTE QUELLPAOE RICHTEN 

640 


CLC 
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— 

ADC MVSRCE*1 
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- 

UTA MVSRCE*! 

»FUER DAS MSB DER MAX. QUELLADREBSE 
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- 

LDA MVELEN*1 

»ZEIGER AUF LETZTE ZIELPAGE RICHTEN 

600 

- 
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— 

ADC MVDEST*1 


700 

— 

STA MVDEST»! 

»FUER DAS MSB DER MAX. ZIELADRESSE 
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. 

LDY MVELEN 

»LAENGE BEB RF8TEB 
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- 

DEO MRPAQE 

»WENN NULt, BANN NUR GANZE PAGEB 
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-MRO 

DEY 

1ZAEHLER MINUS EINS 

/ 40 

- 

LDA (MVSRCE» t Y 

»EIN BYTE VERSCHIEBEN 

750 

- 

STA (MVDEST»,Y 

760 

- 

CPY *0 

|REBT SCHON FERTIG ? 

7/0 

- 

BNE MRO 

»WEITER BIS DLH GANZE REST VERSCHOBEN IST 

7B0 

-MRPAGE 

LDX MVELEN»1 

1 ANZAHL PAQEB ALS ZAEHLER NACH X 

790 

- 

IIEO MREXIT 

»WENN KE INI- GANZEN PAGES DANN EMDE 

BOO 

-MR! 

DEC MVSRCE«! 

I MSB OUELLADRESSE HERUNTERZAEHLEN 

BIO 

- 

DEC MVDEST*1 

»EBENSO DAS MSB DER ZIELADRESSE 

020 

-MR2 

DEY 

»INDEX Y HERUNTERZAEHLEN 

030 


LDA (MVSRCE»,Y 

»EIN BYTE VERSCHIEBEN 

B40 

— 

STA (MVDEST»,V 


050 

- 

CPY *0 

» ZAEHLER SCHON NULL ? 

060 

- 

BNE MR2 

»WEITER BIS GANZE PAGE VERSCHOBEN IBT 

070 

— 

DEX 

» PAGEZAEHLER HERUNTERZAEHLEN 

OBO 

- 

BNE MR 1 

»WEITER BIB ALLE PAGEB VERSCHOBEN BIND 

090 

900 

-MREXIT 

-| 

RT8 

»ZURUECK ZUM HAUPTPROORAMM 

Listing 24. 

»BLOCK« - 

Programm zum fehlerfreien 

Verschieben von Speicherinhalten 
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GRUNDLAGEN 


C64, C128 


chenden Kopierteil verzweigen. Genau das tut das nachfol¬ 
gend vorgestellte Programm BLOCK (Listing 24), welches 
sowohl auf dem C 64 als auch auf dem C128 (dort aber nur 
innerhalb der gerade eingeschalteten Bank) arbeitet. 
L.A.Leventhal und W.Saville haben das Prinzip 1982 vorge¬ 
stellt in »6502 Assembly Language Subroutines«. In Bild 15 
finden Sie ein Flußdiagramm des Programmes BLOCK: 

Zum Ansteuern des Programmes werden drei Vektoren 
benötigt: 

MVELEN ($FA/FB) enthält die Länge des zu verschieben¬ 
den Bereiches; 


MVDEST ($FC/FD) enthält die Startadresse des Zielberei- 
c h©s * 

MVSRCE ($FE/FF) enthält die Startadresse des Quellbe¬ 
reiches. 

Im Hauptprogramm wird zunächst der Abstand der Start¬ 
adressen von Quell- und Zielbereich berechnet und dieser 
dann mit der angegebenen Länge des zu verschiebenden 
Bereiches verglichen. .Ist der Abstand kürzer als diese 
Länge, dann liegt eine Überlappung vor. Es mag Ihnen viel¬ 
leicht seltsam anmuten, daß das sowohl dann, wenn die 
Quelle unterhalb, als auch dann, wenn sie oberhalb des 


^ BLOCK J 


Subtraklion: 
Zielstart - Quellenslart 
(USB) - X 


Subtraktion: 
Zielstart - Quellenstart 
(MSB) - Y 


Abstand (LSB) 
X-A 


Vergleich mit (LSB) 
der Länge 

Flaggen werden gesetzt 


Abstand (MSB) 
Y - A 


Subtraktion 

Abaland (MSB)-Lftngs (MSB) 
Carry - 1, 

wann Lflnpo < Abotand 


Abstand von 
Quelle und 
Ziel berechnen 


Abstand Ist 
inX/Y 


Vergleich von 
Abstand und 
Länge. 
Prinzip wie 
In 16-Blt- 
Schleite aus 
Folge 2 



1 — - — 

Nein 


UP MVERHT 


UP MVELFT 









^ ENDE ^ 





Bild 15. Das Flußdiagramm des Programmes »BLOCK* 
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GRUNDLAGEN 


Zielbereiches liegt, funktioniert. Das - scheinbare - 
Geheimnis liegt im Carry-Bit verborgen: Die Routine rech¬ 
net automatisch mit Modulo(64K). Ein unter dem Quellbe¬ 
reich liegender Zielbereich erfährt die gleiche Behandlung, 
als läge er 64K höher. Rechnen Sie diesen Teil mal mit fikti¬ 
ven Adressen bitweise nach, wenn Sie zu den »Fortge¬ 
schrittenen« zu zählen sind. 

Der Vergleich des so berechneten Abstandes mit der 
angegebenen Länge folgt dem gleichen Prinzip, das wir 
auch schon in der zweiten Folge für Doppelschleifen belie¬ 
biger Länge zur Steuerung angewendet haben. Dort haben 
wir auf diese Weise festgestellt, ob schon die Endadresse 
erreicht ist. Hier verwenden wir das Verfahren, um heraus¬ 
zubekommen, ob eine Überlappung von Quell- und Zielbe¬ 
reich vorliegt. Ist nämlich die Länge in MVELEN kleiner als 
der berechnete Abstand, dann finden wir ein gesetztes 
Carry-Bit vor. Wir haben dann keine Überlappung und ver¬ 
zweigen zur Kopierroutine, die von unten nach oben arbei¬ 
tet. Durch die Eigenart des vorherigen Umganges mit dem 
Carry-Bit wird der gleiche Weg auch dann eingeschlagen, 
wenn eine Überlappung zwar vorliegt, aber der Quell- ober¬ 
halb des Zielbereiches liegt. 

- Den Rest des Programmes bilden die beiden Transport¬ 
schleifen. MVELFT kopiert aufwärts arbeitend, indem 
zunächst die ganzen Pages und danach der Rest übertra¬ 
gen wird. MVERHT berechnet zuerst aus der Länge und 
den beiden MSB der Startadressen (von Quelle und Ziel) 
die Adresse der letzten Page. Indem ins Y-Register das 
LSB der Länge gepackt und mittels der indirekt indizierten 
Adressierung gearbeitet wird, findet hier abwärts zählend 
als erstes die Übertragung des Restes und danach die der 
ganzen Pages statt. 

Damit Sie BLOCK auf Herz und Nieren prüfen können, 
finden Sie beiliegend noch ein kleines Basic- 
Aufrufprogramm namens »BLOCK BAS« (Listing 25). 

Ähnlich wie beim Programm BLTUC BAS finden alle 
Operationen der besseren Verfolgbarkeit wegen im Bild¬ 
schirmspeicher statt. Auch hier ist wieder - weil ältere 
C 64-Modelle das benötigen - eine Zeile zum Belegen des 
Farb-RAM eingefügt worden (Zeile 60), die Sie dann 
weglassen können, wenn Sie einen neueren C 64 oder 
einen C 128 verwenden. In der Zeile 90 werden wieder die 
ersten 40 Zeichen - diesmal in die Bildschirmmitte (ab 
Speicherstelle 1504) - in den Bildschirmspeicher gePO- 
KEt. Weiterhin haben Sie nun aber die freie Auswahl, wie¬ 
viele Bytes Sie wohin verschieben möchten. Die Pro¬ 
grammzeilen 140 bis 160 übernehmen die Berechnung der 
MSB und LSB der Adressen und der angegebenen Länge, 
Zeile 180 schließlich ruft unsere Verschiebe-Routine auf. 
Viel Spaß beim Ausprobieren! 

Speicherinhalte austauschen 


Eng verwandt mit den Verschiebe-Routinen und ebenso 
häufig Thema von Leserfragen ist ein Programminstru¬ 
ment, das es erlaubt, die Inhalte zweier Speicherbereiche 
auszutauschen. Im Grunde genommen wird ja bei beiden 
Verschiebeprogrammen (BLTUC und BLOCK) nicht der 
Inhalt verschoben, sondern nur kopiert. Bei einer Tausch¬ 
routine aber verändern sich sowohl der Quell- als auch der 
Zielbereich. 

Überlegen wir uns, wie ein Programm SWAP, das dieses 
Vertauschen leistet, konstruiert sein muß. Da erhebt sich 
zunächst wieder die Frage, welche grundsätzlichen Mög¬ 
lichkeiten hier auftreten können. Wieder sind die oben 
betrachteten Fälle 1 bis 4 ohne Probleme. Die Fälle 5 bis 8 
allerdings, die mit Überschneidungen, halte ich hier für 
sinnlos. Allenfalls dürfte noch ein Fall nützlich sein, in dem 


10 REM ******* VERSCHIEBEN MIT DEM BLOCK-P 

ROGRAMM ******* <077> 

20 PRINT CHR*(147):REM C 120 = WAIT0,1 <11B> 

30 POKE 53280,0:POKE 53281,5 <17B> 

40 POKE 241,1: REM C64 = P0KE646,1 <097> 

50 REM-FARBRAM BELEGEN- <122> 

60 FOR 1=0 TO 1000:POKE 55296+1,1:NEXT I:R 

EM DAUERT EIN WENIG! <027> 

70 REM-BILDSCHIRM BELEGEN- <249> 

80 S=1504:REM STARTADRESSE QUELLE <022> 

90 FOR 1=0 TO 39:POKE S+I,I:NEXT I <040> 

100 REM-PARAMETER ABFRAGEN- < 19B> 

110 INPUT"WIEVIELE BYTES (SINNVOLL 0 BIS 4 

0>";N <170> 

120 INPUT"ZIELORT (SINNVOLL 1024 BIS 1984) 

"j Z <173> 

130 REM-BERECHNEN UND UEBERGABE- 

< 012 > 

140 A=INT(S/256):POKE 255,A:P0KE 254,3-256 

*A <038> 

150 A=INT(Z/256):POKE 253,A:P0KE 252,Z-256 

*A <253> 

160 A=INT(N/256):POKE 251,A:POKE 250,N-256 

*A <233> 

170 REM-VERSCHIEBEN- <099> 

1B0 SYS 4864:REM C64 = SYS 49152 <066> 

190 END <192> 

© f i-1'l t 

Listing 25. »BLOCK BAS« - Baslc-Programm zum Testen 
von BLOCK 


beispielsweise die Endadresse des Bereiches 1 direkt 
unterhalb der Startadresse des Bereiches 2 liegt, also 
benachbarte Speicherteile miteinander vertauscht wer¬ 
den. Das kann aber in den Fällen 1 bis 4 erfaßt werden und 
erfordert daher keine besondere Behandlung. 

Sem* könnte man das Programm BLOCK als Ausgangs¬ 
struktur verwenden. Anstelle des Einsprunges in die Rou¬ 
tine für überlappende Bereiche müßten wir eine Routine 
setzen, die einen darauf aufmerksam macht, daß eine 
Überschneidung stattfindet. Statt der Sequenzen 
LDA (VI),Y 
STA (V2),Y 

(VI und V2 sind die Vektoren, die auf die jeweilige Quell- 
und Zielbereichsadresse weisen) müßte bei SWAP eine 
Lösung gefunden werden, die zunächst ein Byte lädt, es 
dann beiseitelegt, dann aus dem anderen Bereich das ent¬ 
sprechende Byte lädt, dieses dann anstelle des zuerst 
geladenen speichert, dann das beiseitegelegte wieder her¬ 
vorholt und an die Stelle des zuletzt geladenen packt. 

Zum Beiseitelegen könnte man irgendeine Speicher¬ 
stelle parat halten. Wir verwenden aber einfach den Stapel: 
LDA (VI),Y 
PHA 

LDA (V2),Y 
STA (VI),Y 
PLA 

STA (V2),Y 

Damit hätten wir es dann. Hier finden Sie nun noch das 
Programm SWAP (Listing 26) abgedruckt. 

Wie Sie sicher erkennen können, haben wir das Pro¬ 
gramm BLOCK etwas umgeschrieben, nämlich um die 
eben vorgestellten Teile. Die Meldung, daß eine Über¬ 
schneidung vorliegt, wird mittels einer kleinen Schleife aus 
einer Tabelle herausgelesen und durch die Kernel-Routine 
CHROUT (oder auch BSOUT genannt) auf dem Bildschirm 
ausgegeben. Diese Routine haben wir schon in der Folge 2 
kennengelernt. 

Auch diesmal finden Sie anliegend noch ein kleines 
Basic-Programm (Listing 27), das sich der SWAP-Routine 
bedient. 

Die Belegung des Farb-RAM in Zeile 60 können sich 
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1 “,4,0il 

1 -.4,Oll 

10 -| 

20 

30 -.BASE 91300 i IN HVPRA-ABBi .BA 9C000 

40 -I ... 

50 -| VE(ITAUSCHEN ZWEIER SPEICHERBEREICHE (SWAP) 

60 -| 

70 DEF1NE HVELEN - tFA |IN MYPRA-ABB WIRD STATT DER 

DO -.DEFXNE MVDEBT - #FC | .DEFINE BEFEHLE JEWEILS DER BEFEHL 

90 -.DEFINE MVBRCE - 9FE | .EO - VERWENDET 

100 -.DEFINE PRINT - 9FFD2 |BILDBCHIRMAUBOADE 

110 

120 -|IN HVELEN WIRD DIE LAENGE DER ZU VERTAUSCHENDEN BEREICHE ANGEGEBEN 

130 -|IN MVDEBT DIE BTARTADREBBE DES I. BEREICHES UND IN 

140 -|HVSRCE DIE BTARTADREBBE DEB 2. BEREICHES. 

150 -i 

160 -|-PROGRAMM- 

170 -|ALB ERSTES WIRD BESTIMMT, OB DER ZIELBEREICH OBERHALB DEB 
1B0 0UELLDEREICME8 LIEGT UND OB BICH DIE BEIDEN BEREICHE UEBER- 
190 LAPPEN. EINE UEÜERLAPPUNG LIEGT DANN VOR, WENN DIE DIFFERENZ 
200 -| VON ZIELADREBBE MINUS QUELLADREBBE KLEINER ALB DIE ANZAHL DER 

210 -| ZU VERBCHIEBENDEN BYTES IBT. 

220 -| 

230 -START 
240 - 

250 - 

260 - 
270 - 

200 - 
290 - 

300 - 

310 - 

320 - 

330 - 

340 - 

350 - 

360 - 

370 -DOLEFT 
300 -EX IT 
390 -| 

400 -|IHI l 
410 -| 

420 -MVELFT 
430 - 

440 - 

450 -ML PAGE 
460 - 

470 - 

400 - 

490 - 

500 - 

510 - 

520 - 

530 - 
540 - 

550 - 

560 - 

570 -MLPART 
5B0 - 

590 -HLLA8T 
600 - 
610 - 
620 - 
630 - 

640 - 

650 - 

660 - 
670 - 
6G0 -MLEXIT 
690 -| 

700 -!•••* UP ZUR AUSGABE EINER FEHLERMELDUNG! MELDEN •••• 

710 

720 -MELDEN 
730 -WEITER 
740 - 

750 - 

760 - 

770 - 

7BO -ENDE 
790 -| 

QOO -TEXT 
BIO - 
020 - 
B30 -| 

050 -| 

Llsting 26. »SWAP« - SWAP tauscht Speicherinhalte 
gegeneinander aus 

_ 


Besitzer neuerer C 64 und auch des C128 ersparen, für den 
alten C 64 ist diese Zeile wichtig. Ab Zeile 80 schreibt das 
Programm jeweils in die obere und die untere Bildschirm¬ 
hälfte einen Text. Auf einen Tastendruck werden in den Zei¬ 
len 180 bis 240 die Adressen der beiden zu vertauschenden 
Bereiche und ihre Länge umgerechnet in MSB und LSB 
und danach in die Abrufspeicherstellen $FA bis $FF gePO- 
KEt. Zeile 260 ruft SWAP auf, Zeile 270 führt den Pro¬ 
grammlauf wieder zurück zur Tastaturabfrage in Zeile 160, 
von wo aus ein erneuter SWAP-Aufruf gestartet wird. Blitz¬ 
artig wird bei jedem Tastendruck der untere gegen den obe¬ 
ren Text ausgetauscht. 

Kombination von BLOCK und SWAP 


BLOCK und SWAP sind kurze Routinen, die beide zusam¬ 
men nur 219 Byte an Platz erfordern. Mit einigem Geschick 
lassen sich beide auch noch kombinieren. Wenn Sie sicher 
sind, daß Ihnen nie der Fall unterkommt, der eine Fehlfunk¬ 
tion der BLTUC-Interpreter-Routine verursacht, können Sie 
sich natürlich auch einer Kombination von BLTUC und 
SWAP bedienen. 


10 REM ****** SWAP TESTPROBRAMM ****** <085> 

20 PRINT CHR» <147)iREM C 12B = WAIT0.1 <11B> 

30 P0KE 532B0,0s POKE 53281,5 <178> 

40 POKE 241,1:REM C64 = POKE 646,1 <097> 

50 REM - FARBRAM BELEBEN (AELTERE C64) 

- <125> 

60 FOR 1=0 TO 1000:POKE 55296tI,1sNEXT ItR 

EM DAS DAUERT ETWAS <04B> 

70 REM-BILDSCHIRM BELEBEN- <249> 

80 PRINT"WAS DIE ALTE DAME EMPFINDET, WENN 
SIE,I2SPACE1NACHDEM SIE IHREN KANARIEN 
VOBEL " <199> 

90 PRINT"BEFUETTERT HAT UND SPAZIEREN BEBA 
NBEN(3SPACE}IST, BEI DER RUECKKEHR DEN 
KAEFIB ” <173> 

100 PRINT"MIT EINEM LEBENDIBEN TRUTHAHN ZU 

MC7SPACEJPLATZEN VOLL FINDET," <125> 

110 PRINT CHR#(17)CHR*(17)CHR*<17)CHR*<17) 

CHR«(17) <153> 

120 PRINT"ODER DER ALTE HERR,DER,NACHDEM E 

R UEBER NACHT SEINEN KLEINEN TERRIER " <004> 
130 PRINT"AN DIE KETTE BELEBT HAT, EIN NIL 
PFERDC3SPACEJFINDET, DAS UM DIE HUNDHU 
ETTE •' < 102 > 

140 PRINT"HERUM SCHNAUBT.PRINT TAB(20) 

"(LEWIS CARROLL 1882)" <133> 

150 PRINT CHR*(17)CHR*(17>"JEDER TASTENDRU 

CK FUEHRT ZUM TAUSCH" <022> 

160 BET A#sIF A*=""THEN 160 <162> 

170 REM-PARAMETER FESTLEGEN- <016> 

180 Bl=l024:REM STARTADRESSE BEREICH 1 <133> 

190 B2=1504:REM STARTADRESSE BEREICH 2 <023> 

200 L =240:REM LAENBE = 6 ZEILEN ZU JE 40 

ZEICHEN <034> 

210 REM-PARAMETER UEBERBEBEN- <035> 

220 A=INT(Bl/256):POKE 255,A:P0KE 254.B1-2 

56*A <051 > 

230 A=INT(B2/256):POKE 253,A:POKE 252.B2-2 

56*A <192> 

240 A=INT(L/256):POKE 251,A:P0KE 250,L-256 

*A <181> 

250 REM-SWAP AUSFUEHREN- <001 > 

26fc RYS 4864:REM C64 = SYS 49152 <14B> 

270 GOTO 160 <040> 


© M'er 

Listing 27. »SWAP BAS« - Basic-Programm, das die 
Funktion von SWAP überprüft 


Vielfältige Einsatzmöglichkeiten sind denkbar: 

- Bauen Sie doch mal ein Basic-Programm, mit dem Sie 
einige Hilfsbildschirme (beispielsweise mit Erklärungen zu 
einem bestehenden Programm) erstellen und mittels 
BLOCK (oder BLTUC) zum Beispiel ab $C100 abspeichern. 
Durch Anwendung von SWAP könnten Sie diese Hilfsbild¬ 
schirme dann gegen den jeweils aktiven Bildschirm aus- 
tauschen und mit einem zweiten SWAP den normalen Bild¬ 
schirm wiederherstellen. 

- Maschinenprogramme, Hilfsbildschirme und beliebige 
Speicherinhalte könnten Sie mit BLOCK an Basic- 
Programme anhängen und mit diesen abspeichern. Beim 
Laden solcher Kombinationen würde dann durch RUN 
zunächst BLTUC oder BLOCK aktiviert, das dann diese 
Anhängsel in die richtigen Speicherteile umlädt. 

- Bis zu fünf Bitmaps könnten Sie im Speicher an beliebiger 
Stelle parat haben und mittels SWAP ohne Verlust von 
deren Bitmuster in die normale Bitmap blenden. 

- Denkbar wäre die Entwicklung einer RAM-Disk, deren 
Inhalte durch BLOCK und SWAP verwaltet würden. 

Sie sehen, daß Schleifen in Assembler auf vielfältige 
Weise verwendet werden. Wir werden ihnen weiterhin auf 
Schritt und Tritt begegnen. 

Im folgenden Abschnitt erklären wir die beiden wichtigen 
Zahlensysteme näher. 

Was sind Zahlensysteme und wie kommt man mit ihnen 
zurecht? Bevor wir uns an neue Zahlensysteme wagen, ist 


BDC 

TAX 

LDA 

BDC 

TAY 

TXA 

CMP 

TVA 

BDC 

DCB 

JBR 

JHP 

JBR 

RTB 


MVDEBT 

MVBRCE 


HVELEN 

MVELEN»! 

DOLEFT 

MELDEN 

EXIT 

MVELFT 


|BERECHNUNG ZIEL MINUS DUELLE 


(VERGLEICH MIT LAENOE DEB VERBCHIEDEDERE1CHEB 


|VERZWEIGEN, WENN KEINE UEDERLAPPUNG 
(BONBT AUSGABE EINER FEHLERMELDUNG 


(ZUM UP OHNE UEDERLAPPUNG 


' ZUM VERSCHIEDEN OHNE UEDERLAPPUNGi MVELFT *••• 

LDY 90 |INDEX AUF NULL 

LDX MVELEN«1 |ANZAHL PAOCB IN X 

DEQ MLPART (FALLS KEINE GANZEN PAGEB DANN REBT 

LDA (MVBRCE),V (EIN BYTE LEBEN 

PMA (BICHERN DEB BYTE 

LDA (MVDEBT),Y (BYTE AUS ANDEREM BEREICH LEBEN 

BTA (MVBRCE),Y (UND UMTRAGEN 

PLA (BYTE WIEDER ZURUECKHOLEN 

BTA (MVDEBT),Y (UND UMTRAGEN 

1NY (NAECHBTEB BYTE 

BNE MLPAGE (DIB 256 BYTES VERSCHOBEN BIND 

INC MVBRCE«1 (NAECHBTE PAGE DER DUELLE 

INC MVDEBT«! ( UND DEB ZIELBEREICHES 

DEX (PAGEZAEHLER HERUNTERZAEHLEN 

BNE MLPAGE (WEITERMACHEN DIS ALLE VOLLEN PAGEB FERTIG 

LDX MVELEN (LAENGE DEB REBTBEREICHEB IN X 

DEO MLEXIT (ZURUECK, WENN REBT GLEICH NULL 

LDA (MVBRCE),V (EIN BYTE LEBEN 

PHA (BICHERN DEB BYTE 

LDA (MVDEBT),Y (BYTE AUS ANDEREM BEREICH LEBEN 

BTA (MVBRCE),Y |UND UMTRAGEN 

PLA (BYTE WIEDER ZURUECKHOLEN 

BTA (MVDEBT),Y (UND UMTRAGEN 

INY (NAECH8TES BYTE 

DEX (ZAEHLER HERUNTERZAEHLEN 

BNE MLLAST (WEITER BIS REBT DURCHGEARBEITET IBT 

RTB (ZURUECK ZUM HAUPTPROGRAMM 


LDY 90 (INDEX AUF NULL 

LDA TEXT,Y |TEXTZEICHEN LADEN 

BEQ ENDE (WENN NULLBYTE, DANN ZURUECK ZUM HAUPTPROGRAMM 

JBR PRINT (BONBT AUF BILDSCHIRM AUBGEBEN 

INY (INDEX ERKOEMEN 

JMP WEITER (NAECHBTEB ZEICHEN AUBGEBEN 

RTB (ZURUECK ZUM HAUPTPROGRAMM 

.BYTE 13 (HYPRA-ABBi .BY 13 

.BYTE "UEBERSCHNEIDUNG !“(HYPRA-ABBi 
.BYTE 13,0 (HYPRA-ABBi .BY 13,0 


TX "UEBERSCHNEIDUNG 
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BIT: 

7 

6 

5 

4 

3 

2 

1 

0 



2 7 

2 6 

2 6 

2 4 

2 3 

2 2 

2' 

2° 


binär 

128 

6-1 

32 

16 

8 

4 

2 

1 

dezimal 

11111111 

1 

1 

1 

1 

1 

1 

1 

1 

265 

10000111 

1 

0 

0 

0 

0 

1 

1 

1 

135 


Bild 16. Zur Umwandlung von Binärzahlen In Dezimalzahlen 
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Bild 17. Die fortlaufende Division durch 2 zur Berechnung 
einer Binärzahl aus einer Dezimalzahl 


es sinnvoll, erst einmal den Aufbau unseres täglich verwen¬ 
deten zu verstehen. Sie werden sehen, daß man von dieser 
Basis her alle anderen Systeme begreifen kann. 

Dezimalsystem 


Haben Sie schon mal kleinen Kindern beim Zählen oder 
Rechnen zugesehen? Das geht Finger für Finger. Wir besit¬ 
zen im allgemeinen 10 davon und verwenden daher auch 
10 verschiedene Ziffern: 1,2,3,4,5,6,7,8,9 und 0. Im Latei¬ 
nischen heißt zehn decem, weshalb dies die Basis des 
Dezimalsystems bildet. Solange die Menge dessen, was 
wir zählen, unter der Basiszahl (also 10) bleibt, haben wir 
keine Probleme. Was aber kommt nach der 9? Hier hilft nun 
der geniale Trick weiter, eine Zahl in mehreren Stellen zu 
schreiben. Ganz rechts außen steht dann die Einerstelle, 
links daneben eine Zahl, die angibt, wie oft man zu dem 
Wert in dieser Einerstelle die Basis unseres Zahlensystems 
(also 10) addieren muß. So bedeutet 49, daß zur Zahl 9 (in 
der Einerstelle) viermal die Basis 10 zu addieren ist: 

49 = 4 x10 + 9 

Irgendwann kommt aber der Moment, wo auch das nicht 
mehr ausreicht. Was kommt nach 99? Das Konzept mit den 
unterschiedlichen Stellenwerten läßt sich fortführen: Vor 
der eben behandelten Zehnerstelle taucht dann die Hun¬ 
derterstelle auf, die angibt, wie oft zu dem Wert, der sich 
aus der Einer- und der Zehnerstelle ergibt, das Zehnfache 
unserer Basis (also 10 x 10 oder 100) zu addieren ist. Als 
Beispiel sehen wir uns die Zahl 493 an: 

493 = 4x 10x 10 + 9x 10 + 3 

Die nächste vorgelagerte Stelle wäre die Tausender¬ 
stelle, die dann angäbe, wie oft zum schon berechneten 
Rest das Zehnfache des Zehnfachen unserer Basis (10x10 
x 10 = 1000) zu addieren ist und so weiter. Die Schreib¬ 
weise ist platzfressend, weshalb man sich der Potenzen 
bedient. Falls Ihnen dieses Wort nicht geläufig ist: Poten¬ 
zen sind die Hochzahlen, die angeben, wie oft die Basis mit 
sich selbst malgenommen wird. So ist: 

100 = 10 x10 = 10 2 
1000 = 10 x10 x10 = 10 3 

und so fort. Außerdem haben es die Mathematiker als sinn¬ 
voll angesehen, festzulegen: 

10 = 10 1 und 1 = 10° 


Eine Zahl 24237 kann daher geschrieben werden als: 
24237 = 2 x IO 4 + 4 X 10 3 + 2 x 10 2 + 3 X 10' + 7 x 10° 
= 2 X 10000 + 4 x 1000 + 2 x 100 + 3 X 10 + 7 
Die beiden Festlegungen für die Hochzahl 1 und 0 sind 
übrigens ganz allgemein festgelegt: Eine Zahl hoch 1 ergibt 
immer die Zahl selbst, eine Zahl hoch 0 ergibt immer 1. Es 
gilt also: 

2 1 = 2,5 1 = 5 etc. 

2° = 1 ,5° = 1 etc. 

Das wird uns gleich von Nutzen sein, wenn wir auf 
andere Zahlensysteme umsteigen. Dieser Trick mit den 
unterschiedlichen Wertigkeiten der Stellen einer Zahl ist 
nämlich keinesfalls nur auf das Dezimalsystem be¬ 
schränkt. Auch bei allen anderen denkbaren Systemen gilt, 
daß man immer dann, wenn man beim Zählen an die Basis 
minus 1 herankommt (also 9 im Dezimalsystem), eine 
nächsthöhere Stelle schafft. 

Das Binärsystem 


Ein Computer ist - vereinfacht gesehen (für manche mag 
es wie ein Sakrileg klingen) - im Grunde nur ein Haufen von 
Schaltern. Von reichlich vielen allerdings und auch sehr 
kleinen. Jeder Schalter kennt dabei nur zwei Zustände: Ein 
und Aus. Setzen wir anstelle dieser Worte nun Ziffern ein, 
dann entspricht dem »Ein« die Ziffer 1, dem »Aus« die Ziffer 
0. Zwei Ziffern also: Der Computer befindet sich in der glei¬ 
chen Lage wie das - bislang noch unentdeckte - Volk der 
Zweifingerlinge. Weil diese - im allgemeinen - nur zwei Fin¬ 
ger besitzen, mit denen sie zählen können, basiert ihr Zah¬ 
lensystem auf der Zahl zwei. Das lateinische »bini,« heißt 
deutsch »je zwei« und man nennt solch ein System Binär- 
systfc,v. (manchmal auch Dualsystem vom lateinischen 
»duo«, was »zwei« heißt). 

Wie zählen die Zweifingerlinge? 


Wie bei uns fangen sie mit der 1 an. Aber das Problem, das 
uns die auf 9 folgende Zahl bereitet, stellt sich hier schon 
bei der auf 1 folgenden Zahl. Es gibt ja keine Ziffer 2 in die¬ 
sem System. Auch die Zweifingerlinge haben vor undenk¬ 
baren Zeiten den Trick mit den verschiedenen Stellen her¬ 
ausgefunden. Wenn sie also die auf 1 folgende Zahl schrei¬ 
ben möchten, dann schaffen sie eine neue Stelle, die dann 
unserer Zehnerstelle entspricht und so fort. Die Zahlen von 
1 bis 10 sehen bei den Zweifingerlingen (auch unser Com¬ 
puter ist einer) dann so aus: 


Binär 

Dezimal 

Binär 

Dezimal 

1 

1 

110 

6 

10 

2 

111 

7 

11 

3 

1000 

8 

100 

4 

1001 

9 

101 

5 

1010 

10 


Zur Übung können Sie ja mal die Binärzahlen bis 255 auf¬ 
schreiben. Wenn bei Ihnen dann 255 die Binärzahl 11111111 
ergibt, dann haben Sie richtig gezählt. 

Unsere Überlegungen von vorhin beim Aufbau des Dezi¬ 
malsystems helfen uns nun bei der Umrechnung der Binär¬ 
zahlen in Dezimalzahlen. Die Basis ist hier 2 und eine 
Binärzahl 1001 kann daher zerlegt werden in: 

1001 = 1 x 2 3 + 0 x 2 2 + 0 x 2 1 + 1 x2° 

= 1x8 + 0x4 + 0x2 + 1x1 
= 9 

Daß das stimmt, können Sie in der Tabelle der Zahlen von 
1 bis 10 nachprüfen. Auf diese Weise wird die Umrechnung 
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von Binärzahlen in Dezimalzahlen recht einfach. Als 
Gedächtnisstütze bedient man sich eines Schemas wie in 
Bild 16: 

In der oberen Reihe finden Sie darin die Bitnummer (das 
Ganze habe ich auf ein Byte bezogen), darunter die Zweier¬ 
potenzen. In den beiden Reihen darunter sind noch zwei 
Berechnungsbeispiele gezeigt. Die Zweierpotenzen aller 
Spalten, in denen eine 1 steht, werden addiert und ergeben 
so den Dezimalwert. 

Ebensohäufig stellt sich das Problem anders herum: Aus 
einer Dezimalzahl soll die Binärzahl berechnet werden. 
Eine einfache Methode, dies zu tun, ist die fortlaufende 
Division der Dezimalzahl durch 2. Für Mathe-Spezialisten: 
Die mod(2)-Funktion (die leider nicht in unseren Basic- 
Versionen 2.0, 3.5 und 7.0 enthalten ist) wird mehrmals 
nacheinander auf die Dezimalzahl und die Divisionsergeb¬ 
nisse angewendet. In Bild 17 erkennen Sie das Verfahren: 

Jedesmal wird also das Ergebnis der vorangegangenen 
Division wieder durch 2 geteilt, bis sich 0 ergibt. Die Reste 
notiert man sich: Sie ergeben in der Reihenfolge »letzte 
Stelle.. .erste Stelle« die Binärzahl. 

Hat man sich erst einmal an die Zahlen der Zweifinger¬ 
linge gewöhnt, dann kann man damit ebensogut rechnen 
wie mit den Dezimalzahlen. Das soll aber an dieser Stelle 
nicht unser Thema sein. Auch negative Binärzahlen gibt es 
und solche, die den Dezimalbrüchen (also Zahlen mit 
Nachkommastellen) entsprechen. All dies können Sie im 
Kurs »Assembler ist keine Alchimie« in den Kapiteln 11,13, 
29 und 38 nachlesen (der Kurs erschien im 64’er Sonder¬ 
heft 8/85 komplett, einige Korrekturen dazu wurden im 
64’er-Magazin, Ausgabe 4/86, Seite 73, im Fehlerteufel¬ 
chen veröffentlicht), wo auch auf die Art eingegangen wird, 
wie unser Computer solche Zahlen verarbeitet. Wir verlas¬ 
sen jetzt das Volk der Zweifingerlinge und suchen ein noch 
seltsameres auf. 

Hexadezimalsystem 


Hexa- 

dezimal 

STELLE 

3 

2 

1 

0 

0 

0 

0 

0 

0 

1 

4096 

256 

16 

1 

2 

8192 

512 

32 

2 

3 

12288 

768 

48 

3 

4 

16384 

1024 

64 

4 

5 

20480 

1280 

80 

5 

6 

24576 

1536 

96 

6 

7 

28672 

1792 

112 

7 

8 

32768 

2048 

128 

8 

9 

36864 

2304 

144 

9 

A 

40960 

2560 

160 

10 

B 

45056 

2816 

176 

11 

C 

49152 

3072 

192 

12 

D 

53248 

3328 

208 

13 

E 

57344 

3584 

224 

14 

F 

61440 

3840 

240 

15 


Tabelle 2. Umrechnungstabelle von Hexadezimalzahlen in 
Dezimalzahlen 


Stelle: 
z.B. $ 

-3 

-128 

-1024 

--— 40960 

= 42115 


Bild 18. Umrechnung einer Hexadezimalzahl in die Dezimal¬ 
zahl mittels der Tabelle 2. 
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Im Mai 1891 entdeckte White das unterirdische Reich Atva- 
bar. Sie werden sich erinnern (oder nicht? Dann lesen Sie 
es nach im Buch »The Gooddess of Atvabar, being the 
History of the Discovery of the Interior World and Conquest 
of Atvabar«, erschienen in New York 1892), daß William R. 
Bradshaw 1892 über Land und Leute berichtete. Übereines 
allerdings hat er nichts verlauten lassen, weil es ihn offen¬ 
bar zu sehr verwirrte: Die Atvabarer sind Sechzehnfinger¬ 
linge! Genauso, wie es den Zweifingerlingen schwerfällt, in 
unserem Dezimalsystem zu rechnen (es fehlen ja sogar die 
Worte für alle Zahlen, die größer als die Basis 2 sind) hatte 
White - ein einfacher Seemann - Probleme, die Zahlen der 
Atvabarer gedanklich zu erfassen, weshalb er das ganze 
gegenüber Bradshaw einfach verschwieg. 

Wir haben diese Schwierigkeiten nicht (oder?) und ver¬ 
wenden anstelle der uns unbekannten Ziffernsymbole ein¬ 
fach die ersten Buchstaben des Alphabets. Wenn solch ein 
Sechzehnfingerling die Finger an seinen beiden Händen 
zählt, dann sieht das so aus: 
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Auch wenn die Atvabarer ansonsten etwas merkwürdig 
sind (so fahren sie Fahrräder ohne Räder!), so verwenden 
sie doch den gleichen Trick bei Zahlen, die größer sind als 
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Bild 19. Die Umrechnung einer Dezimalzahl In Ihre Entspre¬ 
chung Im Hexadezimalsystem mit Hilfe der Tabelle 1 


die Basis minus 1: Auch sie schaffen höherwertige Stellen, 
wie Sie aus der letzten Zahl der obigen Reihe entnehmen 
können. Versuchen Sie doch einmal, weiter zu zählen bis 
255. Wenn Sie dann auf die Zahl FF kommen, war alles 
richtig. 

Irgendwann einmal in der Anfangszeit der Computerei 
muß einer der Elektronik-Pioniere etwas von dieser Eigen¬ 
tümlichkeit der Atvabarer erfahren haben. Anders ist es 
kaum zu erklären, daß das Zahlensystem dieses vergesse¬ 
nen Volkes heute bei Assembler-Programmierern so eine 
gewichtige Rolle spielt. Eine andere Erklärung wäre es, daß 
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man im Adreßraum von 8- und 16-Bit-Computern beson¬ 
ders leicht damit rechnen kann. Vielleicht ist das auch nur 
eine Glaubensfrage. 

Wie dem auch sei: Ebenso wie bei anderen Zahlen¬ 
systemen ist auch dieses hier - auf der Basis 16 (oder F für 
die Sechzehnfingerlinge) - nach den Regeln aufgebaut, 
die wir vorhin beim Dezimalsystem erklärt haben. Eine 
Hexadezimalzahl $831 kann man in die Dezimalzahl 
umrechnen: 

$831 = 8 x 16 2 + 3 x 16' + 1 x 16° 

= 8 x 256 + 3 X 16 + 1 x1 
= 2097 

Zwar ist es auf diese Weise möglich, jede Hexzahl umzu¬ 
rechnen; es ist aber auch ziemlich mühsam. Deshalb 
bedient man sich dazu einer Tabelle, wie sie als Tabelle 2 
abgedruckt ist. 

Die erste Zeile dieser Tabelle enthält die Stelle der Ziffer, 
die erste Spalte die Hex-Ziffer. In den Kolonnen sind jeweils 
die Dezimalzahlen angegeben. Um beispielsweise die 
Hex-Zahl $A483 in eine Dezimalzahl umzurechnen, geht 
man vor wie folgt (siehe auch Bild 18): 

In der nullten Stelle unserer Zahl steht eine 3. Wir gehen 
also in die Tabelle und suchen in der Spalte 0/Zeile 4 (das 
ist die Zeile, vor der links die 3 steht) den Dezimalwert her¬ 
aus. Das ist die Zahl 3. Dann gehen wir zur Stelle 1 (das ist 
die 8 unserer Hex-Zahl). In der Tabelle findet sich in der 
Spalte 1/ Zeile 9 (die Zeile, vor der 8 steht) der Dezimalwert 
128. Den addieren wir zur vorher gefundenen 3 dazu. Für 
die weiteren Stellen verfahren wir ebenso und erhalten 
dann - wie im Bild gezeigt - die Dezimalzahl 42115. Probie¬ 
ren Sie dieses Verfahren einmal aus: Nach einiger Zeit wird 
es Ihnen leichtfallen, auf diese Weise die Zahlenumrech¬ 
nungen durchzuführen. 

Der umgekehrte Weg der Berechnung, nämlich aus 
einer gegebenen Dezimalzahl die Hex-Zahl zu bestimmen 
funktioniert ebenfalls mit der Tabelle ganz gut. (Für die 
Freaks: Man kann das auch ähnlich wie oben bei den Binär 
zahlen machen, nämlich mittels einer mod(16)-Funktion) 
Nehmen wir mal die Dezimalzahl 40959 (siehe Bild 19). 

Wir suchen aus den Dezimalwerten der Tabelle den her 
aus, der gerade noch kleiner ist als unsere Zahl: 36864 
Den zu diesem Wert gehörigen Hex-Wert in der linken 
Randspalte notieren wir uns als die höchste Stelle der Hex 
Zahl, ziehen dann den Wert von unserer Dezimalzahl ab 
und erhalten eine neue dafür: 4095. Wieder suchen wir die 
nächstkleinere Dezimalzahl aus der Tabelle heraus - das 
ist nun 3840 - notieren uns den dazugehörigen Hex-Wert, 
subtrahieren und so fort, wie in Bild 19 gezeigt wurde. 

Auch mit den Hexadezimalzahlen kann man natürlich 
rechnen, nur ähnelt das Rechnen hier einem Alptraum. Es 
ist auch gar nicht nötig, denn im Gegensatz zu den Binär¬ 
zahlen kennt unser Computer die Hex-Zahlen gar nicht. 
Selbst wenn er sie per Monitor oder durch ein geschicktes 
Programm annimmt, wandelt er sie sogleich wieder in 
Binärzahlen um. Weshalb dann diese Quälerei mit den 
Zahlen der Sechzehnfingerlinge? Adressen in 8-Bit-Com- 
putern oder Worte in 16-Bit-Computern lassen sich mit 
genau 16 Bit ausdrücken, was einer Hexzahl von vier Stel¬ 
len entspricht. Ein Byte ist 8 Bits lang und genau eine zwei¬ 
stellige Hexzahl und ein Halbbyte (Insider nennen sowas 
ein Nibble) ist 4 Bit lang und läßt sich durch eine einstellige 
Hexzahl erfassen. 

Es kann sogar sein, daß Sie es als Assembler-Pro¬ 
grammiererweitgehend schaffen, solchen Zahlensystem- 
Umrechnungen per Hand fast ganz aus dem Weg zu 
gehen. Sowohl der Monitor des C 128 als auch beispiels¬ 
weise der SMON enthalten Funktionen, die diese Umrech¬ 
nungen für uns erledigen. Die meisten besseren Assem¬ 


bler - so auch der Hypra-Ass - dürfen sowohl mit Hex- als 
auch mit Dezimalzahlen angesprochen werden, meist wird 
man hier ohnehin mit symbolischen Adressen oder Werten 
arbeiten (also solchen, die zu Beginn mittels .EQ einen 
Namen erhalten haben). Aber wie es der Teufel so will, 
manchmal vergißt man es, sich die Startadresse eines Pro¬ 
grammes rechtzeitig in den Dezimalwert umrechnen zu 
lassen und möchte nun nicht eigens wieder den Monitor 
laden oder man findet eine interessante Stelle in einem 
ROM-Listing, die mal schnell von Basic her ausprobiert 
werden soll oder... 

Genug der Zahlenspiele. Nun beschäftigen wir uns mit 
Assembler-Programmen, die sich selbst verändern. 

Selbstmodifizierende Programme - also Programme, die 
sich im Verlauf der Abarbeitung selbst verändern - sind 
dem einen ein Graus, dem andern aber die Essenz der Raf¬ 
finesse. Welcher Ansicht man auch immer sein mag: Es 
sind mit dieser Technik recht interessante Dinge möglich, 
die auf andere Weise nicht oder nur schwer realisierbar 
wären. 

Programme, die sich selbst verändern 

Wie unterscheidet unser Computer Programme und 
Daten? Sehen wir uns zuerst einmal an, wie das in Basic 
aussieht: Beide (Daten und Programme) werden im RAM 
streng voneinander getrennt (beim C 128 liegen sie sogar 
in unterschiedlichen Speicherbänken) und völlig unter¬ 
schiedlich verwaltet. Deshalb ist die Selbstveränderung 
von Basic-Programmen auch mit allerlei Tricks verbunden, 
die entweder über POKEs den Programmspeicher beein¬ 
flussen oder im programmierten Direktmodus arbeiten. Ein 
simp!?° Basic-Beispiel zeigt Listing 28: 


10 REM *SELBSTMOD. PRB.1* 

20 PRINT CHR$1147):1=0 nn 

30 PRINT "A", b ,S ,u n92 L., 

40 1=1+1: if 1=62 then end Selbsmodifikation mit 

50 PQKE2112,PEEK(2ii2)+l Hilfe des POKE-Befehls 

60 goto 30 im Basic-Programm 


Dieses Programm für den C 64 (bei anderen Computern 
muß die Adresse in Zeile 50 entsprechend geändert wer¬ 
den) verändert während des Programmablaufes die Spei¬ 
cherstelle 2112. Dort befindet sich der Buchstabe A im 
PRINT-Befehl der Zeile 30. Durch den POKE-Befehl 
gelangt nach dem A ein B, dann ein C und so weiter in das 
PRINT-Argument. Das sehen Sie dann, wenn Sie sich nach 
dem Ablauf des Programms mit LIST noch einmal die 
PRINT-Anweisungansehen: Das A ist verschwunden, statt 
dessen ist dort ein Grafikzeichen (bei eingeschalteter Groß- 
und Kleinschreibung) oder der griechische Buchstabe Pi 
(bei Großschreibung) zu finden. Die andere Technik, also 
die, die im programmierten Direktmodus arbeitet, bedient 
sich des Tastaturpuffers. Falls Sie darüber mehr wissen 
möchten, dann lesen Sie bitte den Artikel »Lernen Sie Ihren 
Commodore 64 kennen«, Teil 4, in der Ausgabe 8/85 der 
Zeitschrift Happy-Computer, Seite 45ff. C 128-Benutzer 
sollten die Ausgabe 7/86 des 64’er-Magazins auf Seite 85 
aufschlagen: Dort sind allerlei Verwendungsmöglichkeiten 
dieser Technik für den großen Bruder des C 64 vorgeführt. 
Soweit also das Ganze in Basic, wie verhält es sich in 
Assembler? 

Hier existiert für den Computer nur eine lange Straße auf¬ 
einanderfolgender Speicherzellen. Der Zentralprozessor 
orientiert sich am Programmzähler, in dem sich die gerade 
aktuelle Anschrift befindet. In jeder Hausnummer findet die 
CPU irgendeinen Code, der sie veranlaßt, daraufzu reagie- 
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10 -.ba *3000 




20 .;•*#***#*##****#****** 


30 .5 * prg 

2 s selbstmod.# 


40 . : ******■**»**■***■»•»**#* 


50 





60 -code 

1 da 

#*01 


Sbuchstabe a 

70 - 

ldx 

#401 


;färbe weiss 

BO -bild 

sta 

*0400 


;bildschirmspeicher 

90 -färb 

stx 

*dBOO 


;farbrara 

100 - 

i nc 

farb +1 



110 - 

inc 

bild +1 



120 - 

inc 

code +1 

Listing 29. Zum Prinzip der 

130 - 

bne 

Code 

Selbstmodifikation 

140 

brk 


in Assemblerprogrammen 


stellen aller beeinflußten Speicherplätze nach dem Arbeits¬ 
teil - was eine weitere Selbstmodifikation wäre. Anstelle 
des BRK im Listing 29 stünde dann beispielsweise: 

STX CODE + 1 
DEX 

STX BILD + 1 
STX FÄRB + 1 
BRK 

Zur Übung können Sie ja mal die andere Möglichkeit - 
also die Initialisierung vor dem eigentlichen Programm - 
einbauen. 

Anwendung der Selbstmodifikntion 


ren. Alle derartigen Codes führen zu Veränderungen von 
Speicherinhalten - und sei es auch nur das Hochzählen 
des Programmzählers beim NOP-Befehl, das Chaos beim 
Programmabsturz oder auch das Einträgen von ASCII- 
Werten in den Bildschirmspeicher. Mal liegen diese Verän¬ 
derungen weit weg vom Programm-Code, mal näher dran: 
Nichts hindert uns, auch in dem Speicherteil Änderungen 
vorzunehmen, in dem das Programm abgelegt ist, was uns 
mit Assemblern wie dem Hypra-Ass leichtfällt. Listing 29 
zeigt, wie man Vergleichbares in Maschinensprache errei¬ 
chen kann: 

Das Programm ist für die älteren Versionen des C 64 
geschrieben - daher die Belegung des Bildschirmfarbspei- 
chers -, läuft aber auch auf den anderen Versionen, bei 
denen man die Zeilen, die sich auf die Farben beziehen, 
weglassen kann. Erinnern Sie sich bitte an die Art, wie der 
6502 und seine kompatiblen Nachkommen Adressen im 
Speicher ablegen: Wenn wir ein Assemblerprogramm 
schreiben: 

STX $D800 

dann findet sich im Speicher die Code-Folge: 


Speicherstelle 

Code 

Bedeutung 

Färb 

8E 

Code für absolutes STX 

Farb+1 

00 

LSB der Adresse $D800 

Färb+2 

D8 

MSB der Adresse $D800 


Deshalb erhöhen wir Färb + 1 und Bild + 1. 

Ebenso wie im Basic-Beispiel zeigt sich auch im Listing 2 
ein Nachteil dieser Art der Programmierung: Das Pro¬ 
gramm kann kein zweites Mal gestartet werden - eben weil 
wir es verändert haben. Jedenfalls leistet es beim Neustart 
nicht mehr genau dasselbe. Sehen Sie sich nach dem Pro¬ 
grammdurchlauf einmal das Disassemblerlisting an, dann 
finden Sie in den veränderten Zeilen: 

CODE LDA #$00 

BILD STA $04FF 

FÄRB STX $D8FF 

Beim Starten dieses veränderten Programms wird zuerst 
der Klammeraffe (das ist das Zeichen mit dem Code 00) in 
die Bildschirmspeicherstelle $04FF geschrieben. Erst 
danach läuft alles seinen gewohnten Gang, weil $FF+1 als 
$00 verstanden wird. Im Falle dieses Programms hätten wir 
die Schwierigkeit leicht umgehen können: Wenn wir näm¬ 
lich anstelle des A mit dem Klammeraffen angefangen hät¬ 
ten, sähe unser Programm nach dem Ablauf genauso aus 
wie vorher. 

Es ist also erforderlich, in solche selbstmodifizierenden 
Programme einen Reparaturmechanismus einzubauen, 
der die veränderten Speicherinhalte wieder auf einen defi¬ 
nierten Startwert bringt. Das geschieht durch eine Initiali¬ 
sierung vor dem eigentlichen Programm oder durch Rück- 


Vielleicht haben Sie nun schon eine Vorstellung davon, was 
für ein mächtiges Programmierinstrument man mit dieser 
Technik in der Hand hat. Wir haben ja schon im Listing 29 
eine Schleife geschrieben und sind dabei ohne die indi¬ 
rekte Adressierung ausgekommen. Der Schritt zur 16-Bit- 
Schleife ist nun nicht mehr weit: Man veranlaßt einfach, daß 
nicht nur die LSBs der Adressen (BILD und FÄRB) anders 
eingetragen werden, sondern auch die MSBs nach jedem 
kompletten 8-Bit-Schleifen-Durchlauf. Florian Müller hat 
sich die Mühe gemacht, in seinem Kurs »Effektives Pro¬ 
grammieren in Assembler«, Kapitel 10 (erschienen im 
Assembler-Sonderheft des 64’er-Magazins, Sonderheft 
8/85, Seite 97ff.) allerlei Varianten der Anwendung von 
Selbstmodifikation in Programmen vorzustellen. Deshalb 
soll hier nur ein kleiner Überblick gegeben werden. 

So ist es beispielsweise möglich, eine ganze Reihe von 
Befehlen zu simulieren, die es im Sprachschatz des 
6502-Assemblers nicht gibt: indirekte JSR-Sprünge (es gibt 
nur den indirekten JMP-Befehl), indirekte Schiebe-, 
Dekrementier- und Inkrementierbefehle. Befehle mit unmit¬ 
telbarer Adressierung (beispielsweise CMP #$20) können 
veränderliche Argumente erhalten, man kann auf diese 
Weise beispielsweise den Inhalt des Akku und des X- 
Registers addieren: 

STX ADD+1 ;X-Register hinter ADC-Befehl 
ablegen 

... ;eventuell weiteres Programm 

CLC ;Carry-Bit freimachen vor Addition 

ADD ADC #$FF ;$FF ist nur ein Füllwert (Dummy) 

Komplette Befehle kann man durch Einträgen des 
Befehls-Codes umändern, beispielsweise aus einem BCS 
(Code $B0) ein BCC (Code $90) machen oder Unterpro¬ 
grammaufrufe verhindern beziehungsweise erlauben 
(durch Einträgen des Codes für den BIT-Befehl anstelle des 
JSR-Codes). Ganze Sequenzen lassen sich durch das Pro¬ 
gramm selbst umschreiben. Sie sehen: Der Möglichkeiten 
gibt es viele. 

Ein kurzer Blick in die CHRGET-Routine 


Eine andere Anwendung selbstmodifizierender Pro¬ 
grammtechniken befindet sich schon fix und fertig in unse¬ 
rem Computer (hier ist speziell der C 64 gemeint): die soge¬ 
nannte CHRGET-Routine. Laden Sie doch einmal den 
SMON und blicken Sie mittels 
D 0073 008B 

in den unteren RAM-Bereich hinein. Was Sie dann auf dem 
Bildschirm sehen, ist dieses kleine Programm, das die Auf¬ 
gabe hat, den Inhalt des Basic-Speichers Byte für Byte zu 
lesen und mit bestimmten Markierungen an den Basic- 
Interpreter zu übergeben. Es handelt sich um eines der 
wichtigsten Werkzeuge des Interpreters. Wie es genau 
funktioniert, können Sie nachlesen im Kapitel 25 des 
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Assembler-Kurses (Sonderheft 8/85, Seite 26), hier würde 
uns die Besprechung zu weit vom Thema wegführen. Zum 
Thema aber passen die ersten vier Zeilen: 

0073 INC $7A 

0075 BNE $0079 

0077 INC $7B 

0079 LDA $0225 ;$0225 steht hier nur als 

Dummy 

0070 

Wie Sie sicherlich bemerken, steht die Adresse, aus der 
etwas in den Akku geladen werden soll (Zeile 0079), bei $7A 
(das LSB) und $7B (das MSB). Was also in der ersten Zeile 
passiert, ist das Hochzählen der Ladeadresse, die gleich 
benutzt werden soll. Die nächste Zeile prüft, ob dabei ein 
Überlauf ($FF+1) stattgefunden hat. In dem Fall ist das 
Zero-Flag gesetzt, der Sprung nach 0079 findet nicht statt. 
Zuerst wird noch das MSB der Ladeadresse erhöht. Wie 
auch immer, die Adresse in $7A/$7B ist nun um 1 größer 
geworden und der Inhalt der so angezeigten Speicherstelle 
wird in den Akku geladen. 

Bevor wir uns dem zweiten Beispiel zuwenden, noch 
eine Bemerkung zu einem Nachteil der selbstverändern¬ 
den Programme: Wie Sie sehen, steht die CHRGET- 
Routine im RAM - ganz im Gegensatz zur ganzen sonsti¬ 
gen im ROM stehenden Software des C 64. Das hört sich 
vielleicht trivial an, ist aber schon vorgekommen: Eben weil 
man aus dem ROM nur lesen, nicht aber hineinschreiben 
kann, darf auch kein Programm oder auch nur ein Teil 
davon dort vorhanden sein, das selbstverändernde Techni¬ 
ken benutzt. Wenn Sie EPROMs selbst brennen, sind Sie 
vielleicht schon einmal über diese Falle gestolpert. 

Programmieren einer Befehlserweiterung 


Dies ist ein umfangreiches Thema, bei dem wir eine 
Anwendung der selbstmodifizierenden Programmtechnik 
kennenlernen, aber auch ein Verfahren, wie man neue 
Basic-Befehle einbinden kann. Außerdem wird uns eine 
ganze Palette von Interpreter-Routinen geläufig. Wir wer¬ 
den erstmalig mit Tabellen arbeiten und auch die eben 
erwähnte CHRGET-Routine bewußt einsetzen. Weil viele 
Leser wissen wollen, wie man die verschiedenen mathe¬ 
matischen Interpreter-Routinen ansteuert, werden wir dem 
Basic des C 64 noch einige mathematische Funktionen hin¬ 
zufügen. Als Listing 30 finden Sie es weiter unten abge¬ 
druckt. Listing 31 ist das fertige Programm, das Sie mit dem 
MSE eingeben müssen. 

Vielen Benutzern ist das Basic 2.0 zu dürftig. Auch wenn 
man nach mathematischen Funktionen sucht, sind es rela¬ 
tiv wenige. So stört es beispielsweise, daß man vom 
gewohnten Gradmaß der Winkel bei Winkelfunktionen wie 
SIN, COS und TAN abweichen und erst noch auf Bogen¬ 
maß umrechnen muß. Außerdem sind es zu wenig Winkel¬ 
funktionen und die Umkehrfunktionen (arcus...) sind gar 
nur in einer einzigen Form vertreten: ATN. Wenn man mit 
Logarithmen arbeiten möchte, muß man sich immer auf die 
natürlichen (LOG ist gleich In) umstellen, statt mit den nor¬ 
malen dekadischen arbeiten zu können. Unser aus zehn 
Modulen bestehendes Programm erweitert nun das Basic 
um neun Befehle. 

Der erste davon heißt AUS. Damit kann man diese Erwei¬ 
terung abschalten, falls sie nicht benötigt wird. 

Es folgen zwei Funktionen zur Umrechnung von Grad¬ 
maß in Bogenmaß und umgekehrt. BOG ermittelt das 
Bogenmaß eines Winkels: 

Aufruf: BOG,Winkel 

GRD geht den umgekehrten Weg der Berechnung des 
Gradmaßes eines im Bogenmaß angegebenen Winkels: 



Aufruf: GRD,Winkel 

Sind Sie das Rechnen mit dem durch LOG erzeugten 
natürlichen Logarithmus leid, dann verwenden Sie DLGR 
für den normalen dekadischen Logarithmus: 

Aufruf: DLGR,Argument 

Bei den trigonometrischen Funktionen steht Ihnen nun 
neben SIN, COS und TAN auch der Kotangens COT zur Ver¬ 
fügung: 

Aufruf: CCfT,Winkel im Bogenmaß 

Die bislang nur durch recht komplizierte Formeln zu 
ermittelnden Umkehrfunktionen (die im Handbuch sogar 
teilweise falsch angegeben sind) des Sinus, Cosinus und 
Kotangens erreichen Sie durch die nächsten drei Funktio¬ 
nen ARCS, ARCC und ACOT: 

Aufruf: ARCS,Argument 
ARCC,Argument 
ACOT,Argument 

Ein kleines Bonbon noch am Schluß: Ein Polynom ist ein 
Ausdruck der Form: 
y = ao + a,x + a 2 x z + a 3 x 3 + ... a n x n 

Dabei ist n der Grad des Polynoms. Die einzelnen »a« 
nennt man Koeffizienten. Durch den neuen Befehl POLY 
kann solch ein Polynom schnell berechnet werden, indem 
man angibt, für welchen Wert »x« man die Berechnung aus¬ 
führt, welchen Grad das Polynom hat und wie die Koeffi¬ 
zienten heißen: 

Aufruf: POLY,x,n,a n ,a n . 2 .a,^ 

Solche Polynome spielen in vielen Bereichen der Mathe¬ 
matik und der Statistik eine wichtige Rolle. 

Noch zu einer Besonderheit all dieser Funktionen, die 
ihren Aufruf betrifft. Bei der Beschreibung des ersten 
Moduls werden Sie sehen, daß die hier gewählte Methode 
der Bef jhlserweiterung relativ einfach ist. Das bietet zwar 
den Vorzug (der im Rahmen dieses Kurses erst einmal Vor¬ 
rang genießt), daß man leicht verstehen kann, wie das 
Ganze funktioniert, hat aber in der Handhabung der neuen 
Befehle einige Nachteile. Ein Nachteil betrifft die Ausgabe 
der durch die neuen Funktionen ermittelten Ergebnisse. 
Während man beim Sinus beispielsweise gewohnt ist, 
A=SIN(x) oder B=SQR(SIN(x)) zu schreiben, die Funktion 
selbst also wie einen Variablenwert verwenden kann, geht 
das bei unseren Funktionen nicht. Das hätte einen tieferen 
Eingriff in die Interpreterschleife erfordert. Andererseits 
war es uns zu primitiv, lediglich das Ergebnis nach der 
Berechnung auf dem Bildschirm ausgeben zu lassen: Man 
sollte schon damit weiterrechnen können. Der Kompromiß 
sieht etwas merkwürdig aus, funktioniert aber (und später, 
wenn wir weitere Formen der Befehlserweiterung kennen¬ 
gelernt haben, können wir das Programm auch umbauen). 
Das Ergebnis steht immer in der Variablen, die als letzte vor 
dem Funktionsaufruf genannt worden ist. Um also in der 
Variablen A das Bogenmaß eines Winkels zu speichern, 
ruft man auf: 

A=A:BOG,Winkel 

oder um den dekadischen Logarithmus eines Ausdruckes 
in A abzulegen beispielsweise: 

A=0:DLGR,SQR(x) 

Wenn man zwei von unseren neuen Funktionen nachein¬ 
ander verwendet, beispielsweise hier den Kotangens eines 
Winkels, der zuvor ins Bogenmaß umgerechnet wurde, 
dann kann man schreiben: 

B=0:BOG,Winkel:A=A:COT,B 

Es ist aber auch ein abgekürzter Weg möglich, denn ein 
interner Zeiger weist weiterhin auf die bezeichnete 
Variable: 

A=A:BOG,Winkel:COT,A 

In beiden Fällen steht hinterher der Ergebniswert in der 
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10 -j•*•«•#•*#•**#»•**•*****•«•**## 

1190 - 

jmp intl 

(naechster Befehl 


20 -i» 


» 

1200 -| 



30 

PROGRAMM 3 / MODUL 1 • 

1210 -| 




40 * 

Erweiterung der 

• 





SO 

Interpreterschi eife • 

1230 -|* 


• 


60 -| # 


• 

1240 -(• 

Programm 3 Modul 2 * 


70 -}* Heimo Ponnath HH 1986 • 

1250 -(• Umrechnung in Bogonmass (BOG) * 


BO —| • 


■ 

1260 -(• 


• 









100 -| 



12B0 




110 - 

.ba #5000 


1290 -bog 

lda forpnt 

;VariablenzeiQor auf 

Stapel 

120 -J 



1300 " 

pha 

lda forpnt +1 
pha 


» 

140 -| 



1320 - 



150 - 

.eq forpnt-*49 jVar 1 ablenzeigor 

1330 - 

Jsr chkcom 

(Komma pruefen 


160 - 

.eq chrgot«#73 pchrget-Routine 

1340 - 

jsr frmnum 

(Numerischen Ausdruck holen 

170 - 

. oq chrgot-#79 |chrgot-Rout1 ne 

1350 - 

lda #<(bogfak) 

(Faktor Pi/100 


180 - 

.eq txtptr-#7a |chrget-Zeigor 

1360 - 

ldy M>(bogfak) 


190 -| 



1370 - 

Jsr fmult 

(Mul tipl i katlon 


200 - 

.eq igone«*030B|Voktor zum Rout»nonaufruf 

1380 - 

pla 

»x/y auf Variable 


210 



1390 - 

tay 


220 - 

.«q error*#a4371Fohl erme1 düng und READY 

1400 - 

pla 



230 - 

• oq n.watt.*«7.«t 1 nturpmttrrnchl tu fo 

1410 - 

tax 



240 - 

.oq gonelMa7n4|alter Inhalt von igono 

1420 - 

jsr movmf 

(FAC in Variable 


230 - 

• oq intund-«.7u7!EnilD 1 nt»rprot»r«chlolfo 

1430 - 

rts 



260 - 

• eq frmnum-#adBn(Numerischen Wert ei niesen 

1440 




270 - 

.oq chkcom»»aefd(Komma ueberleson 

1430 




200 - 

.eq faclnx-*blaa(FAC zu Integer in Y/A 





290 - 

• i-q gntbytc“*b79b|Byte in X-Reglotor elnleeen 

1470 


• 


300 - 

.eq fsub»*bB50 

IFAC-Mom-FAC 

14B0 -i# 

Programm 3 Modul 3 * 


310 - 

•oq eins-*b9bc 

{das ist 1 

1490 —|• Umrechnung in Gradmass (GRD) * 


320 - 

.eq log*'*b9ea 

iFAC-log(FAC) 

1500 -(• 


+ 


330 - 

.eq fmult-#ba20(FAC=FAC*Mem 





340 - 

.eq fdlv=*bb 0 f 

|FAC"Mwm/FAC 

1520 -| 




330 - 

•eq movfm-#bba2;Mem ln FAC 

1530 -grd 

lda forpnt 

1 Variablenzeiger auf 

Stapel 

360 - 

.eq movmf =#bbd4 1 FAC ln Speicher 

1540 - 

pha 

170 - 

.eq abm»*bc3B 

;FAC-abs(FAC) 

1550 - 

lda forpnt-» 1 



380 - 

.eq fcomp«*#bc5b| Vergleich FAC mit. Morn 

1560 - 

pha 



390 - 

-eq sqr»#bf71 

(FAC-sqr(FAC) 

1570 - 

Jsr chkcom 

(Komma pruefen 


400 - 

.eq polyx=*e039jPolynomauswertung 

1580 - 

Jsr frmnum 

(Numerischen Ausdruck holen 

410 ~ 

-eq cob k #o264 

{FAC=cos(FAC) 

1590 - 

lda #<(grdfak) 

(Faktor 180/Pi 


420 - 

.oq sin=«e 26 b 

iFAC««!n(FAC) 

1600 - 

ldy #>(grdfak> 



430 - 

.eq pihalb-#e2e0;das ist Pi/2 

1610 - 

Jsr fmult 

(Multiplikatlon 


440 - 

.eq atn=*e30e 

jFAC-atn(FAC) 

1620 - 

pla 

jx/y auf Variable 


450 -» 



1630 - 

tay 


460 - 

.eq polyvar=polytab-4 

1640 - 

pla 



470 -| 



1650 - 

tax 



490 -| 



1660 - 
1670 - 

Jsr movmf 
rts 

(FAC in Variable 


500 -lnit 

1 da #<(start) 

;lsb eigene Routine 

16B0 -( 




510 - 

sta igone 

(in vektor schreiben 

1690 -i 




520 - 

1 da #>(start) 

; msb 

1700 —:#•***»*«»**»**»**»»*********»***« 


530 - 

sta igone +1 


1710 


* 


340 - 

rts 


1720 -(* 

Programm 3 Modul 

4 * 


550 -j 



1730 Dekadischer Logarithmus(DLGR) * 


570 -i 



1740 - 5 * * 

1750 -;#»»*#•****#•**#»**■«#*»*#*»*«»*#* 


580 -aus 

lda #<(gonel) 

(vektor auf 

1770 Jlog 




590 - 

sta igone 

(Normalwert 

lda forpnt 

;Variablenzeiger auf 

Stapel 

600 - 

lda #>(gonel) 

jzurueckstelIon 

17B0 - 

pha 

610 - 

sta igone +1 


1790 - 

lda forpnt +1 



620 - 

rts 


1800 - 

pha 



630 



1810 - 

Jsr chkcom 

(Komma pruefen 


640 -f-Erweiterte Interpreterschleife- 

1B20 - 

jsr frmnum 

(Numerischen Ausdruck 

holen 

630 



1830 - 

Jsr log 

(Logarithmieren 


660 -Start 

jsr chrget 

(Zeichen holen 

1840 - 

lda W< (logfak) 

(Faktor 1/lnlO 


670 - 

cmp ##60 

j Buchstabe? 

1850 - 

ldy #> (logfak) 



680 - 

bcs ende 

1Basic-Code 

1860 - 

jsr fmult 

(Multiplikation 


690 - 

cmp ##41 

(Buchstabe A ? 

1870 ~ 

pla 

(X/y auf Variable 


700 ~ 

bcc ende 

1 Sonder z eichen 

1080 - 

tay 


710 - 

sta akku 

(Akku sichern 

1890 - 

pla 



720 - 

ldx ##00 


1900 - 

tan 



730 - 

stx bofnr 

(Befehlsnr. auf 0 

1910 - 

jsr movmf 

;FAC in Variable 


740 -lnt 1 

ldy ##00 


1920 - 

rts 



730 - 

inc bofnr 

1 Befehlsnr. + 1 

1930 




760 - 

lda beftab.x 

1 Zeichen aus Befehlstabelle 

1940 




770 - 

bno 1 nt2 

(kein Trennzeichen 

1930 -l***«IIMM»*#**«HMHM»***«****»*«»*#*#*# 


780 -j 



1960 -(* 



y 

790 - 

lda akku 

;Zurneck ins 

1970 -|* 

Programm 3 Modul 

3 • 


800 -ende 

jsr chrgot 

(normale Basic 

1980 -|« 

KotangonsfunktIon 

COT) • 


810 ~ 

820 

Jmp intend 

lapnngon 

1990 -|# 

• 


öju -j-Horesss sucnen- 

840 


2010 -j 

2020 -cot 

lda forpnt 

;Variahlenzeigor auf 

Stapel 

030 -int 2 

cmp (txtptr),y 

(Vergleich mit Basictoxt 

2030 - 

pha 

860 - 

bne rest 

(ungleich 

7040 - 

lda forpnt +1 



070 - 

Iny 

( BasictextIndex+1 

2030 - 

pha 



800 - 

Inx 

(Befehltab.-Index +1 

2060 - 

Jsr chkcom 

(Komma pruafon 


090 - 

lda bef tab,x 

1naechstos Zeichen 

7070 - 

Jsr frmnum 

(Numerischen Ausdruck 

holen 

900 - 

bne int2 

ipruofon 

2080 - 

ldx #<(xwspl) 

1 und beiseite legen 


910 - 

clc 


2090 ~ 

ldy #>(zwsp 1 ) 


920 - 

ty» 

(Bofehlslndox um 

2100 - 

jsr movmf 



930 ~ 

ade txtptr 

(Bolohlslnnnq» 

2110 - 

Jsr cos 

(Cosinus bilden 


940 - 

sta txtptr 

1 orhoehon 

2120 - 

ldx #<(zwsp 2 ) 

(und sichern 


930 - 

bcc 1 abl 

(Uobertrag? 

2130 - 

ldy #>(zwup2) 



960 - 

inc txtptr +1 

imsb orhoehon 

2140 - 

Jsr movmf 



970 “1 ab 1 

lda bofnr 

(Befehlsnr. 

2150 - 

lda #<(zwspl) 

(Wort zurueckholnn 


980 - 

ASI 

(verdoppeln 

2160 - 

ldy NXzwspl) 



990 - 

tax 

1 und als Index in 

2170 - 

Jsr movfm 



1000 - 

lda sprtab t x 

(BprungtabelIo 

2100 - 

Jsr sin 

(Sinus bilden 


1010 - 

sta sprung-» 1 

(lsb Sprung 

2190 - 

lda #<<xwsp 2 > 

(Division 


1020 - 

1 da sprtab 1 ,x 

(msb lesen 

2200 - 

ldy #>(xwsp2> 

{FAC°zwsp2/FAC 


1030 - 

sta sprung +2 

; msb 

2210 - 

jsr fdlv 


1040 -j 



2220 - 

pl a 

IM/y auf Variable 


1030 -j— Belbstmodt f i z 1erendor 

Teil — 

2270 - 

tay 


1060 -i 



2240 - 

pla 



1070 -Sprung 

jsr *ffff 

(Dummy 

2250 - 

tax 



1080 -i 



2260 - 

Jsr movmf 

1FAC in Variable 


1100 -i 



2270 - 
2280 -( 

rts 



1110 - 

jmp ende 


2290 




1120 -i 







1130 -j-restl 

Befehlstext ueberlesen — 

2310 -i* 


• 


1140 



2320 -(* 

Programm 3 Modul 

6 * 


1150 -rest 

inx 


2330 -I« Arcuscotangensfunktion 

(AC0T) * 


1160 - 

lda beftab,x 


2340 -«• 


• 


1170 - 

bno rest 

;bxs Trennzeichen 

2750 — s 


1180 - 

inx 


7360 -| 





02 » 
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2370 

-acot 

lda forpnt 

»Variablenzeiger auf 1 

Stapel 

2380 

- 

pha 



2390 

- 

1 da forpnt-* 1 



2400 

— 

pha 



2410 

- 

jsr chkcom 

»Komma pruefen 


2420 

— 

jsr frmnum 

1 Numeri sehen Ausdruck 

hol on 

2430 

- 

Jsr atn 

»Arcustangons bilden 


2440 

- 

lda #<(pihalb) 

»Zeiger auf Pi/2 


2450 

- 

Idy (tXplhalb) 



2460 

- 

jsr fsub 

»FAOpihalb-FAC 


2470 

- 

pla 

»x/y auf Variable 


2480 

- 

tay 



2490 

- 

pla 



2300 

- 

tax 



2510 

- 

jsr movmf 

»FAC ln Variable 


2320 

- 

rt« 



2330 

-1 




2540 

-1 




2550 





2560 

-1* 


• 


2570 

-1* 

Programm 3 Modul 

7 • 


2380 

-i* Arcus«!nunfunkt Ion < 

ARCB) * 


2390 

“> • 


• 


2600 





2610 

-» 




2620 

-o»i n 

lda forpnt 

»Varlablwnzeigor auf ! 

Stapel 

2630 

- 

pha 



2640 

- 

lda forpnt-* 1 



2650 

- 

pha 



2660 

- 

lda #*00 

»Flagg» auf Null 


2670 

- 

sta flag 

»setzen 


2680 

- 

Jsr chkcom 

»Komma pruefen 


2690 

- 

jsr frmnum 

»Numerischen Ausdruck 

holen 

2700 

-easln 

ldx #<(zwspl) 

»und sichern 


2710 

— 

ldy #>(zwspl) 



2720 

- 

Jsr movmf 



2730 

- 

Jsr abs 

»Absolutwert berechnen 

2740 

- 

lda #<(eins) 

»Vergleich mit 


2750 

- 

ldy N>(eins) 

»Fliesskommawnrt 


2760 

— 

jsr feamp 

»von 1 


2770 

- 

beq argok 

»gleich 1 


2780 

— 

rol 

»Bit 7 in Carry 


2790 

— 

bcs argok 

(kleiner 1 


2800 

- 

pla 

»Stapel leeren 


2810 

- 

p] a 



2820 

— 

ldx #* 0 e 

»Fehlernummer 


2830 

— 

Jmp error 

»Fehler und Ready 


2B40 

-argok 

1 da #<(zwspl) 

»Wort zurueck 


2850 

- 

ldy MXzwspl) 

»in FAC 


2860 

- 

jsr movfm 



2870 

- 

1 da #<(zwspl) 

»Bilden von 


2880 

- 

ldy #>(zwsp 1 > 

» H*X 


2890 

— 

jsr fmult 

»FAC=x♦2 


2900 

— 

lda #<(eins) 

»Bilden von 


2910 

- 

ldy NXeins) 

»1—FAC 


2920 

- 

jsr fsub 

» FAC=1-x * 2 


2930 

- 

Jsr sqr 

» FAC=SQR(1-x 12) 


2940 

- 

lda #<(zwsp 1 ) 

»Bilden von 


2950 

— 

ldy NXzwspl) 

;x/FAC 


2960 

- 

Jsr fdiv 

»FAC“X/SOR(1-x t 2) 


2970 

- 

Jsr atn 

;FAC=ASIN! 


2980 

— 

lda flag 

»Flagge pruefen 


2990 

— 

bno retour 

»zurueck zu ACÜB 


3000 

- 

pla 

»in Variable 


3010 

- 

tay 

;schreiben 


3020 

- 

pla 



3030 

— 

tax 



3040 

- 

Jsr movmf 

»FAC in Variable 


3050 

-retour 

rts 



3060 

“1 




3070 

-» 




3080 





3090 

-»* 


* 


3100 

-t* 

Programm 3 Modul 8 * 


3110 

-i» Arcuscos! nusf uriktlon 

(ARCC) • 


3120 

-j* 


* 


3130 



3140 

—| 




3150 

-acos 

lda forpnt 

jVariablenzeiger auf 

Stapel 

3160 

- 

pha 



3170 

- 

lda forpnt +1 



3180 

- 

pha 



3190 

- 

lda #*ff 

»Flagge auf 255 


3200 

- 

wto flag 

1 setzen 


3210 

- 

Jsr chkcom 

»Komma pruefen 


3220 

- 

Jsr frmnum 

»Numerischen Ausdruck 

holen 

3230 

— 

jsr iiasin 

»Berechner» dos asin 


3240 

- 

lda #<(pihalb) 

»Bildon der 


3250 

- 

ldy VXplhal b) 

» Dlf forenz 


3260 

- 

Jsr fsub 

»FAC"plhalb-aoin-acoo 

1270 

- 

lda #*0O 

»Flagge zurueckstol1on 

3280 

- 

sta flag 



3290 

- 

pla 

» i n Varl abl o. 


3300 

- 

tay 

1 schreiben 


3310 

— 

pla 



3320 

- 

tax 



3330 

- 

Jsr movmf 

1FAC in Variable 


3340 

- 

rts 



3350 

-» 




3360 

“1 




3370 





3380 

-i* 


• 


3390 

“1* 

Programm 3 Modul 9 * 


3400 

—I• Polynomborechnung 

(POLY) * 


3410 

“1 * 


• 


3420 





3430 

-| 




3440 

-poly 

lda forpnt 

1 Variablenzeiger auf 

Stapel 

3450 


pha 



3460 

- 

lda forpnt-* 1 



3470 


pha 



3480 

- 

Jsr chkcom 

»Komma pruefen 


3490 

— 

Jsr frmnum 

»Numerischen Ausdruck 

holen 

3500 

— 

ldx #< (zwr.pl) 

»und sichern 


3510 

— 

ldy #>(zwspl) 



3520 

- 

jsr movmf 



3530 

— 

jsr chkcom 

;Polynomgrad 


3540 

- 

Jsr frmnum 

»naechsteZahlhol on 



4 »90 


3350 - 

jsr facinx 

»in Integer wand« 

3560 - 

sty polytab 

»und oblegen 

3570 - 

iny 

»Koeffizientenzar 

3500 -mO 

sty flag 

»sichern 

3590 - 

clc 

»Addieren 

3600 - 

lda ml +1 

»von 5 zur 

3610 - 

ade #*05 

»Abiegeadresse 

3620 - 

sta ml +1 


3630 ~ 

lda m 2 +l 


3640 - 

ade #*00 


3650 - 

ata m 2*1 


3660 - 

jsr chkcom 

»naechster 

3670 - 

Jsr frmnum 

»Koeffizient 

7680 -ml 

ldx #<(polyvar) 

»lsb Zieladresso 

3690 -m2 

ldy #Xpolyvar) 

1 msb 

3700 - 

jsr movmf 

»ablegen 

3710 - 

ldy flag 

»Zaehler laden 

3720 - 

d«y 


3730 - 

bne mO 

1 noch Koef fizien 1 

3740 - 

lda #<(polyvar)»restaurieren 

3730 - 

sta ml*l 

»der Zioladrosse 

3760 - 

lda •>(polyvar> 


3770 - 

ata m 2 *l 


3700 - 

lda •<(zwspl) 

»Argument 

3790 - 

ldy •>(zwspl) 

1 zurueck 

3800 - 

Jsr movfm 

»in FAC 

3810 - 

lda #<(polytab)»Aufruf 

3820 - 

ldy #Xpolytab> »der Routine 

3830 ~ 

Jsr polyx 

»FAC-POLY(m) 

3840 - 

pla 

»in Variable 

3850 - 

tay 

»schreiben 

3860 - 

pla 


3870 - 

tax 


3880 - 

Jsr movmf 

»FAC in Variable 

3890 - 

rts 



3900 
3910 -1 
3920 -l** 
3930 
3940 

3950 -|» 


Programm 3 Tabellenmodul 
Tabellen und Hilfszellen 


3960 

3970 

39B0 

3990 

4000 

4010 

4020 

4030 

4040 

4050 


4060 
4070 
4080 
4090 
4100 
4110 
1*70 


-I* 

-I 

-I- 

"I 

-bogfak 
-grdfak 
-1 ogfak 
-zwspl 

-zwap 2 


Konstanten 


.by *7b,*0e,*fa,*35,*0f»Pi/180 
.by *86,*65,*2e,*e0,*d2»180/Pi 
.by *7f,*5e,*5b,*d8 t *aa»1/Inl0 
.by * 00 ,* 00 ,* 00 ,* 00 f 400sZwischenspei eher 1 
.by * 00 ,* 00 ,* 00 ,* 00 ,* 00 jund 2 
Hilf bz eilen-———— 


befnr .by *00 
akku .by *00 
flag .by *00 
i 

j- Sprungtabel1o 


;Befehlsnummer 
I Zw'Speieher f. Akku 
;Marke fuer AC0S, Zaehler fuer P0LY 


4140 

4150 

4160 

4170 

4180 

4190 

4200 

4210 

4220 

4230 

4240 

4250 

4260 

4270 

4280 

4290 

4300 

4310 

4320 

4330 

4340 

4350 

4360 

4370 

4380 

4390 

4400 

4410 

4420 

4430 

4440 

4450 

4460 

4470 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4350 

4560 

4370 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4630 

4660 

4670 

4680 


-sprtab 

-sprtabl 


.by *e7 
.by *a7 
.wo aus 

- .wo bog 
.wo grd 

— .wo dlog 

.wo cot 

— .wo acot 

- .wo asln 

— .wo acos 

- .wo poly 

.by 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

-i- Befehlstabolle - 


tx 

"aus" 

by 

0 

tx 

"bog " 

by 

0 

tx 

"grd" 

by 

0 

tx 

"dlgr" 

by 

0 

tx 

"cot" 

by 

0 

tx 

"acot" 

by 

0 

tx 

“arcs" 

by 

0 

tx 

"arcc" 

by 

0 

tx 

"poly" 

by 

0,0 


-»Hiernach noch Platz fuer weite 
-jB Befehl«texte lassen. 


.by 0 , 0 , 0 , 0 , 0,0 

.by 0,0,0,0,0,0 
■by 0 , 0 , 0 , 0 , 0,0 
■by 0 , 0 , 0 , 0 , 0,0 
•by 0 , 0 , 0 , 0 , 0,0 
.by 0 , 0 , 0 , 0 , 0,0 


, 0 , 0 , 0,0 
, 0 , 0 , 0,0 
, 0 , 0 , 0,0 
, 0 , 0 , 0,0 
, 0 , 0 , 0,0 
,0,0,0,0 


-I 


-1 -Tabelle fuer Polynome- 


-1 

-polytab 


•by 0 , 0 , 0 , 0 , 0,0 
.by 0 , 0 , 0 , 0 , 0,0 
■by 0 , 0 , 0 , 0 , 0,0 
■by 0 , 0 , 0 , 0 , 0,0 
.by 0 , 0 , 0 , 0 , 0,0 
.by 0 , 0 , 0 , 0 , 0,0 
.by 0 , 0 , 0 , 0 , 0,0 
.by 0 , 0 , 0 , 0 , 0,0 


1 , 0 , 0 , 0,0 
1 , 0 , 0 , 0,0 
1 , 0 , 0 , 0,0 
, 0 , 0 , 0,0 
, 0 , 0 , 0,0 
, 0 , 0 ,o.o 
I.o,0,0,0 


Listing 30. Eine Basic-Befehlserweiterung in 10 Modu¬ 
len, die einige mathematische Befehle ergänzt 
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C64, C128 


Variablen A, die nun ganz normal weiterverwendet werden 
kann. 

Wie startet man diese Erweiterung? Das kommt ganz 
darauf an, wohin Sie sie im Speicher legen. Im Modul 1 
wurde in Zeile 110 willkürlich der Start nach $5000 gelegt, 
was den Start durch SYS 20480 ermöglicht. Falls Sie die¬ 
sem Vorschlag folgen, oder die Erweiterung statt nach 
$C000 (dann erfolgt der Start durch SYS 49152) in den 
Basic-Speicherraum legen, dann achten Sie bitte darauf, 
den betreffenden Speicherbereich vordem Überschreiben 
durch Basic-Text, Variable oder Strings zu schützen. 

Modul 1 unseres Programmes 


Sehen wir uns zunächst die Label an, die im gesamten Pro¬ 
gramm benutzt werden. Die ersten fünf Adressen sind Zei¬ 
ger in der Form LSB/MSB, von denen hier immer nur die 
niedrigere Adresse genannt wird, weil man im Programm 
mit LABEL und LABEL+1 arbeiten kann. Genaue 
Beschreibungen dieser Vektoren finden Sie im Kurs 
»Memory Map« von Dr. Hauck (komplett veröffentlicht im 
Sonderheft 7/86 des 64'er-Magazins). Deshalb soll hier nur 
eine kurze Erläuterung dieser Vektoren folgen. 

Die Betriebssystemroutine ORPNT ist für uns nicht inter¬ 
essant, weil auch immer mit einem Zeiger auf die zuletzt 
angesprochene Variable gearbeitet wird. Erinnern Sie sich 
an unsere etwas ungewöhnliche Ausgabeform? Dazu brau¬ 
chen wir diesen Zeiger. 

CHRGET, CHRGOT und TXTPTR gehören alle zur 
CHRGET-Routine und dienen dazu, das jeweils nächste 
Byte aus dem Basic-Programmtext zu holen und zu identifi¬ 
zieren. Hauck beschreibt diese Funktion recht gut. 

Auch IGONE ist von Hauck erklärt worden. Das ist ein 
Zeiger, der normalerweise nach $A7E4 zeigt (von uns in 
Zeile 240 als GONEI bezeichnet) und für die Auswertung 
des Basic-Textes bedeutsam ist. Wir verbiegen diesen Vek¬ 
tor auf unser eigenes Programm, zu dem wir noch kommen 
werden. 

Die folgenden Adressen sind Interpreter-Routinen, die 
wir uns nutzbar machen, meist solche mathematischer Art. 
Dazu noch einige Anmerkungen: Wir werden in einer spä¬ 
teren Folge noch genau auf die sogenannten Fließkomma¬ 


zahlen, ihre verschiedenen Speicherformate und die bei¬ 
den Fließkomma-Akkumulatoren FAC und ARG eingehen. 
Die übliche Art der Zahlenverarbeitung im C 64 (und auch 
im C128) ist die Verarbeitung im Fließkommaformat. Dabei 
spielt der sogenannte Fließkomma-Akkumulator 1 , der all¬ 
gemein FAC genannt wird und der in den Speicherstellen 
$61 bis $66 steht, eine ähnlich zentrale Rolle wie der Akku¬ 
mulator bei den einfachen Assembler-Programmen. Die 
meisten mathematischen Routinen erwarten das Argu¬ 
ment im FAC und geben das Ergebnis im FAC aus. Manch¬ 
mal ist die Verwendung eines Hilfsakkumulators sinnvoll, 
der sogenannte ARG ($69 und $6E). Es gibt im Prinzip zwei 
Formate für Fließkommazahlen in unserem Computer: Als 
FLPT-Format bezeichne ich die Speicherung der Daten im 
FAC und ARG in 6 Byte, als MFLPT-Format die im normalen 
Speicherraum, die nur 5 Byte beansprucht. 

Damit ergibt sich die Notwendigkeit folgender Routinen: 

1) Routinen, die Werte als Zahlen, Variable oder mathema¬ 
tische Ausdrücke aus dem Basic-Text lesen, ins FLPT- 
Format bringen und im FAC ablegen. 

2) Routinen, die Zahlen aus dem FAC in den normalen 
Speicher transportieren und dabei die Übersetzung ins 
MFLPT-Format leisten und Routinen, die den umgekehrten 
Weg gehen. 

3) Routinen, die die nötigen mathematischen Operationen 
an der Zahl ausführen, die im FAC steht und das Ergebnis 
im FAC ablegen. 

4) Routinen, die dasselbe wie in 3) ausgedrückt leisten, 
dazu aber noch weitere Zahlen verwenden, die im norma¬ 
len Speicherraum im MFLPT-Format vorhanden sind. 
Wenden wir uns nun den in Listing 30 definierten Labels zu, 
die Interpreter-Einsprungadressen definieren. (All diese 
Interpreter-Routinen existieren einsatzbereit in unserem 
Computc r . Eine Übersicht finden Sie beispielsweise im As¬ 
sembler-Sonderheft 8/85 ab Seite 178). Sehen wir sie uns 
der Reihe nach an: 

ERROR 

Ausgabe von Fehlermeldungen und READY-Status 

- $A437 dezimal 42039 

- Fehlernummer in X-Register 

Alle weiteren Angaben, die Sie bei den meisten anderen 
Routinen finden (benutzte Speicherstellen und Register, 


Name 

1 

modul 

1- 

10 



5000 ! 

52fd 

3000 

s 

a9 

16 

0d 

08 

03 

a9 

50 

Bd 

f 3 

5000 

: 

09 

03 

60 

a9 

o4 

8d 

08 

03 

cl 

5010 

s 

a9 

a7 

Sd 

09 

03 

60 

20 

73 

ac 

5010 

c 

00 

c9 

60 

bO 

19 

c9 

41 

90 

31 

5020 

I 

15 

0d 

20 

52 

a 2 

00 

0c? 

lf 

fl 

5020 

s 

52 

aO 

00 

ee 

lf 

52 

bd 

46 

bO 

5030 

8 

52 

dO 

09 

ad 

20 

52 

20 

79 

ea 

5030 

8 

00 

4c 

!>7 

a7 

dl 

7a 

dO 

28 

d2 

5040 

8 

C0 

eB 

bd 

46 

52 

dO 

f 5 

10 

60 

5040 

: 

90 

65 

7a 

05 

7a 

90 

02 

e6 

e4 

5050 

i 

7b 

ad 

1 f 

52 

Oa 

aa 

bd 

22 

e5 

5050 

s 

52 

ad 

63 

50 

bd 

23 

52 

Bd 

ad 

5060 

i 

64 

50 

20 

ff 

ff 

4c 

36 

50 

dO 

5060 

i 

eS 

bd 

46 

52 

dO 

fa 

eB 

4c 

2c 

5070 

8 

29 

50 

a5 

49 

48 

a5 

4a 

48 

bf 

5070 

8 

20 

f d 

ae 

20 

0a 

ad 

a9 

06 

Of 

5000 

I 

aO 

52 

20 

20 

ba 

60 

30 

68 

b9 

5000 

1 

aa 

20 

d4 

bb 

60 

a5 

49 

48 

dB 

5090 

: 

a5 

4a 

40 

20 

fd 

ae 

20 

Ba 

5b 

5090 

8 

ad 

a9 

Ob 

aO 

52 

20 

28 

ba 

2d 

50a0 

r 

6,3 

a0 

68 

aa 

20 

d4 

bb 

60 

24 

5Oa0 

8 

a5 

49 

40 

a5 

4a 

40 

20 

fd 

lc 

50b0 

3 

ae 

20 

0a 

ad 

20 

ea 

b9 

a9 

5a 

5Ob0 

s 

10 

aO 

52 

20 

20 

ba 

68 

aB 

fc 

50c0 

3 

6B 

aa 

20 

d4 

bb 

60 

a5 

49 

OB 

5Oc0 

I 

40 

a5 

4a 

48 

20 

fd 

ae 

20 

6b 

50d0 

3 

8a 

ad 

a2 

15 

aO 

52 

20 

d4 

43 

5Od0 

r 

bb 

20 

64 

e2 

a2 

la 

aO 

52 

3b 

50e0 

s 

20 

d4 

bb 

a9 

15 

aO 

52 

20 

6e 

50eB 

3 

a 2 

bb 

20 

6b 

e 2 

a9 

la 

aO 

02 

50f 0 

3 

52 

20 

Of 

bb 

68 

a8 

6B 

aa 

50 

50f 0 

3 

20 

d4 

bb 

60 

a5 

49 

4B 

a5 

Be 


5100 

3 

4a 

40 

20 

fd 

ae 

20 

Ba 

ad 

aB 

5108 

S 

20 

Oe 

e3 

a9 

eO 

aO 

e 2 

20 

3c 

5110 

3 

50 

bB 

60 

aB 

6B 

aa 

20 

d4 

fl 

5110 

3 

bb 

60 

aS 

49 

4B 

a5 

4a 

40 

01 

5120 

: 

a9 

00 

Bd 

21 

52 

20 

fd 

ae 

cc 

5128 

: 

20 

0 a 

ad 

a2 

15 

aO 

52 

20 

2d 

5130 

3 

d4 

bb 

20 

58 

bc 

a9 

bc 

aO 

42 

5138 

8 

b9 

20 

5b 

bc 

fO 

Oa 

2 a 

bO 

d9 

5140 

3 

07 

60 

6B 

a2 

Oe 

4c 

37 

a4 

53 

5140 

3 

a9 

15 

aO 

52 

20 

a 2 

bb 

a9 

40 

5150 

8 

15 

aO 

52 

20 

20 

ba 

a9 

bc 

c6 

5158 

3 

aO 

b.9 

20 

50 

b0 

20 

71 

bf 

b9 

5160 

8 

a9 

15 

aO 

52 

20 

Of 

bb 

20 

bO 

5160 

8 

Oe 

e3 

ad 

21 

52 

dO 

07 

68 

90 

5170 

8 

aB 

68 

aa 

20 

d4 

bb 

60 

a5 

f 3 

5170 

8 

49 

40 
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Listing 31. Die assemblierte 
MSE-Version von Listing 30 
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Anzahl der Speicherplätze im Stapelregister) sind hier 
ohne Bedeutung, weil ohnehin das Programm abgebro¬ 
chen und der READY-Status aktiv wird. Die Fehlernum¬ 
mern und ihre Zuordnungen zeigt Ihnen die folgende 
Übersicht: 


Fehler 

Meldung 

Fehler 

Meldung 

1 

TOO MANY FILES 

15 

OVERFLOW 

2 

FILE OPEN 

16 

OUT OF MEMORY 

3 

FILE NOT OPEN 

17 

UNDEF'D STATEMENT 

4 

FILE NOT FOUND 

18 

BAD SUBSCRIPT 

5 

DEVICE NOT PRESENT 

19 

REDIM'D ARRÄY 

6 

NOT INPUT FILE 

20 

DIVISION BY ZERO 

7 

NOT OUTPUT FILE 

21 

ILLEGAL DIRECT 

8 

MISSING FILENAME 

22 

TYPE MISMATCH 

9 

ILLEGAL DEVICE NUMBER 

23 

STRING TOO LONG 

10 

NEXT WITHOUT FOR 

24 

FILE DATA 

11 

SYNTAX 

25 

FORMULATOO COMPLEX 

12 

RETURN WITHOUT GOSUB 

26 

CAN'T CONTINUE 

13 

OUT OF DATA 

27 

UNDEF’D FUNCTION 

14 

ILLEGAL QUANTITY 




Es gibt noch zwei weitere Meldungen: »28 VERIFY« und 
»29 LOAD«, die auf diese Weise aufgerufen werden 
können. 

Kernel-Routinen 


Die drei nächsten Adressen NEWSTT ($A7AE, 42926), 
GONEI ($A7E4,42980) und INTEND($A7E7,42983) sollen 
uns in diesem Zusammenhang noch nicht interessieren. Es 
handelt sich um verschiedene Stellen der Interpreter¬ 
schleife, in die nach Bearbeitung einer eigenen Routine 
gesprungen wird oder die den normalen Inhalt eines Vek¬ 
tors bilden. Wir werden auf diese Interpreterschleife in 
einer späteren Folge noch ausführlich zurückkommen. 

FRMNUM ist eine der wichtigsten Interpreter-Routinen, 
die zum Einlesen eines numerischen Wertes in den FAC 
dient: 

FRMNUM 

Holt beliebigen numerischen Ausdruck aus dem Basic- 
Text in den FAC und überprüft den Ausdruck. 

- $AD8A dezimal 44426 

- viele verschiedene Speicherstellen, darunter auch FAC 

- benötigt alle Register 

- Stapelbedarf verschieden, je nach Ausdruck 
FRMNUM erledigt eine Vielzahl von nützlichen Aufga¬ 
ben quasi nebenher: Die Speicherstelle $0D erhält den 
Inhalt 0, wenn ein numerischer Ausdruck, aber $FF, wenn 
ein Stringausdruck angesprochen wird. Im letzteren Fall 
erfolgt auch eine Fehlermeldung. In der Speicherstelle $0E 
wird angezeigt, ob man eine Fließkomma- oder eine Inte¬ 
gerzahl geholt hat: Bei Fließkommazahlen findet man hier 
den Inhalt 0, bei Integer-Zahlen den Inhalt $80. Liegt eine 
einfache Variable vor, dann ist anschließend ein Zeiger in 
$45/$46 auf das erste Byte des Variablennamens gerichtet 
etc. Ich empfehle Ihnen, sich einmal ein ROM-Listing zu 
dieser Routine anzusehen. Sie werden noch einiges 
Brauchbares mehr entdecken. 

CHKCOM 

Prüft, ob das gerade gelesene Byte ein Komma ist und 
überliest dieses oder Ausgabe einer Fehlermeldung, wenn 
kein Komma vorliegt. 

- $AEFD dezimal 44797 

- Speicherstellen TXTPTR (also $7A und $7B) 

- Register A und Y 

- kein Stapelbedarf 

Man verwendet diese Routine CHKCOM, um eine 
gewisse Struktur in die selbstgeschaffenen Basic-Befehle 


zu bringen. Es kann sonst unter Umständen leicht gesche¬ 
hen, daß der Interpreter den Basic-Text falsch liest. 

FACINX 

Wandelt eine Fließkommazahl im FAC in eine 2-Byte- 
Integer-Zahl um, die dann im Akku und Y-Register steht. 

- $B1AA dezimal 45482 

- Vorbereitungen: Zahl in FAC 

- benötigt alle Register 

Das entspricht der INT-Funktion des Basic, das LSB 
befindet sich im Akku, das MSB im Y-Register. 

GETBYTC 

Liest aus dem Basic-Text eine Zahl zwischen 0 und 255 
ins X-Register ein. 

- $B79B dezimal 47003 

- Speicherstellen mehrere, unter anderem auch FAC 

- benötigt alle Register 

Diese Routine GETBYTC bringt gegenüber FRMNUM 
nur den Vorteil einer gewissen Bequemlichkeit. Im Grunde 
ruft sie nämlich zuerst einfach FRMNUM auf, dann FACINX 
und stellt noch eine Reihe von Überprüfungen an. 

FSUB 

Subtrahiert den FAC von einer durch Akku und Y- 
Register angezeigten Zahl im Speicher und legt das Ergeb¬ 
nis im FAC ab. 

- $B850 dezimal 47184 

- Vorbereitungen: A/Y als Vektor auf Zahl im Speicher rich¬ 
ten, FAC laden 

- Speicherstellen: mehrere, unter anderem auch FAC und 
ARG 

- benötigt alle Register 

FSUB lädt erst die durch A/Y angezeigte MFLPT-Zahl in 
den ARG, dreht dann das Vorzeichen des FAC-Inhaltes um 
und addiert beide. 

Die i lächste Adresse EINS ($B9BC, 47548) und auch die 
später auftretende PHIALB ($E2E0, 58080) ist jeweils die 
Startadresse einer Zahl, die schon fest im ROM im MFLPT- 
Format verankert vorliegt. Wie schon die Namen sagen, 
liegt bei EINS der MFLPT-Wert von 1 und bei PIHALB der 
von Pi/2. Solche Zahlenwerte gibt es einige im ROM. 


...und Interpreter-Routinen 


LOG 

Bildet den natürlichen Logarithmus des FAC-Inhaltes 
und legt diesen dann im FAC ab. 

- $B9EA dezimal 47594 

- Vorbereitungen: Zahl in FAC 

- Speicherstellen mehrere, unter anderem auch FAC und 
ARG 

- benötigt alle Register 

Diese Routine LOG prüft auch die Korrektheit des Argu¬ 
mentes im FAC. Die nächste Routine dient der Multiplika¬ 
tion zweier Fließkommazahlen: 

FMULT 

Der FAC-Inhalt wird mit einer MFLPT-Zahl multipliziert, 
auf die der Zeiger A/Y weist und das Ergebnis im FAC 
abgelegt. 

- $BA28 dezimal 47656 

- Vorbereitungen: Faktor 1 in FAC laden, Zeiger A/Y auf 
Faktor 2 richten 

- Speicherstellen mehrere, unter anderen auch FAC und 
ARG 

- benötigt alle Register 

FDIV 

Eine MFLPT-Zahl, auf die der Zeiger A/Y weist, wird 
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durch den Inhalt des FAC geteilt und das Ergebnis im FAC 
abgelegt. 

- $BBOF dezimal 47887 

- Vorbereitungen: Divisor in FAC, Zeiger A/Y auf Dividen¬ 
den richten 

- Speicherstellen mehrere, unter anderen auch FAC und 
ARG 

- benötigt alle Register 

Die Routine FDIV meldet auch einen Fehler, wenn der 
Dividend gleich Null ist. Zur Gruppe der Transportroutinen 
gehören die beiden folgenden: 

MOVFM 

Transportiert eine MFLPT-Zahl, auf die A/Y weist, aus 
dem Speicher in den FAC und wandelt sie dabei um in das 
FLPT-Format. 

- $BBA2 dezimal 48034 

- Vorbereitungen: Zeiger A/Y auf erstes Byte der Zahl im 
Speicher richten 

- Speicherstellen $22, $23, FAC 

- Register: A und Y 

Den umgekehrten Weg öffnet diese Routine: 

MOVMF 

Transportiert den Inhalt des FAC in den Speicher an die 
Stelle, auf die X/Y weist und wandelt das FLPT- ins MFLPT- 
Format um. 

- $BBD4 dezimal 48084 

- Vorbereitungen: Zeiger X/Y auf erstes Byte im Speicher 
richten 

- Speicherstellen $22, $23, FAC 

- benötigt alle Register 

Beide Routinen transportieren eigentlich nicht, sondern 
sie kopieren die entsprechenden Inhalte nur. Daraus folgt, 
daß die jeweilige Quelle unverändert erhalten bleibt. 

6A6R Q 


Bild 20. Das Flußdiagramm zum Modul 1 (erster Teil von 
Listing 30) der Befehlserweiterung 

- Speicherstellen mehrere, darunter auch FAC und ARG 

- benötigt alle Register 

POLYX 

Berechnen eines Polynoms, Ergebnis im FAC. 

- $E059 dezimal 57433 

- Vorbereitungen: Argument in FAC, Zeiger A/Y auf Anfang 
einer Konstantentabelle, mehrere Speicherstellen, 

- benötigt alle Register 

POLYX wird von uns später beim POLY-Befehl verwen¬ 
det. Die Konstantentabelle muß folgende Angaben 
enthalten: 

1. Byte: Polynomgrad, weitere Bytes enthalten die Koeffi¬ 
zienten in absteigender Reihenfolge (also a n , a n ,,...) als 
MFLPT-Zahlen. 

COS 

Bildet den Cosinus des FAC-Inhaltes und legt diesen im 
FAC ab. 

- $E264 dezimal 57956 

- Vorbereitungen: Zahl in FAC 

- benötigt alle Register 

Diese Funktion COS entspricht der Cosinus-Funktion im 
Basic ebenso wie die folgende Funktion SIN der Sinus- 
Funktion des Basic entspricht: 

SIN 

Bildet den Sinus des FAC-Inhalts und legt diesen im FAC 
ab. 

- $E26B dezimal 57963 

- Vorbereitungen: Zahl in FAC 

- benötigt alle Register 


Mathematische Routinen 


ABS 

Ermittelt den Absolutwert einer Zahl im FAC 
$BC58 dezimal 48216 

- Vorbereitungen: Zahl in FAC 

- Speicherstellen FAC 

- keine Register 

Ein sehr kurzes Programm, sehen Sie mal in ein ROM- 
Listing. Entspricht etwa der ABS-Funktion in Basic. 

FCOMP 

Vergleicht den FAC-Inhalt mit einer Zahl im Speicher auf 
die A/Y weist. 

- $BC5B dezimal 48219 

- Vorbereitungen: Zahl 1 in FAC, Zeiger A/Y auf Zahl ?.rich¬ 
ten 

- Speicherstellen $24, $25, FAC 

- benötigt alle Register 

Das Ergebnis des Vergleiches FCOMP wird im Akku 
angezeigt. Dabei ergeben sich folgende Aussagen: 


Akku 

Aussage 

$01 

FAC-Inhalt größer als Speicherzahl 

$00 

FAC-Inhalt gleich Speicherzahl 

$FF 

FAC-Inhalt kleiner als Speicherzahl 


Nun kommen wieder einige Funktionen. Zunächst ein¬ 
mal das Bilden der Quadratwurzel des FAC-Inhaltes: 

SQR 'm'i, J : ',v' 

Die Quadratwurzel des'FAC-Inhalts wird gebildet und im 
FAC abgelegt. 

- $BF71 dezimal 49009 

- Vorbereitungen: Zahhn FAC 
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GRUNDLAGEN 


Zu guter Letzt verwenden wir auch noch die Arcus¬ 
tangens-Funktion des Interpreters: 

ATN 

Bildet den Arcustangens des FAC-Inhaltes und legt die¬ 
sen wieder im FAC ab. 

- $E30E dezimal 58126 

- Vorbereitungen: Zahl in FAC 

- benötigt alle Register 

Wir werden später bei den einzelnen Modulen direkt mit 
all diesen Interpreter-Routinen arbeiten. 

Das Programm im Modul 1 


Ab Zeile 480 (im Listing 30) fangen zwei kurze Programm¬ 
teile an, die dem Ein- und Ausschalten der Befehlserweite¬ 
rung dienen. Wie Sie sehen, speichern wir einfach in den 
Vektor IGONE die Startadresse unserer eigenen Interpre¬ 
terschleife. Von da an wird jeder Befehl aus dem Basic-Text 
zuerst durch unsere Schleife und erst danach durch die 
normale Interpreterschleife überprüft. Das verlängert - 
allerdings unmerklich - die Abarbeitung eines Programms. 
Deshalb kann mit dem Programmstück ab Zeile 560 wieder 
der normale Inhalt des IGONE-Vektors restauriert werden. 
Wie Sie gleich sehen werden, passiert das immer dann, 
wenn AUS als neuer Basic-Befehl auftritt. 

Ab Zeile 640 tritt nun unsere eigene Interpreterschleife 
auf den Plan. Unsere neuen Befehle sind als normale 
ASCII-Buchstaben im Basic-Text abgelegt. Deshalb wird 
ein durch die CHRGET-Routine in den Akku geholtes Zei¬ 
chen zunächst überprüft, ob es sich um einen Buchstaben 
handelt. Falls das nicht der Fall ist, geben wir die Kontrolle 
wieder an den normalen Basic-Interpreter zurück. In Modul 
10 haben wir eine Reihe von Tabellen und Hilfszellen 
geschaffen. Eine davon - nämlich AKKU - dient zur Zwi¬ 
schenspeicherung des Akku-Inhaltes, in eine andere - 
BEFNR - schreiben wir über das X-Register eine Befehls¬ 
nummer 0. Außerdem packen wir für die spätere Verwen¬ 
dung ins Y-Register den Wert 0 und erhöhen die Befehls¬ 
nummer auf 1. Des weiteren enthält das Modul 10 die 
Tabelle der Befehlstexte, aus der wir nun ein Zeichen in den 
Akku holen, überprüfen, ob wir ein Trennzeichen vor uns 
haben (nämlich eine Null). Nun wird verglichen (nämlich ab 
Zeile 850) und zwar Byte für Byte, ob der Text in der Befehl¬ 
stabelle und der aus dem Basic-Text übereinstimmt. 
Sobald eine Ungleichheit festgestellt wird, überlesen wir 
schnell den Rest des Befehlswortes und überprüfen den 
nächsten Eintrag in der Tabelle. Mit jedem neuen Befehls¬ 
wort wird auch der Inhalt in BEFNR erhöht. 

Wenn der Basic-Text und der Text in der Befehlstabelle 
übereinstimmt, dann sorgen wir zuerst für das Erhöhen des 
TXTPTR, damit dieser Zeiger hinter unseren eigenen 
Befehl weist. Die Befehlsnummer in BEFNR wird verdop¬ 
pelt und als Index in eine weitere Tabelle, die Sprungtabelle 
SPRTAB in Modul 10 verwendet. In dieser Tabelle liegen 
nacheinander die Startadressen aller Programmteile, die 
zu den einzelnen Befehlen gehören. Die Verdoppelung von 
BEFNR wird einfach dadurch nötig, daß jede Adresse aus 
zwei Byte besteht. In Zeile 1070 unseres Moduls steht nun 
ein Sprungbefehl, dessen Adresse noch aus einem Dum¬ 
my-Wert besteht. Das LSB der Adresse ist sprung+1, das 
MSB sprung+2. Die aus der Sprungtabelle SPRTAB gele¬ 
sene Adresse schreiben wir nun anstelle des Dummy- 
Wertes: Das Programm modifiziert sich an dieser entschei¬ 
denden Stelle selbst. Sobald das geschehen ist, sind wir 
schon bei dem Sprung in das Unterprogramm (also in ein 
anderes Modul) angekommen. Danach - also nach der 
Abarbeitung des Befehls - begeben wir uns zurück in den 
normalen Basic-Interpreter. In Bild 20 finden Sie noch ein 


Flußdiagramm, das Ihnen zum besseren Überblick über 
das Modul 1 dienen soll. 

Die neuen Befehle 


Interessant wird es nun bei den einzelnen neuen Befehlen: 
Wir lernen dabei die Anwendung der mathematischen In¬ 
terpreter-Routinen kennen. Sie werden sehen, daß alles 
einfacher ist, als man gemeinhin denkt. Um welche Befehle 
geht es? Zur Erinnerung: Zunächst machen wir es uns 
etwas einfacher, indem wir Bogen- in Gradmaß durch BOG 
und GRD ausrechnen. Auch stört es viele, daß man immer 
mit der LOG-Funktion den reichlich ungebräuchlichen, 
natürlichen Logarithmus erhält: DLGR liefert uns den deka¬ 
dischen Logarithmus. Der Vollständigkeit halber ist den 
Winkelfunktionen SIN, COS und TAN nun auch noch der 
COT (Cotangens) hinzugefügt. Die eingangs erwähnte 
Umkehrfunktion des Sinus (ARCS) ist ebenso vorhanden 
wie die des Cosinus (ARCC) und des Cotangens (ACOT). 
Mit der ohnehin schon vorhandenen ATN-Funktion für den 
Arcustangens ist somit auch der Satz der Umkehrfunktio¬ 
nen komplett. Zu guter Letzt gibt es da noch die POLY- 
Funktion, mit deren Hilfe man mit einem einzigen Befehl 
den Wert eines Polynoms berechnen kann. 

Modulaufbau 


Jedes Programm-Modul besteht aus einem Rahmen und 
einem Kern (siehe dazu Bild 21). 

Der Rahmen ist überall nahezu identisch und soll daher 
nur einmal erklärt werden. Damit jeder neue Befehl sowohl 
im Eßgramm- als auch im Direktmodus betrieben werden 
kann und die Ergebnisausgabe in Variablen erfolgt, hatten 
wir eine etwas ungewöhnliche, aber einfach zu durch¬ 
schauende Technik gewählt: Das Ergebnis landet immer in 
der zuletzt aufgerufenen Variablen. So erfolgt der BOG- 
Aufruf beispielsweise durch 
A = A:BOG,45 

Das Ergebnis steht dann in A, was durch »PRINT A« 
leicht zu kontrollieren ist. Auf die Startadresse eines Varia¬ 
blenwertes weist der Zeiger »FORPNT«. Um sicherzu¬ 
gehen, daß er bei den manchrhal reichlich unübersicht¬ 
lichen Interpreter-Routinen nicht doch mal überschrieben 
wird, schieben wir seinen Inhalt auf den Stapel: 

LDA FORPNT 
PHA 

LDA F0RPNT+1 
PHA 

Es folgt der Aufruf einer Syntaxkontrolle: 

JSR CHKC0M 

CHKCOM überprüft, ob im Basic-Text ein Komma vor¬ 
liegt. Ist das der Fall, wird es einfach überlesen. Andernfalls 
meldet sich der Computer mit SYNTAX ERROR und das 
Programm endet im READY-Zustand. Weshalb diese unnö¬ 
tige Kontrolle, werden Sie fragenl Zum einen wird ein Pro¬ 
gramm besser lesbar, wenn klar erkennbare Trennzeichen 
eingeplant sind. Das können durchaus auch andere als das 
Komma sein (mit der Komma-Abfrage geht’s aber beson¬ 
ders leicht). Zum anderen werden Sie staunen, was ein 
Basic-Interpreter alles aus so einem selbstgemachten 
Befehl ohne Trennzeichen herauslesen kann! 

Der letzte Befehl im oberen Teil unseres Rahmens ist 
JSR FRMNUM 

Damit lesen wir den Ausdruck hinter dem Komma in den 
Fließkomma-Akku 1 (den FAC) ein. Diese Routine nimmt 
nur numerische Ausdrücke an, bei Strings meldet sie einen 
Fehler und der Computer geht in den READY-Zustand. Die 
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damit eröffnete Variationsbreite der Möglichkeiten von 
numerischen Ausdrücken ist ungeheuer vielfältig: Wir kön¬ 
nen Integer-Zahlen, Fließkommaausdrücke und Fest¬ 
kommazahlen einiesen, einfache Variable oder Array- 
Elemente, kompliziert zusammengesetzte Formeln oder 
Funktionen. Das Ergebnis liegt danach immer in leicht ver¬ 
arbeitbarer Form im FAC vor. 

Nach dieser Zeile folgt in allen Modulen der jeweilige 
Kern. Den Abschluß bildet danach der zweite Teil des Rah¬ 
mens, der lediglich den zuvor auf dem Stapel gespeicher¬ 
ten Variablenzeiger zurückholt und den FAC-Inhalt in die 
dadurch bezeichnete Variable schreibt: 

PLA 

TAY 

PLA 

TAX 

JSR MOVMF 
RTS 

Wie Sie sicher wissen, funktioniert der Stapelspeicher 
nach dem LIFO-Prinzip: Das heißt »Last In - First Out« und 
bedeutet, daß der zuletzt daraufgelegte Wert als erster wie¬ 
der heruntergenommen wird (wie bei einem Bücherstapel). 
Als letzter Wert wurde im ersten Teil unseres Modulrah¬ 
mens das MSB des Vektors FORPNT+1 abgelegt. Der 
kommt also nun wieder zurück in den Akku und von dort 
aus ins Y-Register. Das LSB lag darunter, wird als zweiter 
Wert vom Stapel geholt und auf dem Umweg über den Akku 
ins X-Register transportiert. Damit haben wir die Vorberei¬ 
tungen schon erledigt, die die Interpreter-Routine MOVMF 
braucht: LSB der Zieladresse ins X-Register, MSB ins Y- 
Register. Mittels des MOVMF-Aufrufes transportieren 
(genaugenommen kopieren) wir nun den Inhalt des FAC in 
den dafür bereitgehaltenen Speicherbereich der durch 
FORPNT markierten Variable. Nun steht uns das Ergebnis 
vom Basic aus leicht zur Verfügung. Die Module werden 
durch RTS beendet, was den Rücksprung in das Modul 1, 
die Hauptschleife unserer Basic-Erweiterung, bewirkt. 

Modul 2: BOG 


Wir werden nun immer nur noch die Modulkerne bespre¬ 
chen. Da hatten wir es zuerst also mit dem Kern von BOG 
zu tun. BOG soll aus einem Winkel im Gradmaß das Bogen¬ 
maß berechnen. Nach dem Aktivieren der Erweiterung 
kann das Bogenmaß von 60 Grad im Direktmodus bei¬ 
spielsweise durch: 

A=A:BOG,60:PRINT A 

ermittelt werden. Unser Modul folgt der Umrech¬ 
nungsformel: 

Bogenmaß = Gradmaß*(7r/180) 

Der Faktor tt/ 180 wurde BOGFAK genannt und sein Wert 
(0,0174532925) als Fließkommazahl in einer Konstanten¬ 
tabelle ab der BOGFAK genannten Speicherstelle abge¬ 
legt. Weil sich im FAC schon der Winkel im Gradmaß befin¬ 
det, brauchen wir nur noch die Interpreter-Routine FM ULT 
aufrufen, nachdem wir die Startadresse von BOGFAK in 
den Akku (LSB) und das Y-Register (MSB) geschrieben 
haben. Das Ergebnis der Multiplikation befindet sich im 
FAC. In Bild 21 finden Sie das Flußdiagramm. 




Variablenzolgor 
FORPNT 
aul Slapal sichern 

1 

Aul Komma 
prüfen: 

CHKCOM 

1 

Numerlschon 
Ausdruck In FAC 
holen: FRMNUM 


Zeiger A/Y 
aul BOGFAC 
rlchlen 

1 ^ 


Multiplikation 

FAC - FAC * BOGFAC 1 
mittels FMULT 


Variablenzelger 
vom Stapel holen 

In X und Y 

1 

Ergebnis aus 

FAC in Variable 

MOVMF 


( R ' TS 1 


Bild 21. Wir erweitern den 
Basic-Wortschatz: 
allgemeine Struktur der 
Programm-Module am 
Beispiel der neuen Befehle 
BOG, GRD und DLGR 


Bild 22. Das Flußdiagramm 
der Cotangens-Funktlon 


C ~ cot 1 


Variablenzelger 
aul Stapel 
sichern 


Aul Komma 
prüfen: 

CHKCOM 


Numerischen 
Ausdruck In FAC 
holen: FRMNUM 

-r 9 


Werl sichern 

In ZWSP1 
mittels MOVMF 


Cosinus bilden: 

COS 

FAC = COS (FAC) 


Ergebnis sichern 
in ZWSP2 
mittels MOVMF 

1 

Anfangswert zurück 
aus ZWSP1 in FAC 
mittels MOVFM 


Sinus bilden: 

SIN 

FAC - SIN (FAC) 

1 P 

Division auslühren 

FDIV 

FAC = ZWSP2/FAC 


Variablenzelger vom 
Stapel holen: X, Y 

Ergebnis aus FAC 
in Variable: 

MOVMF 


C ? 


Auch diesen Faktor (er heißt GRDFAK und hat den Wert 
57.2957795) finden Sie im Fließkommaformat in der Kon¬ 
stantentabelle ab GRDFAK. Außer dem anderen Faktor 
unterscheidet sich das Modul 3 nicht vom Modul 2. 


Modul 3: GRD 


Modul 4: DLGR 


Für die Umrechnung vom Bogen- in das Gradmaß gelten 
die gleichen Erläuterungen wie eben bei BOG: GRD leistet 
uns diesen Dienst nach der Gleichung: 

Gradmaß = Bogen maß *(180/7r) 


Spätestens an dieser Stelle werden Sie sich fragen, wes¬ 
halb nicht der einprägsamere Befehlsname DLOG gewählt 
wurde. Da spielt uns der Interpreter wieder einen Streich: 
Beim Eintippen von DLOG und < RETURN > am Ende der 
Zeile würde er nämlich das LOG als normales Basic-Be- 


nline.de 

nline.net 


84 


SONDERHEFT 21 


































































































C64, C128 


GRUNDLAGEN 


fehlswort deuten und statt der ASCII-Zeichenkette LOG ein 
sogenanntes Token in den Programmtext einbauen, also 
eine Kennzahl, die der Computer beim Programmlauf spä¬ 
ter der Logarithmusfunktion zuordnet. Natürlich kann man 
als gewiefter Assembler-Programmierer auch diesem 
unerwünschten Interpreterverhalten einen Riegel vor¬ 
schieben, aber dann wird es für diesen Kurs ein wenig 
unübersichtlich. Deshalb heben wir uns solche Feinheiten 
für eine spätere Folge auf und begnügen uns damit, 
Befehlsworte zu verwenden, die keine normalen Basic- 
Worte in sich enthalten. 

Den dekadischen Logarithmus (log, also den Logarith¬ 
mus zur Basis 10) berechnet man aus dem natürlichen (In, 
also dem zur Basis e - dabei ist e die Eulersche Zahl 
2,718281828459...) durch die Gleichung: 
log (x) = In (x) * (1/ln10) 

Wieder haben wir einen Faktor vorliegen (nämlich 1/ln10, 
LOGFAK mit dem Wert 0,434294482), der als Fließkomma¬ 
zahl in der Konstantentabelle ab LOGFAK abgelegt ist. 
Diesmal wird aber nicht direkt der Wert im FAC mit der Kon¬ 
stanten multipliziert, sondern zuvor muß vom FAC-Inhalt 
noch der natürliche Logarithmus gebildet werden. Dazu 
verwenden wir - einfach durch den Routineaufruf mittels 
JSR - die Interpreterroutine LOG. Automatisch legt diese 
Routine den In des eingegebenen Wertes im FAC ab, wo wir 
damit dann genauso weiterverfahren wie bisher: Akku und 
Y-Register auf LOGFAK richten und FMULT aufrufen. 

Wie benutzt man DLGR? Hier ein Beispiel: 

A=A:DLGR,Ausdruck:PRINT A 

In A steht dann der dekadische Logarithmus von »Aus¬ 
druck«, der hier auf dem Bildschirm angezeigt wird. 


Modul 5: COT 


Bild 22 zeigt Ihnen zum besseren Verständnis das Flußdia¬ 
gramm zur Cotangens-Funktion: 

Wir berechnen den Cotangens nach der Formel: 
cot(x) = cos(x) / sin(x). 

Der im FAC gespeicherte Wert x muß also zweimal verar¬ 
beitet und die Ergebnisse dann miteinander durch Division 
verknüpft werden. 

Dazu müssen wir den Wert x zunächst einmal Zwischen¬ 
speichern. Zu diesem Zweck befinden sich direkt hinter der 
Tabelle mit den im letzten Teil erwähnten Fließkommakon¬ 
stanten zwei weitere Zwischenspeicher, die »ZWSP1« und 
»ZWSP2« genannt wurden. Mittels der Routine MOVMF 
wird der FAC-Inhalt in den Zwischenspeicher ZWSP1 
kopiert. Wie wir schon festgestellt haben, bleibt der FAC- 
Inhalt dabei erhalten, und wir wenden nun die COS- 
Funktion darauf an. Das Ergebnis befindet sich ebenfalls 
im FAC und wird durch den erneuten Aufruf von MOVMF in 
den anderen Zwischenspeicher ZWSP2 transportiert. Jetzt 
soll der Sinus des ursprünglichen Wertes gebildet werden. 
Dazu holen wir ihn mit dem Unterprogramm MOVFM aus 
dem ZWSP1 wieder in den FAC und benutzen die SIN- 
Routine. Was steht jetzt an welcher Stelle? 

Im FAC steht SIN(X) und im ZWSP2 COS(X). Beide divi¬ 
dieren wir nun mit der Routine FDIV. Dazu brauchen wir nur 
einen Zeiger (MSB im Y-Register und LSB im Akku) auf den 
ZWSP2 richten und die Routine durch »JSR FDIV« aufzuru¬ 
fen. Das sollte man sich merken: Bei FDIV ist der FAC-Inhalt 
der Divisor und der durch den Zeiger A/Y gekennzeichnete 
Wert der Dividend: 

FAC = (durch A/Y bezeichneter Wert) / FAC. 

Das Ergebnis befindet sich dann wieder im FAC und ist 
der gesuchte Cotangens. 



Modul 6: ACOT 


Das Modul 6 berechnet die Umkehrfunktion des Cotangens 
nach der Formel: 
acot(x) = (tt/ 2) - atn(x). 

Glücklicherweise ist der Fließkommaausdruck von ir/2 
schon im ROM unseres Computers fest verankert: er steht 
ab Adresse $E2E0. Diese Adresse haben wir in Modul 1 
PIHALB genannt. Das Bild 23 zeigt Ihnen das Flußdia¬ 
gramm des ACOT-Moduls: 

Das im FAC eingetroffene Argument X wird sogleich mit¬ 
tels »JSR ATN« zum Arcustangens verarbeitet, der eben¬ 
falls im FAC steht (um Mißverständnisse zu vermeiden: Der 
alte FAC-Inhalt X wird natürlich durch den neuen FAC-Inhalt 
ATN(X) überschrieben). Indem wir nun wieder einen Zeiger 
(LSB im Akku und MSB im Y-Register) einrichten, der auf 
PIHALB weist, und dann die Routine FSUB benutzen, bil¬ 
den wir die Differenz. Auch hier sollte man sich merken: Bei 
FSUB steht der Subtrahend im FAC, und der Minuend wird 
durch den Zeiger markiert. Der Differenzwert erscheint im 
FAC: 

FAC = (durch A/Y bezeichneter Wert) - FAC. 

Dieser Differenzwert ist schon der gesuchte Arcus- 
cotangens. 

Modul 7: ARCS 


Im Modul 7 geht es uns um die Umkehrfunktion des Sinus, 
den Arcussinus. Die Formel dafür ist etwas komplizierter 
als die bisher benutzten: 
arcs(x) = atn(x/sqr(1-x 2 )). 

Zud°m benötigen wir den Arcussinus auch noch später 
im Mouul 8 zur Berechnung des Arcuscosinus. Zu dem 
Zweck ist im Rahmen des Moduls noch eine Speicherstelle 
namens FLAG berücksichtigt worden. In FLAG befindet 
sich der Wert 0, wenn das Modul nur den Arcussinus 
berechnet, aber der Wert $FF, wenn es über die Einsprung¬ 
stelle EASIN vom Modul 8 aus aufgerufen wird. Das Fluß¬ 
diagramm dieses Moduls finden Sie in Bild 24: 

Der Modulkern speichert zunächst mit der uns schon 
bekannten Routine MOVMF das Argument im Zwischen¬ 
speicher 1. Falls Ihnen die weiteren Schritte suspekt Vor¬ 
kommen, hier die Erklärung: Sowohl der Arcussinus als 
auch der Arcuscosinus sind nur für Argumente x definiert, 
deren absoluter Wert (also deren Betrag, worunter man die 
Zahl x ohne Vorzeichen versteht) kleiner oder gleich 1 sind. 
Eine Eingabe von »ARCS,3« beispielsweise würde unwei¬ 
gerlich zu einem Fehler führen, denn wir erhielten eine 
Quadratwurzel über einem negativen Ausdruck, was eine 
komplexe Zahl als Argument der ATN-Funktion zur Folge 
hätte. Wir müssen daher vor der weiteren Verarbeitung 
überprüfen, ob /x/^ 1 als Bedingung erfüllt ist. 

Zu diesem Zweck bilden wir nach dem Zwischenspei¬ 
chern den Absolutwert des eingegebenen Argumentes x, 
indem wir die ABS-Routine aufrufen. Danach befindet sich 
im FAC der Betrag von x. Wir vergleichen nun diesen FAC- 
Inhalt mit der Zahl 1. Der Fließkommawert von 1 findet sich 
gleich dreimal im ROM: Bei $B9BC, $BDE8 und $E376. 
Den bei $B9BC nennen wir EINS und richten einen Zeiger 
darauf, indem wir das LSB dieser Adresse in den Akku, das 
MSB ins Y-Register schreiben. Dann rufen wir die Routine 
FCOMP auf, die nun den FAC-Inhalt mit der Zahl vergleicht, 
auf die der Zeiger weist. Das Ergebnis des Vergleichs befin¬ 
det sich im Akku: Er enthält 0, wenn beide gleich sind. Falls 
der FAC-Inhalt kleiner als die angezeigte Zahl ist, befindet 
sich im Akku $FF. Ist die angezeigte Zahl größer, steht im 
Akku eine 1. 
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Durch »BEQ ARGOK« verzweigen wir zur weiteren 
Berechnung, wenn Gleichheit festgestellt wurde, der Akku 
also Null enthielt. Ob $FF im Akku steht, stellen wir fest, 
indem wir mit ROL das Bit 7 des Akku ins Carry rotieren. Ist 
das Carry-Bit gesetzt, also der FAC-Inhalt kleiner als die 
ausgewiesene Speicherzahl, wird mit dem Befehl »BCS 
ARGOK« verzweigt. Ist aber nicht verzweigt worden, dann 
fiel das Argument x nicht in den vorgeschriebenen Rah¬ 
men. In diesem Fall holen wir den Stapelinhalt - den Zeiger 
FORPNT hatten wir dort ja abgelegt - und sorgen für die 
Ausgabe einer Fehlermeldung. Wie das geschieht und wel¬ 


che Meldungen zur Verfügung stehen, haben wir in der letz¬ 
ten Folge gesehen: Die Fehlernummer wird im X-Register 
abgelegt (hier entspricht $0E dem »ILLEGAL QUANTITV 
ERROR«) und das Programm durch »JMP ERROR« verlas¬ 
sen. Nach der Fehlermeldung geht der Computer in den 
READY-Status. 

Sehen wir uns nun an, wie ab ARGOK (das kommt von 
»ARGument OK«) weiter verfahren wird: Zunächst holen wir 
das Argument wieder durch MOVFM aus dem Zwischen¬ 
speicher in den FAC. Auch bei diesem Transport handelt es 
sich in Wirklichkeit nur um ein Kopieren. Das machen wir 







C ™ y 


Varlablenzelger 
auf Stapel 
sichern 


Flagge auf $FF 


Auf Komma 
prüfen: 

CHKCOM 


Numerischen 
Ausdruck In FAC 
holen: FRMNUM 


Arcus-Sinus 
berechnen: EASIN 
(siehe Marke 1 

Im Modul 7) 

1 

Differenz bilden 
mittels: FSUB 

FAC = PIHALB-FAC 
(dazu A/Y auf PIHALB) 1 


Flagge aul 0 


Variablenzelgor 
vom Stapel 
holen: X,Y 


Ergebnis aus 

FAC In 

Variable: MOVMF 


FAC = 
ARCS(x) 


FAC . 


i - ARCS(x) 


Bild 23. Mit dem Modul 6 kann das 
erweiterte Basic auch den Arcus- 
cotangens berechnen 


Bild 24. Das Modul 7 berechnet den 
Arcussinus. Dazu benutzen wir 
ausgiebig die Interpreterroutinen. 


Bild 25. Den Arcuscosinus berechnet 
unser erweitertes Basic mit dem 
Modul 8 
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uns zunutze, indem wir nun sofort FMULT aufrufen, um den 
FAC-Inhalt (das ist ja x) mit dem Inhalt des Zwischenspei¬ 
chers 1 (auch das ist x) zu multiplizieren. Danach steht x 2 
im FAC. Erinnern Sie sich an FSUB und den ROM-Wert 
EINS? Wir können direkt danach den A/Y-Zeiger wieder 
auf EINS richten und FSUB aufrufen. Im FAC steht 
anschließend das Ergebnis der Funktion 1-x 2 . Die Qua¬ 
dratwurzel dieses Inhaltes bilden wir nun durch Aufruf der 
SQR-Routine: Im FAC ist dann sqr(1-x 2 ) gespeichert. Nun 
richten wir noch einmal den A/Y-Zeiger auf den Zwischen¬ 
speicher 1 (dort befindet sich immer noch das Argument x), 
um FDIV aufzurufen. Sie erinnern sich: Der FAC ist der Divi¬ 
sor. Jetzt sind wir schon fast am Ziel, denn im FAC befindet 
sich nun schon x/sqr(1-x 2 ). Wir benutzen noch die ATN- 
Routine »JSR ATN«, um nun im FAC den Arcussinus zu 
finden. 

Den Abschluß des Kerns bildet noch die Prüfung der 
Speicherstelle FLAG. Wenn sich dort $FF befindet, kam der 
Aufruf des Moduls ja vom Arcuscosinus-Programm her, 
und wir müssen dorthin zurückspringen, ohne den Stapel 
zu leeren und das Ergebnis in die Variable zu schreiben. 
Durch »BNE RETOUR« überspringen wir diesen Teil des 
Modulrahmens, falls in FLAG ein Inhalt ungleich 0 steht. 

Modul 8: ARCC 


Durch die im Modul 7 geleistete Arbeit wird das 
Arcuscosinus-Modul recht einfach. In Bild 25 finden Sie 
das Flußdiagramm: 

Den Arcuscosinus berechnen wir nach der Formel: 
arcc(x) = (tt/ 2) - arcs(x). Bedingung dabei: /x/ ^=1. 

Im Rahmen des Moduls belegen wir zuerst die Speicher¬ 
stelle FLAG mit dem Wert $FF, um in der Arcussinus- 
Routine eine Unterscheidung treffen zu können, wie der 
Aufruf erfolgte. Sofort nach dem Eintreffen des Argumentes 
im FAC steuern wir die Steile EASIN im Modul 7 an. Nach 
der Rückkehr aus diesem Modul enthält der FAC den 
Arcussinus von x. Wir brauchen nur noch den Zeiger A/Y 
auf die vorhin schon benutzte ROM-Zahl PIHALB zu rich¬ 
ten und FSUB aufzurufen, um schließlich den Arcusco¬ 
sinus im FAC zu haben. 

Modul 9: POLY 


Im POLY-Modul kommt es uns nicht darauf an, Rechnun¬ 
gen durchzuführen. Vielmehr erschöpft sich die Arbeit in 
der richtigen Übernahme aller Parameter. Sehen wir uns 
zunächst einmal an, welche Werte die von uns benutzte 
Routine POLYX erwartet. Ein Polynom ist ein mathe¬ 
matischer Ausdruck der Form 
y = a n • x n + a n ., • x"- 1 + ... + a 2 • x 2 + a, • x + a 0 
Einige Beispiele sollen das erläutern: 
y = 5 • x 3 - 2 • x + 7mitn=3, a 3 =5, a 2 =0, a, =-2 und ao =7 
y = 3.7-x 12 - 5 X 4 mit n=12, a 12 =3.7, a 4 =-5, 
alle anderen a-Werte (man nennt diese Werte Koeffizien¬ 
ten) sind gleich 0. 

Sie sehen, es gibt unzählige Varianten. Außerdem kön¬ 
nen die Koeffizienten auch noch alle möglichen mathemati¬ 
schen Ausdrücke darstellen. POLYX erwartet vor dem Auf¬ 
ruf die Startadresse einer Tabelle im schon bekannten Zei¬ 
ger A/Y. Der Aufbau dieser Tabelle sieht so aus: 

I.Byte: Polynomgrad n (1-Byte-lnteger) 

Byte 2 bis 6: Koeffizient a n (Fließkommazahl im 
MFLPT-Format) 

Byte 7 bis 11: Koeffizient a^ (Fließkommazahl im 
MFLPT-Format) 


Byte 12 bis 16: Koeffizient a n . 2 (Fließkommazahl im 
MFLPT-Format) 

und so weiter bis zum Koeffizienten a 0 . 

Der Aufruf soll in dieser Form erfolgen: 

POLYX, x.n.an.a,., a 0 

Im ersten oben genannten Beispiel stünde dann: 
A=A:POLY,x,3,5,0,-2,7: 

PRINT A 

Unser Modulkern speichert also zunächst die Zahl x (das 
Argument) mit der schon bekannten Routine MOVMF aus 
dem FAC in den Zwischenspeicher 1. Nun holt sich das Pro¬ 
gramm nach erneutem Prüfen auf ein Komma wieder durch 
FRMNUM den Polynomgrad n in den FAC. Mit der Routine 
FACINX wandeln wir den Fließkommawert von n um in eine 
2-Byte-lnteger-Zahl, deren LSB im Y-Register und deren 
MSB im Akku landet. Uns reicht das LSB, denn Polynome 
mit einem Grad größer als 255 sind wohl kaum sinnvoll und 
lassen sich auch nicht mehr eingeben. 

Die für POLYX reservierte Tabelle haben wir ans Ende 
des letzten Moduls gelegt und POLYTAB genannt. Den 
1-Byte-lntegerwert aus dem Y-Register schreiben wir durch 
»STY POLYTAB« dort hinein. Diesen Wert verwenden wir in 
der folgenden Einleseschleife auch als Zähler, denn wir 
haben genau n+1 Koeffizienten in die Tabelle zu schreiben. 
Mit INY erhöhen wir also den Zähler um 1 und legen ihn in 
der Speicherstelle FLAG ab: Durch die nachfolgenden 
Interpreter-Routinen wird nämlich das Y-Register 
verändert. 

Im ersten Modul hatten wir eine Speicherstelle POLYVAR 
definiert, die POLYTAB-4 entsprach. Diese Speicherstelle 
spielt in der folgenden Einleseschleife eine wichtige Rolle. 
Sie ist die Zieladresse, die über das X- und das Y-Register 
an die Transportroutine MOVMF gegeben wird. Die beiden 
entsnrechenden Zeilen im Programm sind durch »Ml« und 
»M2« markiert. Am Anfang der Schleife (nach der Marke 
»mO«) addieren wir zu POLYVAR (und zwar dem Wert, der 
in den Speicherstellen M1+1 und M2+1 steht) in einer 
16-Bit-Addition die Zahl 5: Jede MFLPT-Zahl nimmt 5 Byte 
für sich in Anspruch. Das Ergebnis dieser Addition (Selbst¬ 
modifikation!) wandert zurück in die Speicherstellen M1+1 
und M2+1. Nach dieser Addition lesen wir den jeweils 
nächsten Koeffizienten in den FAC und transferieren ihn mit 
MOVMF an die jeweils durch den neuen POLYVAR-Wert 
ausgewiesenen Tabellenplatz. Danach laden wir wieder 
FLAG, dekrementieren diesen Zähler um 1 und prüfen mit 
BNE, ob noch weitere Koeffizienten zu laden sind. 

Sind alle Koeffizienten durch diese Schleife in der Tabelle 
gelandet, greifen wir nochmals zur Selbstmodifikation, 
indem wir in Ml +1 und M2+1 wieder den Originalwert von 
POLYVAR eintragen. Die Tabelle ist nun komplett. Wir 
holen das Argument x durch MOVFM wieder aus dem Zwi¬ 
schenspeicher 1 in den FAC, richten nun - wie vorhin 
besprochen - den Zeiger A/Y auf die Tabelle und rufen die 
Routine POLYX auf. Im FAC befindet sich das Ergebnis, 
das wir in unseren Erklärungen mit y bezeichnet haben. Ein 
Flußdiagramm dieses Moduls finden Sie in Bild 26. 

Tabellenmodul 


Noch ein paar Worte sollen zum Tabellenmodul gesagt wer¬ 
den. Sowohl in der Sprung- als auch in der Befehlstext- 
Tabelle ist noch Platz für etwa acht weitere neue Basic- 
Befehle. Die Polynomtabelle ab POLYTAB ist auf den Poly¬ 
nomgrad 16 vorbereitet. Selten dürften mehr Koeffizienten 
nötig sein. Falls aber doch: Diese Tabelle liegt am Pro¬ 
grammende (und sollte dort auch nach Programmerweite¬ 
rungen liegen), wodurch sich ohne Probleme noch beliebig 
viele Koeffizienten anschließen lassen. 
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Mit diesen recht ausführlichen Erklärungen des bisher 
umfangreichsten Beispielprogrammes sollten Sie nun in 
der Lage sein, auch selbst Basic-Befehlserweiterungen zu 
schreiben und die wichtigsten Interpreter-Routinen mathe¬ 
matischer Aufgabenstellungen zu verwenden. Sie haben 
es sicherlich bemerkt: Die Fließkommazahlen und ihre 
unterschiedlichen Formate im Computer spielen bei allen 
diesen Routinen eine wichtige Rolle. Bei nahezu allen 
Rechenoperationen (auch bei Verwendung von Integer- 
Zahlen wie A%) arbeitet der Interpreter mit Fließkomma¬ 
zahlen. Im nächsten Abschnitt werden wir uns diesen Zah¬ 
len und ihrer Darstellung zuwenden. 

Erinnern Sie sich? Am Anfang dieses Kurses hatten wir 


allerlei Zahlensysteme zum Thema: Die Binärzahlen, die 
Hexadezimalzahlen und die uns geläufigen Dezimalzah¬ 
len. Wir waren aber so bequem, uns nurden ganzen Zahlen 
zu widmen, und wie Sie alle wissen, bilden die eher die Aus¬ 
nahme als die Regel. Umgehen wir all die mathematischen 
Feinheiten und nennen die anderen die »Kommazahlen«, 
dann wissen Sie, wovon nun die Rede sein wird. 

Fließkommazahlen 


Sehen wir uns das Ganze erst einmal im gewohnten 
System der Dezimalzahlen an. 2,71 Meter lang war der 
größte Mensch der Welt (Robert Pershing Wadlow, 

1919-1940), dessen Maße 
medizinisch nachgeprüft 
wurden. 8,5 Einwohner 
leben im Staat Vanatuatu 
(Ozeanien) auf einem Qua¬ 
dratkilometer - in der Bun¬ 
desrepublik sind es 245,5. 
Der Atomkern eines Helium¬ 
atoms wiegt etwa 0,000 
000 000 000 000 000 000 
000 006 643 kg. Füllt man 
dieses Gas in einen Luftbal¬ 
lon, dann befinden sich (bei 
normalen Druck- und Tem¬ 
peraturverhältnissen) etwa 
26 900 000 000 000 000 000 
Heliumatome in einem 
Kubikzentimeter. Die bei¬ 
den letzten Beispiele veran¬ 
lassen meist zum mehrfa¬ 
chen Nachprüfen der vielen 
Nullen. Weil es solche 
unhandlichen Zahlenunge¬ 
tüme öfters gibt, hat man 
sich eine etwas bequemere 
Darstellung der Zahlen ein¬ 
fallen lassen. Man nennt 
das dann manchmal die 
»wissenschaftliche Darstel¬ 
lung« oder einfach »Fließ¬ 
kommadarstellung« (ab und 
zu ist auch von »Gleitkom¬ 
madarstellung« die Rede). 
Was versteht man darunter, 
und wie baut man solche 
unhandlichen Zahlen wie 
die eben genannten in 
Fließkommazahlen um? 

Dazu geht man von der 
Basis unseres Zahlensy¬ 
stems - nämlich der Zahl 10 
- und ihren Potenzen aus, 
also 10, 10x10, 10x10x10 
oder auch 1/10 und so fort. 
Die etwas unbequeme 
Schreibweise der Zehner¬ 
potenzen kann durch die 
Verwendung von Hochzah¬ 
len vereinfacht werden: 

10x10 = 100 = 10 2 

10x10x10 = 1000 = 10 3 

10 = 10' 
1/10 = 0,1 = io- 1 

Jede Zahl kann als Pro¬ 

dukt mit einer solchen Zeh¬ 
nerpotenz dargestellt wer- 
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Bild 26. Das Flußdiagramm des neunten Moduls: Der Befehl POLY kann die Arbeit 
mehrerer Programmzeilen in Windeseile mit einem einzigen Befehl erledigen 
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den, ja es gibt genau genommen unendlich viele Möglich¬ 
keiten der Schreibweisen als Produkte. Ein Beispiel soll 
das zeigen: Nehmen wir die Zahl 1985,125. Diese kann man 
- rechnen Sie nach - auch wie in Bild 27a schreiben. Auch 
anders herum ist das natürlich möglich, wie Sie in Bild 27b 
ebenfalls sehen können. Alle dort in der letzten Spalte 
gezeigten Zahlen sind Fließkommadarstellungen dersel¬ 
ben Zahl 1985,125. Vielleicht erkennen Sie nun auch, wes¬ 
halb »Fließkomma«: Das Komma hat keinen festen Platz 
mehr. In Abhängigkeit von der Zehnerpotenz wechselt es 
seinen Ort. Als Faustregel kann man sich merken: 

Jede Verschiebung des Kommas um eine Stelle nach 
links führt zur Erhöhung der Hochzahl um 1, jede Komma¬ 
verschiebung nach rechts aber zu einer Erniedrigung der 
Hochzahl um 1. 

Wozu das Ganze? Entscheiden Sie selbst an den beiden 
vorhin genannten Zahlenungetümen: 6,643x10 27 kg wiegt 
der Heliumatomkern und in einem Kubikzentimeter dieses 
Gases befinden sich 2,69x10 19 Atome. Man kann jede Zahl 
in einem festen und überschaubaren Format darstellen. Wo 
aber ist das entscheidender als im Speicher unseres 
Computers? 

Die Zweifingerlinge 
und Fließkommazahlen 


Für alles nun Folgende sollten Sie die Binärzahlen, ihren 
Aufbau und die Umrechnungsmethoden schon kennenge¬ 
lernt haben. Dies gilt besonders für den nächsten 
Abschnitt. Dieser hier kann recht kurz bleiben, denn natür¬ 
lich ist es uns klar, daß auch die Zweifingerlinge nicht immer 
nur mit ganzen Zahlen zu tun haben. Außerdem treten bei 
ihnen noch viel eher als bei uns lange Zahlenungetüme 
auf, die durch eine Fließkommadarstellung lesbar gemacht 
werden müssen. Erinnern Sie sich: Die Zahl »4« beispiels¬ 
weise benötigt in unserem Dezimalsystem nur eine Ziffer, 
im Binärsystem aber schon drei, nämlich %100 (übrigens 
werde ich im folgenden immer den Vorsatz »%« verwen¬ 
den, wenn die dahinter stehende Zahl eine Binärzahl sein 
soll). 

Wenn sich also im Land der Zweifingerlinge vier Perso¬ 
nen (%100) eine Sachertorte teilen müssen, dann erhält 
jeder von ihnen %Vioo davon (als Bruch dargestellt) oder 
%0,01 (als Kommazahl dargestellt, also 0,25). Wieso 
%0,01? Es gibt im Prinzip zwei Wege der Erklärung. Sehen 
wir uns zunächst kurz den unbequemen Weg an, um nach¬ 
her ausführlich den leichteren und breiter anwendbaren zu 
wählen. 

Die Basis des Binärsystems ist ja die Zahl »2« (das ist 
%10). Denken Sie an die vorhin erwähnte Methode der 
Fließkommazahlen, dann sehen Sie sofort (naja, oder 
jedenfalls bald), daß: 

%0,01 = %0,1x10' 1 

oder = %1x10' 10 ist. 

In Dezimalzahlen ausgedrückt ist %1x10' 10 aber gleich 
1x2 z , was dasselbe ist wie 1/(2 Z ), also V« oder 0,25. Aber 
nun schnell zum leichteren Weg! 

Wir werden uns zu dieser Umrechnung aus dem dezima¬ 
len System in das der Zweifingerlinge zunächst einmal wie¬ 
der unser Beispiel 1985,125 vornehmen und daran Schritt 
für Schritt erkennen, wie man vorgeht. 

Dazu trennen wir den Umrechnungsvorgang in zwei Teile 
auf: Der Vorkomma-Anteil (also 1985) wird nämlich anders 
umgerechnet als der Nachkomma-Anteil (also 125)./Wie 
das mit dem Teil vor dem Komma zu geschehen hat, ist 
bereits erklärt worden. Wir teilen die Zahl durch 2, notieren 
den Rest, teilen das Ergebnis wieder durch 2, notieren den 
Rest und so fort, bis wir irgendwann auf das Ergebnis 0 sto- 


») 

1985,125 

198,5125 

X 

10 


198,5125 

X 

10' 

oder = 

19,85125 

X 

100 

s 

19,85125 

X 

io 1 

oder = 

1,985125 

X 

1000 


1,9B5125 

X 

10’ 

oder » 

0,1985125 

X 

10000 

* 

0,1985125 

X 

10* 

b) 

1985,125 

19851,25 

/ 

10 

a 

19851,25 

X 

io-' 

oder a 

198512,5 

/ 

100 

■ 

198512,5 

X 

10’ 

oder = 

1985125 

1 

iooo 

■ 

1985125,0 

X 

10’ 

oder = 

19851250 

1 

10000 

* 

19851250,0 

X 

10« 


Bild 27a und 27b. Beispielzahl in verschiedener 
Schreibweise 


ßen. Die gemerkten Reste aber bilden dann die gesuchte 


Binärzahl: 



1985 : 2 = 

992 

Rest 1 

992 : 2 = 

496 

Rest 0 

496 : 2 = 

248 

RestO 

248 : 2 = 

124 

RestO 

124:2 = 

62 

Rest 0 

62:2 - 

31 

Rest 0 

31 : 2 = 

15 

Rest 1 

15:2 = 

7 

Rest 1 

7:2 = 

3 

Rest 1 

3:2 = 

1 

Rest 1 

1:2- 

0 

Rest 1 


Von unten nach oben gelesen ergeben die Reste dann 
o/oin 1100 0001. 

Übrig bleibt also der Nachkomma-Anteil, beziehungs¬ 
weise die Zahl 0,125. Anstelle der Kettendivision durch 2 
verwendet man hier nun die Kettenmultiplikation. Die 
umzuwandelnde Zahl wird mit 2 malgenommen, ein sich 
ergebender Vorkomma-Anteil notiert, dann die Nachkom¬ 
mastellen des Ergebnisses wieder mal 2 genommen, wie¬ 
der Vorkomma-Anteil notiert und so fort. Das geschieht so 
lang ^ bis der Nachkomma-Anteil des Ergebnisses gleich 
0 geworden ist. Sehen wir uns das an einigen Beispielen 
an. Wir stellen uns die Aufgabe, die Dezimalzahl 0,1 in die 
ihr entsprechende Binärzahl umzuwandeln: 

0,1 x 2 = 0,2 Vorkommast. 0 

0,2 x 2 = 0,4 Vorkommast. 0 

0,4 x 2 = 0,8 Vorkommast. 0 

0,8 x 2 = 1,6 Vorkommast. 1 

Weiterrechnen ohne die neue Vorkommastelle: 

0,6 x 2 = 1,2 Vorkommast. 1 

Nochmal weiter ohne neue Vorkommastelle: 


0,2 x 2 = 0,4 Vorkommast. 0 

0,4 x 2 = 0,8 Vorkommast. 0 

Sie dürfen gern weiterüben. Zu einem Ende werden Sie 
bei dieser Zahl nie gelangen, denn manchmal ergibt sich 
aus einem endlichen Dezimalbruch ein unendlicher (hier 
periodischer) Binärbruch. In der Reihenfolge der auftreten¬ 
den Vorkommastellen angeordnet, erhält man die Nach¬ 
kommastellen der Binärzahl, im Beispiel also: 

% 0,000 1100 1100 1100 . . . 

Erinnern Sie sich noch an den 0,25-Anteil der Sacher¬ 
torte? Dies als weiteres Übungsstück: 

0,25 x 2 = 0,5 Vorkommast. 0 

0,5 x2 = 1,0 Vorkommast. 1 

Der Nachkomma-Anteil ist 0 geworden und daher die 
Umrechnung beendet. 

Als Ergebnis erhalten wir somit %0,01, was zu erwarten 
war. Nun können wir auch unser Beispiel 1985,125 weiter 
umrechnen: 

0,125 x 2 = 0,25 Vorkommast. 0 

0,25 x 2 = 0,5 Vorkommast. 0 

0,5 x2 = 1,0 Vorkommast. 1 

Auch hier ist nun der Nachkomma-Anteil 0 geworden, die 
Rechnung daher beendet und das Ergebnis lautet %0,001. 
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Jetzt können wir beide Ergebnisse kombinieren zur kom¬ 
pletten Kommazahl der Zweifingerlinge: 

1985,125 entspricht 
%111 1100 0001,001 

Fließkommazahlen im Computer 


Fassen wir das Ganze nochmal kurz zusammen: Eine dezi¬ 
male Fließkommazahl wird in ihr binäres Pendant umge¬ 
rechnet durch Trennen des Vor- und des Nachkomma- 
Anteils. Der Vorkomma-Anteil wird dann durch Kettendivi¬ 
sion, der Nachkomma-Anteil durch Kettenmultiplikation in 
die Binärzahl umgerechnet und beide wieder kombiniert 
zur Gesamtzahl. 

Wie Sie wissen, ist der Computer ja in Wirklichkeit ein 
Gerät aus der Welt der Zweifingerlinge. Kommazahlen 
kennt er also auch nur als Binärzahlen. Außerdem hatten 
wir vorhin festgestellt, daß es dem Computer besser liegt, 
die Kommazahlen als Fließkommazahlen zu speichern, 
weil da das Format so schön einheitlich ist. Als As¬ 
sembler-Programmierer ist man manchmal in der Verle¬ 
genheit, Fließkomma-Konstanten in einer Tabelle zur spä¬ 
teren Verwendung durch ein Programm abzulegen. Einige 
Beispiele konnten Sie im Beispielprogramm (Listing 30) fin¬ 
den, welches dem Basic mathematische Routinen hinzu¬ 
gefügt hat, die manche Anwender schmerzlich vermissen 
(es dreht sich um LOGFAK, BOGFAK und GRDFAK im 
Tabellenmodul ab Zeile 4010). Wie erwartet der Computer 
solche Werte und wie kann man sie in die gewünschte Form 
bringen? An zwei Beispielen werden wir uns das nun anse- 
hen: Als erstes arbeiten wir mit der Zahl 1985,125 weiter, 
danach vollziehen wir den ganzen Weg einmal am Beispiel 
von GRDFAK. 

Normalisieren 


Der Computer bewahrt also Kommazahlen als binäre Fließ¬ 
kommawerte auf. Genauso, wie wir vorhin im Dezimal¬ 
system an unserem Beispiel 1985,125 das Komma verscho¬ 
ben und damit die Hochzahl verändert haben, geschieht 
das jetzt im nächsten Prozeß, dem sogenannten »Normali¬ 
sieren«. Darunter versteht man eine Verschiebung des 
Kommas so weit nach links (oder bei anderen Zahlen nach 
rechts), bis vor dem Komma nur noch eine Null steht, dahin¬ 
ter dann die erste von Null verschiedene Ziffer. Bei 1985,125 
im Dezimalsystem führt das dann zu: 0,1985125 x IO 4 . 

Wir haben das Komma um 4 Stellen nach links gescho¬ 
ben, der Exponent (das ist ein anderer Name für »Hoch¬ 
zahl«) ist daher von 0 auf 4 angewachsen. Sehen wir uns 
nun das gleiche bei den Binärzahlen an. Aus 
°/o111 1100 0001,001 
wird dann: 

°/oO,1111 1000 0010 01 x 10 1011 

Bitte denken Sie daran, daß in diesem Fall %10 gemeint 
ist, also dezimal 2. Der Binärwert %1011 entspricht der 
Dezimalzahl 11 und um genau diese Anzahl Stellen ist das 
Komma nach links gewandert. 

Der Exponent 


Unsere Zahl ist nun eindeutig festgelegt durch die soge¬ 
nannte Mantisse (worunter man die Zahl versteht, die zwi¬ 
schen dem Komma und dem »x«-Zeichen steht) und den 
Exponenten (solange die Basis unverändert %10 bleibt). 
Der Computer muß nun also zwei Größen festhalten (Man¬ 
tisse und Exponent). 

Möchten Sie die Beispiele am Computer nachvollziehen, 


müssen Sie statt eines Kommas einen Dezimalpunkt 
einsetzen. 

Bis hierher galt das Gesagte unabhängig von jedem 
Computertyp. Jetzt aber unterscheiden sich die weiteren 
Vorgehensweisen - und zwar abhängig von der jeweiligen 
Interpreterstruktur. In allen mir bekannten 8-Bit- 
Commodore-Computern und einigen anderen, deren Inter¬ 
preter auf der Microsoft-Basis arbeiten, wird aber ebenso 
verfahren, wie es hier nun erklärt wird. 

Zur Speicherung des Exponenten ist ein Byte vorge¬ 
sehen. Nun kann aber dieser Exponent (wie in unserem 
Beispiel) positiv oder auch negativ sein. Hier könnte man 
nun von der Praxis Gebrauch machen, das Bit 7 dieses 
Exponetenbytes als Vorzeichenbit zu verwenden (so 
geschieht das im Fall der Speicherung von Integers). Hier 
aber verwändet man noch ein anderes Verfahren. Zum 
Exponenten wird die Zahl 128 addiert! Das führt dann bei 
positiven Exponenten zu Werten, die größer als 128, bei 
negativen zu solchen, die kleiner als 128 sind. 

So kann man auch leicht ermitteln, welches denn die 
größte und die kleinste Fließkommazahl sein kann, die 
unser Computer verarbeitet. Die Summe 128+Exponent 
darf nicht größer als 255 werden (das ist ja die größte in 
einem Byte speicherbare Zahl). Also kann der Exponent 
maximal 127 betragen. 2 127 aber entspricht 1,7014118 x 
10 3 »; Anders) Iherum: Kleiner als 0 kann das Exponenten- 
Byte nicht werden -128 ist daher der kleinste mögliche 
Exponent und 2 -128 entspricht der Zahl 
2,9387358 x 10 M . 

Kommen wir nun wieder zu unserem Beispiel 1985,125. 
Die Addition des berechneten Exponenten %1011 mit 128 
(das ist %1000 000) ergibt den Inhalt des 

Exponenten-Bytes: 

%100C 1 n 11 

Rechnen wir diesen Wert noch ins Dezimalsystem um, 
dann ergibt sich die Zahl 139 und im Hexadezimalsystem 
haben wir $8B. 

Die Mantisse 


Weil der Computer immer mit Binärzahlen arbeitet, die 
Basis 2 also vorausgesetzt wird, fehlt uns nun zur eindeuti¬ 
gen Festlegung der Fließkommazahl nur noch die Man¬ 
tisse. Diese wird in 4 Byte gespeichert, und zwar linksbün¬ 
dig. Falls nur ein Teil der 4 Byte für die Ziffern benötigt wird, 
füllt unser Computer den Rest mit Nullen auf. In Bild 28a 
sehen Sie die Mantisse der Zahl 1985,125. In Dezimalzah¬ 
len entspricht das der Zahlenfolge 248,36,0,0 und in Hexa¬ 
dezimalzahlen der Reihe $F8, $24, $00, $00. 

Wie genau ist eigentlich unsere Fließkommadarstel¬ 
lung? Schon bei der Umrechnung der Dezimalzahl 0,1 ins 
System der Zweifingerlinge haben Sie bemerkt, daß wir auf 
unendlich viele Stellen weiterrechnen können, ohne den 
genauen Wert zu erhalten. Aber auch andere Dezimalzah¬ 
len füllen nach der Umrechnung manchmal mehr als nur 
die 4 Byte der Mantisse. Zweifellos sind die ersten 32 Bit der 
Mantisse die am meisten signifikanten. Ein Beispiel aus 
dem gewohnten Dezimalsystem soll das zeigen: Es ist ein 
großer Unterschied zwischen den Zahlen 0,1 und 0,9, ein 


0 ) 

%1111 1000 440010 0100 HOOOOOOOO HOOOO 0000 

Bylel Byles Byto3 By1e4 

D> 

% 0,0000 0000 0000 0000 0000 0000 0000 0001 


Bild 28 a) Mantisse von 1985, 125. b) Kleinster, mit vier 
Mantissen-Byte darstellbarer Unterschied. 
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kleiner aber nur zwischen 0,1000000001 und 
0,1000000009. Immerhin, manchmal zählt auch dieser 
kleine Unterschied! Alle Bits ab Bit 32 (die also nicht mehr 
in die 4 Byte passen) fallen unter den Tisch. Der kleinste 
Unterschied zwischen zwei Zahlen, der in diesen vier 
Mantissen-Byte festgehalten werden kann, beträgt 2 32 
oder in dezimal 0,000 000 000 2 (die binäre Schreibweise 
sehen Sie in Bild 28b). Daraus folgt, daß man beispiels¬ 
weise die Zahlen 1,000 000 000 2 und 1,000 000 000 0 dar¬ 
stellen kann, nicht aber 1,000 000 000 1. 

In der 10. Stelle rechnet unser Computer wegen seiner 
Mantissendarstellung in 4 Byte also ungenau, und je kom¬ 
plexer eine Rechnung wird, desto mehr breiten sich diese 
Ungenauigkeiten in die 9. oder sogar 8. Stelle aus. Das 
nennt man dann den Rundungsfehler. 

Die Formate: FLPT und MFLPT 


Eigentlich wäre jetzt schon alles geklärt, wenn wir nicht den 
Umstand vergessen hätten, daß auch die Mantisse ein Vor¬ 
zeichen hat. Bisher konnten wir beispielsweise eine Zahl 
-1985,125 noch nicht darstellen. Auch dieses Problem ist 
natürlich gelöst, und zwar gleich auf zweierlei Weise. Es 
gibt nämlich zwei Formate, in denen Fließkommazahlen in 
unserem Computer stehen. 

Das einfachere davon nennt man FLPT-Format (das 
kommt von »FLoating-PoinT«, was »Fließpunkt« bedeutet). 
Das Vorzeichen der Mantisse wird hier einfach in einem 
eigenen Byte gelagert. Das Bit 7 dieses Bytes ist 0, wenn 
wir eine positive, oder 1, wenn wir eine negative Zahl vor 
uns haben. Die restlichen 7 Bit (also Bit 6 bis 0) dieses 
Vorzeichen-Byte sind unbenutzt. Sehen wir uns nun in Bild 
29a unser Beispiel 1985,125 im kompletten FLPT-Format 
an. Diese Lagerung und Verarbeitung einer Fließkomma¬ 
zahl in 6 Byte findet vor allem an zwei markanten Orten 
unseres Computers statt: Dem FAC und dem ARG. Beides 
sind sogenannte Fließkomma-Akkumulatoren, von denen 
der FAC (»Floating point ACcumulator«) für Fließkomma¬ 
zahlen etwa die Rolle des Akku spielt, also gewissermaßen 
die Rechenzentrale darstellt. Eine große Anzahl von Inter¬ 
preterfunktionen erfordert das Argument im FAC und liefert 
das Ergebnis dorthin. Die USR-Funktion des Basic packt 
das Argument ebenfalls in den FAC, was eine bequeme 
Übergabemöglichkeit von Fließkommawerten an ein 
Maschinenprogramm darstellt. Dazu werden wir ein ande¬ 
res Mal noch kommen. 

Viele Interpreterfunktionen erfordern zwei Argumente. 
Eines davon liegt dann im FAC, das zweite im ARG (von 
»ARGument«, manchmal auch FAC2 genannt). Bild 30 
zeigt Ihnen den Aufbau und den Ort des FAC und des ARG 
im C 64 und im C 128. 

Fließkommazahlen werden aber nicht nur an diesen zwei 
Orten des Computers verwendet, meist müssen sie 
irgendwo im RAM ihr Dasein fristen als Variable, als Array- 
Elemente und so weiter. Da wäre es schon eine Speicher¬ 
verschwendung, jedesmal 6 Byte für solche Werte zu reser¬ 
vieren, von denen eines nur für das Vorzeichen (als Bit 7) 
benötigt wird! Aus diesem Grund existiert noch ein gepack¬ 
tes Format, das man MFLPT-Format nennt (das kommt von 
»Memory FLoating PoinT«). Hier findet die Fließkommadar¬ 
stellung in nur 5 Byte statt. Wie kann man das erreichen, wo 
doch schon der Exponent und die Mantisse volle 5 Byte 
erfordern? 

Ein Bit braucht man nur für das Vorzeichen. Gibt es in die¬ 
sen 5 Byte ein überflüssiges Bit, das man dazu verwenden 
kann? Es gibt! Denken Sie an den Vorgang des Normalisie- 
rens, wo die Verschiebung des Kommas so weit gefordert 
wurde, daß vor dem Komma eine 0, danach aber die erste 


O) 

«1000 1011 
Exponent 
Byte 0 
b) 

«1000 1011 

1111 1000 

0010 0100 0000 0000 

0000 0000 

0. 

Voraelchen 
Byto 5 

Byte 1 

Byte 2 Byto 3 

Byte 4 

0111 1000 

0010 0100 0000 0000 

0000 0000 


Exponent 









ByleO 
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Bild 29 a) 1985,125 Im FLPT- und b) Im MFLPT-Format 
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Bild 30. Orte und Aufbau der beiden Fließkomma- 
Akkumulatoren im C 64 und im C 128 

signifikante Ziffer steht. Im Binärsystem gibt es aber für 
diese erste Stelle nach dem Komma nur eine Möglichkeit: 
Es rr.w sich um die Ziffer 1 handeln! Wenn das aber ohne¬ 
hin klar ist, dann kann man auf dieses erste Mantissen-Bit 
auch verzichten. Behält man einfach immer im Sinn, daß 
dort auf alle Fälle noch eine 1 hingehört, dann kann man 
nun mit diesem Bit anstellen, was man möchte: es bei¬ 
spielsweise als Vorzeichenbit verwenden. Genau das 
geschieht, und deshalb finden Sie im Bit 7 des ersten 
Mantissen-Bytes immer eine 0, wenn wir eine positive Zahl, 
aber eine 1, wenn wir eine negative Zahl vor uns haben. In 
Bild 29b sehen Sie unser Beispiel 1985,125 im MFLPT- 
Format. Hier ergibt sich also die dezimale Zahlenfolge 139, 
120, 36, 0, 0 oder im Hexadezimalsystem: $8B, $78, $24, 
$ 00 , $ 00 . 

Eine komplette Umrechnung 

Nun werden wir am Beispiel von Grdfak die komplette 
Berechnung durchführen: GRDFAK = 180/?r = 
180/3,141592... = 57,2957795... 
a) Vorkomma-Anteil umrechnen: 


57:2 

= 

28 

Rest 1 

28:2 

SS 

14 

Rest 0 

14:2 

SS 

7 

Rest 0 

7:2 

= 

3 

Rest 1 

3:2 

SS 

1 

Rest 1 

1:2 

= 

0 

Rest 1 


Damit folgt für den Vorkomma-Anteil: %111001 
b) Nachkomma-Anteil umrechnen: 

0,2957795 x 2 = 0,591559 Vorkommaziffer 0 
0,591559 x2 = 1,183118 Vorkommaziffer 1 
0,183118 x 2 = 0,366236 Vorkommaziffer 0 
Rechnen Sie weiter, bis Sie mit dem eben ermittelten Vor¬ 
kommateil 32 Stellen ermittelt haben. Sie erhalten dann die 
Kommazahl in Bild 31a. 
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0) 

H11 1001,0100 1011 1011 1000 0011 0100 10 
b) 

WO,1110 0101 0010 1110 1110 0000 1101 0010 X 10"» 

C) 

W01100101 0010 1110 11100000 1101 0010 

Byte 1 Byte 2 Byte 3 Byte 4 


Bild 31 a) Errechneter Nachkommaanteil, b) Normalisieren 
c) GRDFAK im MFLPT-Format. 

c) Normalisieren: Bild 31b 

d) Exponent: Addieren von 128 ergibt nun für das Exponen¬ 
tenbyte: 

%0110 oder dezimal 134 oder $86. 

e) Mantisse: Wir brauchen den Wert GRDFAK im MFLPT- 
Format und lassen (er ist ja positiv) das erste Mantissen-Bit 
daher zu 0 werden. Das Resultat sehen Sie in Bild 31c. Es 
entspricht der dezimalen Zahlenfolge 101, 46, 224, 210 
und der hexadezimalen Folge $65, $2E, $E0, $D2. 

f) Eintrag: Insgesamt haben wir nun für GRDFAK in unse¬ 
ren Quelltext die Zahlenfolge $86, $65, $2E, $E0, $D2 ein¬ 
zuschreiben. Das wär’s dann! 

Ganz schön viel Arbeit, werden Sie sagen. Stimmt! Es ist 
natürlich unumgänglich, die Grundlagen zu kennen, aber 
Sie verfügen schließlich über einen Computer, der sich für 
solche Aufgaben besonders gut eignet. 

Speziell bei einer häufigen Anwendung dieser Methode 
ist es wesentlich bequemer, die ganze Prozedur nicht 
immer selbst durchführen zu müssen. Sie sollten deshalb 
einmal versuchen, Ihrem Computer die Arbeit zu überlas¬ 
sen. Im nächsten Abschnitt dieses Kurses finden Sie eine 
mögliche Programmlösung dazu - für den C 64 und den 
C128. 

Beide Programme (Listing 32 und 33) verwenden den 
sogenannten programmierten Direktmodus und steuern 
damit einen Maschinensprachemonitor an (für den C 64 
muß man vor dem Start noch den SMON geladen haben!). 
Dabei läuft das C 128-Programm automatisch, beim 
C 64-Programm ist es noch nötig, nach der Monitormel¬ 
dung viermal < RETURN > zu drücken (SMON scheint 
den Tastaturpuffer nicht in gewohnter Weise zu behan¬ 
deln). Auf dem Bildschirm erscheint dann die Einschalt¬ 
meldung des Monitors. Nach Druck auf <RETURN> 
sehen Sie die Speicherbereiche ab $6000 und $6010. In 
diese Bereiche transportierte ein kleines Maschinenpro¬ 
gramm die zuvor eingegebene Zahl als MFLPT- (ab $6000) 
und als FLPT-Zahl (ab $6010). Das Maschinenprogramm 
findet sich in den DATA-Zeilen des Listings und ist dabei in 
REM-Zeilen als Quelltext dargestellt. Der Sprung in die 
Routine $BBD4 (genannt MOVMF) ist C 64-Benutzern 
schon aus den letzten Folgen vertraut: Die Register X und 
Y weisen als Zeiger auf eine Speicherstelle, in die durch 
MOVMF der Inhalt des FAC unter gleichzeitiger Umwand¬ 
lung ins MFLPT-Format transportiert wird. C 128-Benutzer 
finden diese Routine ab Adresse $8C03. Ihre Funktions¬ 
weise unterscheidet sich nicht von der entsprechenden 
C64-Routine. 

Fließkommazahlen per USR übergeben 


Wie haben wir die Zahlen übrigens in den FAC hineinbe¬ 
kommen? Da gibt es das - vom Basic-Programmierer 
gemiedene - Kommando USR(n), wobei »n« ein beliebiges 
Argument sein kann. Dieses n nun findet man nach dem 
USR-Kommando im FAC vor. Wie funktioniert USR? Stößt 
der Interpreter auf dieses Kommando, dann führt er einen 
Sprung in ein Maschinenprogramm aus, dessen Adresse 


10 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

X*###»#*****# -,0547 

20 REM # 

* .0697 

30 REM x PROGRAMM ZUM UMWANDELN VON ZAHL 

EN IN DIE * <1557 

40 REM X C 64-FORMATE MFLPT (AB »6000 

> * <0597 

50 REM X FLPT (AB *6010 

) * < 010 > 

60 REM X 


x 

70 REM X HEIMO PONNATH HAMBURG 198 

6 X 

80 REM X 

x 

90 REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


< 1 09 > 
<1997 

< 129 > 


xxxxxxxxxxxxx 
100 REM 

110 PRINT CHR*(147)"IST DER SMON AB *C000 
SCHON EINGELADEN<2SPACE>(J/N)" 5 :INPUT 
A* 

120 IF A*<>"J" TUEN PRINT"WUENSCHE BUTEN A 
BSTURZ...ODER SMON LADEN!”:END 
130 FOR 1=0 TO 17:REM EINLESEN DES MASCHIN 
ENPROGRAMMES 
140 READ DnPOKE 828+I,D 
150 NEXT I 

160 REM-DAS MASCHINENPROGRAMM- 


< 134 > 
<1627 


<043> 


020 > 

<001 > 

<223> 
<234 7 


- <1167 

170 DATA 162,000 :REM LDX #*00 ;LSB 

ZIELADRESSE <111> 

1B0 DATA 160,096 :REM LDY #*60 ; MSB 

<028> 

190 DATA 032,212,187.-REM JSR *BBD4 ;FAC 

-> <X/Y> <161> 

200 DATA 162,006 : REM LDX #*06 5 ZAE 

HLER EINRICHTEN <165> 

210 DATA 181,096 :REM LDA *60,X ;FAC 

AUSLESEN <0487 

220 DATA 157,015,096:REM STA *600F,X :UND 

UEBERTRAGEN <1567 

230 ü.", TA 202 .-REM DEX ; ZAE 

HLcR -1 <0087 

240 DATA 208,248 :REM BNE *0S3D ;WEI 

TER BIS FAC UEBERTRAGEN IST <2367 

250 DATA 096 : REM RTS ; ZUR 

UECK INS BASICPROGRAMM <0487 

260 REM <0687 

270 REM ,-USR-VEKTOR AUF *828 RICHT 

EN- <1397 

280 REM <0887 

290 POKE 7B5,60 :REM LSB DES USR-VEKTORS <0657 
300 POKE 786,3 :REM MSB DESSELBEN <0617 

310 REM <1187 

320 REM-EINGABEN UND USR-AUFRUF - 

- <1457 

330 REM <1387 

340 PRINT CHR*(147):INPUT"ZAHL EINGEBEN";A <0147 

350 B=USR(A>:REM B IST NUR EIN DUMMY <1897 

360 REM <1687 

370 REM - PROGR.DIREKTMODUS : MONITORA 

UFRUF- <2127 

3B0 PRINT CHR*(147)CHR*(171 <2357 

390 PRINT"SYS49152"CHR*(17)CHR#(17)CHR*(17 

)CHR*(17) <0887 

400 PRINT" M 6000 6001"CHR*(17):REM HIER L 

IEGT DIE ZAHL IM MFLPT-FORMAT <1467 

410 PRINT" M 6010 6011"CHR#(17)tREM UND HI 

ER IM FLPT-FORMAT <2137 

420 PRINT" X"CHR*(17) <0467 

430 PRINT"RUN490" <1967 

440 PRINT CHR*(19); <0357 

450 POKE 631,13 <0027 

460 POKE 198,1 SEND <0457 

470 REM - 


- <1957 

480 REM <0327 

490 PRINT:PRINT"AB *6000 MFLPT-FORMAT" <0767 

500 PRINT"AB *6010 FLPT-FORMAT" <1677 

510 PRINT:INPUT"WEITERE ZAHLEN (J/N)";A* <1797 

520 IF A*="J" THEN 340 <1067 

530 POKE 785,72:POKE 786,17B:REM USR-VEKTO 

R AUF NORMALWERT <0377 

540 END <0347 


Listing 32. Berechnung von FLPT- und MFLPT- 
Format für den C 64 
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C64, C128 


GRUNDLAGEN 


10 REM «»mm*«##*»####*#«#»*»**«*»»»«**»»**» 
#***#»#»»«# 


20 

REM 

# 



30 

REM 

# 

PROGRAMM ZUM 

UMWANDELN VON ZAHLEN 


IN 

DIE 

# 


40 

REM 

# 

C12B-FURMATE 

Li 

MFLPT (AB *6000) 

50 

REM 

# 

* 

JL 

FLPT (AB *6010) 

60 

REM 

# 



70 

REM 

# 

HEIMO PONNATH HAMBURG 19B6 

80 

REM 


M 


90 

REM 

»###»#»##»*»*#»###»#»##»«###•»##**»«« 


*#**#####»» 

100 REM 

HO FOR 1=0 Tb 17s REM EINLESEN DES MASCHINE 
NPRCJGRAMMES 

120 READ D*s POKE DEC<"1600")+1,DEC<D*) 

130 NEXT I 

140 REM-DAS MASCHINENPROGRAMM- 


150 

DATA A2,00 
LADRESSE 

s 

REM 

LDX 

#*00 

;LSB ZIE 

160 

DATA A0,60 

: 

REM 

LDY 

#*60 

; MSB 

170 

DATA 20,03, 
(X/Y) 

8 C: 

REM 

JSR 

*0C03 

;FAC -> 

1B0 

DATA A2,06’ 
EINRICHTEN 


REM 

LDX 

#*06 

;ZAEHLER 

190 

DATA B5,62 
LESEN 

s 

REM 

LDA 

*62, X 

;FAC AUS 

200 

DATA 9D,0F, 
ERTRAGEN 

60: 

REM 

STA 

*600F,X 

;UND UEB 

210 

DATA CA 
-1 

DATA D0,F0 
BIS FAC UEB 

: 

REM 

DEX 


;ZAEHLER 

220 

s REM BNE *1609 
'ERTRAGEN IST 

;WEITER 

230 

DATA 60 

: 

REM 

RTS 


;ZURUECK 


INS BASICPROGRAMM 
240 REM 

250 REM - USR—VEKTOR AUF *1600 RICHTE 

N- 

260 REM 

270 POKE DEC("1219"),0 : REM LSB DES USR-VEK 
TORS 

2B0 POKE DEC("121A"),22s REM MSB DESSELBEN 
290 BANK 15: REM SICHERHEITSHALBER 
300 REM 

310 REM-EINGABEN UND USR-AUFRUF- 


320 REM 

330 PRINT CHR*(147): INPUT "ZAHL EINGEBEN";A 
340 B=USR(A): REM B IST NUR EIN DUMMY 
350 REM 

360 REM - PROGR.DIREKTMODUS s MONITORAUF 

RUF- 

370 PRINT CHR*(147) CHR*(17) 

300 PRINT "MONITOR" CHR*(17> CHR*(17) CHR*(1 
7) CHR*(17) 

390 PRINT "M 06000 06001" CHR*(17): REM HIER 
LIEGT DIE ZAHL IM MFLPT-FORMAT 
400 PRINT "M 06010 06011" CHR*(17): REM UND 
HIER IM FLPT-FORMAT 
410 PRINT "X" CHR*(17) 

420 PRINT "RUN4B0" 

430 PRINT CHR*(19)J 

440 BANK 0s POKE B42,13s POKE B43,13s POKE B 
44,13s POKE B45.13S POKE 046,13 
450 POKE 208, 5s END 

460 REM - 


470 REM 

4B0 PRINT s PRINT "AB *6000 MFLPT-FORMAT" 

490 PRINT "AB *6010 FLPT-FORMAT" 

500 PRINT s INPUT "WEITERE ZAHLEN (J/N)"jA* 
510 IF A*="J" THEN 330 

520 POKE DECC1219") ,40s POKE DEC ( " 121A" ) , 12 
5s REM USR-VEKTOR AUF NORMALWERT 
530 END 


Listlng 33. Und dasselbe für den C 128 


Startadresse(S) 

Format 

Inhalt 

AEA8 

MFLPT 

Pi 

B1A5 

MFLPT 

-32768 

B9BC 

MFLPT 

1 

B9C2 

MFLPT 

Polynomkoeffizienten für 
LOG-Berechnung 

B9D6 

MFLPT 

SQR(1/2) 

B9DB 

MFLPT 

SQR(2) 

B9E0 

MFLPT 

-0.5 

B9E5 

MFLPT 

In 2 

BAF9 

MFLPT 

10 

BDB3 

MFLPT 

99 999 999.9 

BDBS 

MFLPT 

999 999 999 

BDBD 

MFLPT 

1 000 000 000 

BF11 

MFLPT 

0.5 

BFBF 

MFLPT 

1/ln2 

BFC5 

MFLPT 

Polynomkoeffizienten für 
EXP-Berechnung 

BFE3 

MFLPT 

In 2 

BFE8 

MFLPT 

1 

E2E0 

MFLPT 

PI/2 

E2E5 

MFLPT 

2 * Pi 

E2EA 

MFLPT 

0.25 

E2F0 

MFLPT 

Konstanten für die Entwicklung 
von SIN.COS,... 

E309 

MFLPT 

2* Pi 

E33F 

MFLPT 

Konstanten für die Entwicklung 
von ATN 

E376 

MFLPT 

1 


Tabelle 3. Die wichtigsten Zahlentabellen im ROM des C 64 


als Vektor beim C 64 in den Speicherzellen $311/$312 (dezi¬ 
mal 785/786) gespeichert ist. Er weist im allgemeinen auf 
die Adresse $B248, wo die Ausgabe der Fehlermeldung 
»SYNTAX ERROR« ausgegeben und ein Programmab- 
brucn ausgeführt wird. Der C 128 versteckt diesen Vektor 
in den Speicherstellen $1219/$121 A (dezimal 4633/4634). 
Sein Inhalt zeigt normalerweise auf die Adresse $7D28, die 
den »ILLEGAL QUANTITY ERROR« behandelt. 

In unseren beiden Programmen verbiegen wir einfach 
diese USR-Vektoren, so daß sie auf $1600 (C 128) oder 
$334 (C 64) zeigen, wohin wir unsere kleine Assembler- 
Routine gelegt haben. Der USR-Aufruf schaltet in dieses 
kleine Programm und transportiert das Argument n in den 
FAC. Wir könnten durch das M-Kommando des Monitors 
auch direkt in den FAC hineinsehen, würden dort aber nicht 
mehr unsere Zahl entdecken. Der FAC wird vom Zeitpunkt 
des USR-Aufrufes bis zur Ausführung des M-Kommandos 
verändert. Deshalb die Verschiebung des FAC-Inhaltes 
nach $6010. 

Das USR-Kommando ist zweifellos die bequemste 
Methode, Fließkommazahlen von Basic aus an ein Assem¬ 
blerprogramm zu übergeben. Leider ist das aber nur für 
einen Wert einfach. Werden es mehrere, dann steigt der 
Programmaufwand. Eine andere Methode haben wir in den 
letzten Folgen kennengelernt, nämlich die Obergabewerte 
durch FRMNUM aus dem Basic-Text zu lesen. Eine weitere 
Methode lernen wir in der kommenden Folge kennen: 
Variable werden vom Basic-Interpreter in einer Tabelle 
abgelegt, die man durchaus auch von Assemblerprogram¬ 
men her benutzen kann. Bevor wir uns aber diesen Mög¬ 
lichkeiten zuwenden, werden wir diesmal noch etwas mehr 
über Tabellen erfahren. 

Zur Ausrüstung von Schülern und Studenten (und vielen 
anderen) gehörte früher auch ein ständig mitgeschlepptes 
Tabellenwerk, in dem sich dann beispielsweise die Loga¬ 
rithmen der Zahlen von 1 bis 1000 fanden oder die Sinus¬ 
werte der Winkel von 0 bis 90 Grad und vieles andere mehr. 
Dann kam die Revolution durch die Taschenrechner: Kein 
mühseliges Nachschlagen mehr, kein Interpolieren, hohe 
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GRUNDLAGEN 


C64, C128 


Genauigkeit! Der Computer hat die Tabellen verdrängt... 
oder doch nicht? 

Zwar weiden solche Arbeiten wie das Berechnen eines 
Sinus oder von Logarithmen im Computer durch Entwick¬ 
lung von Potenzreihen erledigt. Das dauert aber verhältnis¬ 
mäßig lange und für besonders zeitkritische Programme 
greift der Assembler-Programmierer auf Tabellen zurück! 
Wir finden Tabellen in unserem Computer in verschiede¬ 
nen Erscheinungsformen: als Zahlentabellen mit Integer¬ 
oder Fließkommawerten, als Texttabellen, als Adressen¬ 
tabellen und als Sprungtabellen. 

Tabellen im ROM 


Falls Sie mal in der Situation sein sollten, beispielsweise 
den Wert 2*Pi in einem Programm benutzen zu müssen, 
dann können Sie sich viel Rechnerei ersparen, mit der Sie 
diese Zahl in das MFLPT-Format bringen: Im ROM befindet 
sich 2* Pi nämlich schon abrufbereit, genauso wie eine 
ganze Reihe weiterer Zahlen und Texte. Die ROM-Bereiche 
unseres Computers liefern uns also nicht nur Assembler- 
Routinen, die wir ansteuern, sie sind auch eine Daten¬ 
quelle. Damit Sie wissen, wo Sie was im Computer finden 
können, sehen Sie sich die hier abgedruckten Werte der 
Tabellen an. 

Tabelle 3 listet die wichtigsten Zahlentabellen im ROM 
des C 64 auf. Die Tabelle 4 zeigt die Zahlentabellen des 
C128. Die Tabellen 5 und 6 beziehen sich auf die Texttabel¬ 
len im ROM des C 64 und des C 128. 

Einige weitere interessante Tabellen im ROM des C 128 
listet Tabelle 7 auf. Schließlich finden Sie in Tabelle 8 noch 
die Sprungtabelle im C 128 und ihre Zuordnungen. 

Außer den hier vorgestellten Tabellen finden sich natür¬ 
lich noch weitere in den ROM-Bausteinen: Da gibt es Tabel¬ 
len zur,Decodierung der Tastatur, Tabellen von Farbwerten, 
Tabellen zur Initialisierung des Systems, die Default-Werte 
(Einscnaltwerte) enthalten und so weiter. 

Interessanter als die eben behandelten ROM-Tabellen 
sind natürlich Tabellen in eigenen Programmen. Nehmen 
wir einmal an, Sie benötigen in einem Programm sehr häu¬ 
fig irgendwelche Potenzen von 2 (also 2 hoch 3, 2 hoch 4 
und so weiter). Die dabei vorkommenden Hochzahlen 
bewegen sich zwischen 0 und 7. Nun können Sie natürlich 
jedesmal den Potenzwert ausrechnen, beispielsweise bei 
der Zahl 2 hoch 5: 

LDA #$02 ;Basis in den Akku laden, also 2 

ASL jmal 2 

ASL ;mal 2 

ASL ;mal 2 

ASL ;mal 2 

Nun steht das Ergebnis im Akku und Sie können damit 

weiter operieren. Komplizierter wird das aber schon, wenn 
Sie nicht Potenzen von 2, sondern - sagen wir mal - von 3 
oder 5 benötigen. Besser und auch schneller geht das mit 
Tabellen. Wir legen irgendwo eine Tabelle der Potenzen von 
2 an: 

TAB 1,2,4,8,16,32,64,128 

Brauchen wir nun 2 hoch 5, dann schieben wir die Hoch¬ 
zahl in ein Indexregister und laden den Akku durch die indi¬ 
zierte Adressierung: 

LDX #$05 jDas ist die Hochzahl 
LDA TAB,X ;und schon ist 32 im Akku! 

Es spielt nun auch keine Rolle mehr, ob wir die Potenzen 
der Zahl 2, 3 oder irgendeiner anderen Basiszahl benöti¬ 
gen: Tabelle anlegen, Hochzahl als Index wählen und den 
Akku indiziert laden. Braucht man für andere Zwecke auf¬ 
einanderfolgende Elemente der Tabelle, dann genügt es 
nun, durch INX oder DEX den Index zu variieren. 
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Startadresse($) 

Label 

Format 

Inhalt 

69D8 

n320 

MFLPT 

320'65535 

69DD 

n200 

MFLPT 

200*65535 

6FF9 

scalel 

1 -Byte 

LSB der 

Frequenzen 

7005 

scaleh 

1-Byte 

MSB der Frequenzen 
danach weitere Tabel¬ 
len mit Werten zur 
Musikprogrammierung 

849A 

n32768 

MFLPT 

-32768 

899C 

fone 

MFLPT 1 


89A2 

logco3 

MFLPT 

Koeffizienten für 
LOG-Berechnung 

89B6 

sqr05 

MFLPT 

SQR(1/2) 

89BB 

sqr20 

MFLPT 

SQR(2) 

89C0 

neghlf 

MFLPT 

-0.5 

89C5 

log2 

MFLPT 

In 2 

8B2E 

tenc 

MFLPT 

10 

8E17 

n0999 

MFLPT 

99 999 999.9 

8E1C 

n9999 

MFLPT 

999 999 999 

8E21 

nmil 

MFLPT 

1 000 000 000 

8F76 

(half 

MFLPT 

0.5 

9005 

logeb2 

MFLPT 

1/ln2 

900B 

expco7 

MFLPT 

Koeffizienten für 
EXP-Berechnung 

9485 

Pi2 

MFLPT 

Pi/2 

948A 

twopi 

MFLPT 

2*Pi 

948F 

fr4 

MFLPT 

0.25 

9495 

sincoö 

MFLPT 

Koeffizienten für 

SIN,COS,... 

94AE 

sincoO 

MFLPT 

2'Pi 

94E4 

atncll 

MFLPT 

Koeffizienten für ATN- 
Berechnung 

951B 

atncOO 

MFLPT 

1 

9F29 

angval 

2-Byte 

Sinuswerte 0 bis 90 
Grad in 10 Grad- 
Schritten 


Tabelle 4. Die wichtigsten Zahlentabellen im C 128-ROM mit 
ihren entsprechenden Startadressen 


Startadresse($) 

Inhalt 

A004 

CBMBASIC 

A09E 

Texte der Basic-Befehlsworte (im letzten Byte Ist 
jeweils das Bit 7 gesetzt) 

A19E 

Texte der Basic-Fehler- und Systemmeldungen 
(im letzten Byte ist Bit 7 gesetzt) 

A364 

Weitere Systemmeldungen:OK,ERROR,... (das 
letzte Byte ist jeweils 0) 

ACFC 

Fehlermeldungen für INPUT (letztes Byte ist 0) 

E460 

BASIC BYTES FREE 

E473 

Einschaltmeldung 

ECE6 

LOAD <RETURN>,RUN <RETURN> 

F0BD 

Texte für Ein- und Ausgabe-Operationen 

FD10 

CBM80 


Tabelle 5. Die wichtigsten Texttabellen im C 64-ROM mit 
Ihren entsprechenden Startadressen 


Slartadresse(S) 

Label Inhalt 

41BB 

sigmsg Systemmoldung bei Kaltstart 

4417 

reslst Liste der Basic-Befehlsworte 


(Bit 7 des letzten Byte Ist jeweils gesetzt) 

484B 

errtab Liste der Fehlermeldungen 


(Bit 7 des letzten Byte Ist jeweils gesetzt) 

63F5 

Namen der Programmautoren 

A7E8 

ARE YOU SURE? 

CEB2 

pkyl Standardtexte der Funktionstasten 

F6B0 

msgtbl Kernel-Textmeldungen 

F90B 

BOOTING 


Tabelle 6. Die wichtigsten Texttabellen im ROM des C 128 
mit ihren entsprechenden Startadressen 
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GRUNDLAGEN 


Komplexe Tabellen 


Diese einfachste Art der Ansteuerung einer Tabelle hat 
natürlich gewisse Einschränkungen zur Folge: Die Ele¬ 
mente dürfen nicht größer als 255 (also 1 Byte) sein, es dür¬ 
fen nicht mehr als 256 Elemente verwendet werden. 

Hätte unsere Potenztabelle nun immer 16-Bit-Werte auf¬ 
gelistet, gehörten also zu jedem Element 2 Byte, dann 
müßte der Index vor dem Zugriff in die Tabelle jeweils ver¬ 
doppelt werden. Dazu wieder unsere Tabelle der Zweier¬ 
potenzen als Beispiel: 

0.1, 0.2, 0.4, 0.8, 0.16, 0.32, 0.64, 0.128 

Hier haben wir die Potenzwerte jeweils in der Reihen¬ 
folge MSB.LSB abgelegt. Suchen wir nun den Wert für 2 
hoch 5, dann programmieren wir: 


LDA #$05 

;Das ist wieder die Hochzahl 

ASL 

;verdoppeln 

TXA 

;und ins X-Register schieben 

LDA TAB,X 

jladen des MSB (10. Wert in der Tabelle) 

STA ... 

;und ablegen an der Stelle, an der es 


gebraucht wird 

INX 

; Index erhöhen 

LDA TAB,X 

; laden des LSB 


Startadresse(S) 

Label 

Inhalt 

46FC 

stmdsp Adressentabelle der Basic-Befehle 

AE63 

kydmsg verschlüsselte Mitteilung der Pro¬ 
grammautoren 

AF00 

jmptbl 

Sprungtabelle der Interpreter-Routinen 

C6DD 

funtab 

ASCII-Codes der Funktionstasten 

CE74 

loczp 

Tabelle der Default-Werte 40-Zeichen- 
Bildschirm 

CE8E 

locabs 

Tabelle der Default-Werte 80-Zeichen- 
Bildschirm 

F7F0 

config 

MMU-Konfigurationen für BANK 0 bis 
BANK 15 

FF47 

kspio 

Kernel-Sprungtabelle 

FFF8 

System 

Tabelle der Systemvektoren 
(Initialisierung, NMI, Reset und IRQ) 


Tabelle 7. Weitere wichtige Tabellen im ROM des C 128 


Damit hätten wir dann die 16-Bit-Zahl aus der Tabelle 
gelesen. Anstelle der beiden letzten Zeilen hätte auch eine 
einzige genügt: 

LDA TAB+1,X ;laden des LSB 
Adressen sind solche 16-Bit-Werte und daher findet man 
diese Technik der Tabellenmanipulation auch sehr häufig 
bei Adressentabellen. Beispielsweise haben wir im ersten 
Modul des Programms 30 ab Zeile 970 auf diese Weise eine 
Sprungadresse aus der Tabelle SPRTAB gelesen. Dazu 
werden wir gleich noch kommen. 

Es gibt Tabellen, deren Elemente jeweils mehr als 2 Byte 
enthalten. In solchen Fällen genügen häufig zwei oder 
mehrere ASL des Index oder aber man führt jeweils eine 
Addition des entsprechenden Offset zum Index aus. 

lange Tabellen 


Einige Tabellen, besonders Texttabellen, sind länger als 
256 Byte. In dem Fall ist es nicht mehr möglich, die einzel¬ 
nen Elemente (oder Teile der Elemente) mittels der bisher 
angewandten absolut X-indizierten (oder auch Y- 
indizierten) Adressierung anzusprechen, denn die Regi¬ 
ster fassen nur Zahlen von 0 bis 255. Wir greifen dann zur 
indirekt-indizierten Adressierung. Ein 16-Bit-Zeiger in der 


Inhalt 


Ziellabel 

Funktion 

JMP 

$84B4 

ayint 

FAC — > Integer mit Vorzeichen 

JMP 

$793C 

givayv 

Integer in Y/A zu FLPT in FAC 

JMP 

$8E42 

fout FAC 

—> String, Adresse in A/Y 

JMP 

$8052 

vall 

String auswerten 

JMP 

$8815 

getadr 

FAC —> Integer in Y/A 

JMP 

$8C75 

floate 

Exponent in FAC, normalisieren 

JMP 

$882E 

fsub 

FAC = FAC - (A/Y) 

JMP 

$8831 

fsubt 

Basic-Funktion Minus 

JMP 

$8845 

fadd 

FAC = FAC + (A/Y) 

JMP 

$8848 

faddt 

Basic-Funktion Plus 

JMP 

$8A24 

fmult 

FAC = FAC * (A/Y) 

JMP 

$8A27 

fmultt 

Basic-Funktion Mal 

JMP 

$8B49 

fdlv 

FAC = (A/Y) / FAC 

JMP 

$8B4C 

fdivt 

Basic-Funktion Division 

JMP 

$89CA 

log 

Basic-Funktion LOG 

JMP 

$8CFB 

int 

Basic-Funktion INT 

JMP 

$8FB7 

sqr 

Basic-Funktion SQR 

JMP 

$8FFA 

negop 

Basic-Funktion negatives 
Vorzeichen 

JMP 

$8FBE 

fpwr 


JMP 

$8FC1 

fpwrt 

Basic-Funktion Potenz 

JMP 

$9033 

exp 

Basic-Funktion EXP 

JMP 

$9409 

cos 

Basic-Funktion COS 

JMP 

$9410 

sin 

Basic-Funktion SIN 

JMP 

$9459 

tan 

Basic-Funktion TAN 

JMP 

$94B3 

atn 

Basic-Funktion ATN 

JMP 

$8C47 

round 

FAC runden 

JMP 

$8C84 

abs 

Basic-Funktion ABS 

JMP 

$8C57 

sign 

Vorzeichenflag — > Akku 

JMP 

$8C87 

fcomp 

FAC mit (A/Y) vergleichen 

JMP 

$8437 

rndO 

Zufallszahl holen 

JMP 

$8AB4 

conupk 

(A/Y) — > FAC 

JMP 

$8A89 

romupk 

(A/Y) — > ARG 

JMP 

$7A85 

movfrm 

(A/Y) — > FAC 

JMP 

$8BD4 

movfm 

(A/Y) — > FAC ' 

JMP 

$8C00 

movmf 

FAC—> (X/Y) 

JMP 

•8C28 

movfa 

ARG — > FAC 

JMP 

$8C38 

movaf 

FAC—> ARG 

JMP 

$4828 

optab 

Tabelle der Prioritätsflags der 
mathematischen Routinen 

JMP 

$9B30 

drawln 

Strecke zeichnen 

JMP 

$9BFB 

gplot 

Punkt setzen 

JMP 

$6750 

cirsub 

Drehung ausführen 

JMP 

$5A9B 

run 

Basic-Statement RUN 

JMP 

$51F3 

runc 

Basic-Zeiger initialisieren, CLR 

JMP 

$51F8 

clear 

Basic-Statement CLR 

JMP 

$51D6 

new 

Basic-Statement NEW 

JMP 

$4F4F 

Inlprg 

berechnen der Linkadressen 

JMP 

$430A 

crunch 

Wandlung von Text In Tokens 

JMP 

$5064 

fndlln 


JMP 

$4AF6 

newstt 

Stoptaste abfragen, nächsten 
Basic-Befehl holen 

JMP 

$78D7 

eval 

Ausdruck auswerten 

JMP 

$77EF 

frmevl 

folgenden Ausdruck auswerten 

JMP 

$5AA6 

runprg 

aktives Programm starten 

JMP 

$5A81 

setexc 

Programm-Modus setzen 

JMP 

$50A0 

linget 

Zeilennummer holen 

JMP 

$92EA 

garba2 

Garbage collection ausführen 

JMP 

$4DCD 

execln 



Tabelle 8. Die C 128-Sprungtabelle der Interpreter-Routinen 


Zeropage wird mit der Startadresse der Tabelle geladen, 
das Y-Register dient als Index. Das Ansprechen der einzel¬ 
nen Bytes geschieht dann beispielsweise wie folgt: 


LDA 

INDEX 

jaktuellen Index laden 

ASL 


;und verdoppeln (Elemente sind 2-Byte- 
Werte) 

BCC 

KLEIN 

jverzweigen, wenn dabei kein Überlauf 
eintrat 

INC 

ZER0+1 

;bei Überlauf MSB der Tabellen- 
Startadresse erhöhen 

TAY 


;Offset ins Indexregister schieben 
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LDA (ZERO),Y;in ZERO und ZERO+1 liegt die 
Startadresse der Tabelle 
;und wir haben das LSB eines Elementes 
geladen 

STA ... ;an geeigneter Stelle speichern 
INY Indexregister auf MSB richten 

LDA (ZERO),Y;MSB laden 
STA ... ;und an geeigneter Stelle 
weiterverwenden 


Dabei war ZERO/ZERO+1 der Vektor in der Zeropage, 
der auf den Tabellenstart wies und INDEX eine Speicher¬ 
stelle, die den gerade aktuellen Index enthielt, beispiels¬ 
weise die Hochzahl bei einer Potenztabelle. Noch mehr 
Möglichkeiten bieten sich, wenn man für den Index einen 
16-Bit-Wert reserviert. Im folgenden Beispiel seien 
INDEX/INDEX+1 die dafür gedachten Speicherstellen: 


LDA INDEX 
ASL 

TAY 

LDA INDEX+1 
ROL 

ADC ZERO+1 
STA ZERO+1 
LDA (ZERO),Y 
STA ... 

INY 

LDA (ZERO),Y 
STA ... 


;LSB des Index laden 
jund verdoppeln (Elemente sind 2-Byte- 
Werte) 

jOffset ins Indexregister schieben 
;MSB des Index laden 

;Ebenfalls verdoppeln, aber mit Carry-Bit 
jdazu MSB der Tabellenadresse addieren 
jund als neues MSB merken 
;jetzt LSB des aktuellen Elementes laden 

;Indexregister auf MSB richten 
;und MSB des Elementes laden 


Auf diese oder ähnliche Weise können Sie noch so aus¬ 
gedehnte Tabellen beherrschen. 

Im Vergleich zu Zahlen- oder Adreßtabellen weisen Text¬ 
tabellen meist die Besonderheit von Elementen variabler 
Bytezahl auf. Beim Lesen der einzelnen Bytes eines Ele¬ 
ments fügt man hier immer eine Prüfung auf ein Textende- 
Merkmal ein. Solche Merkmale sind beispielsweise Null- 
Bytes. Durch ein BEQ kann dann reagiert werden und zwei 
Null-Byte markieren das Ende der Tabelle. Manchmal ver¬ 
wendet man auch etwas platzsparendere Kennzeichen wie 
ein gesetztes Bit 7 eines Zeichens. Dann darf allerdings die 
Tabelle keine Zeichen enthalten, die von sich aus schon mit 
gesetzten Bit 7 aufwarten. Hier wird dann durch BMI oder 
BIT und nachfolgendes Abfragen der entsprechenden 
Flaggen geprüft, ob ein Textende-Merkmal vorliegt. 


Adressentabellen 


Das Lesen von Adressentabellen haben wir vorhin bei den 
Zahlentabellen schon mitbehandelt. Sie verhalten sich wie 
Tabellen mit 2-Byte-Elementen. Hier soll es nun darum 
gehen, wie man die so gefundenen Adressen weiterver¬ 
wendet, um einen Sprung an die herausgesuchte Adresse 
zu vollziehen. Die Technik der selbstmodifizierenden 
Sprunganweisung haben wir im Programm 30 in Zeile 1070 
gewählt. Die Zeilen 1000 bis 1030 lesen LSB und MSB der 
Zieladresse aus der Sprungtabelle und tragen sie hinter die 
JSR-Anweisung in Zeile 1070 ein. Dorthin gelangt danach 
das Programm und vollzieht den Sprung. 

Der Nachteil dieser Technik ist, daß sie nur in R AM-Berei- 
chen funktioniert, weil ins Programm geschrieben werden 
muß. Arbeitet man mit ROMs oder EPROMs, dann bieten 
sich zwei andere Möglichkeiten an, von denen wir zuerst 
die Verwendung eines indirekten Sprungs vorstellen wol¬ 
len. Dazu speichert man die gelesenen Tabellenwerte in 
einen Vektor aus der Zeropage (beispielsweise 
ZWSP/ZWSP+1) und springt dann mit 



Bild 32. So wird eine Fließkommavariable in die Variablen¬ 
tabelle eingetragen. Byte 1 und 2 enthalten den Namen 



Bild 33. Format eines Integervariablen-Eintrages in die 
Variablentabelle. Byte 5, 6 und 7 bleiben ungenutzt. 


JMP (VURP) ; das ist der selten benutzte indirekte 
Sprung 

in die gesuchte Routine. Nebenbei bemerkt: ZWSP/ 
ZWSP+1 muß nicht unbedingt in der Zeropage stehen: 
Man kann beliebige andere Speicherbereiche für diesen 
Vektor verwenden. 

Auf den ersten Blick etwas irritierend wirkt die andere 
Technik, die sich des Stapels bedient. Hier ein Beispiel: 

LDA INDEX jaktuellen Index laden 

ASL jund verdoppeln (Adresstabelle!) 

TAX jins Indexregister schieben 

INX jIndexregister auf MSB richten 

LDA TAB,X ;MSB der Zieladresse laden 
PHA jund auf den Stapel schieben 

DEX ; Indexregister auf LSB richten 

LDA TAB,X ;LSB der Zieladresse laden 
PHA jund auf den Stapel schieben 

RTS ; 111 

Die Frage ist: Was macht RTS? Hier die Antwort und 
gleichzeitig die Lösung des Rätsels: 

1) RTS holt die auf dem Stapel gespeicherte Adresse ab 
und schreibt sie in den Programmzähler. Damit die Reihen¬ 
folge LSB/MSB stimmt, muß als letztes das LSB im Stapel 
landen. 

2) RTS vermindert dann den Stapelzeiger um 2. Das sei nur 
der Vollständigkeit halber gesagt. 

3) RTS addiert zum Programmzähler eine 1 und dann läuft 
das Programm von dieser Adresse an weiter. 

Insgesamt ergibt sich daraus dann ein Sprung zum 
gewünschten Programm. Wegen des dritten Punktes der 
RTS-Tätigkeit muß man aber darauf achten, daß in der 
Adressentabelle nicht ZIELADRESSE, sondern immer 
ZIELADRESSE-1 steht! 

Mir wird bei diesem Sprung überden Stapel immer etwas 
mulmig zumute. Allzu unklar ist der Gebrauch des RTS. Ich 
bin mir nie so ganz sicher, ob ich (oder ein anderer Benut- 
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Bild 34. Ein String erzeugt diesen gegenüber Bild 32 und 
33 komplexeren Eintrag in die Variablentabelle 


Wie leicht haben wir es da in Basic, wo all dies der Inter¬ 
preter mit seinen Routinen für uns erledigt. Außer in weni¬ 
gen Spezialfällen verfahre ich daher meistens so: Ein 
Basic-Rahmen-Programm erledigt die Annahme und 
Organisation (fast) aller Variablen und Arrays. Aus diesem 
Programm wird dann in das Assemblerprogramm geschal¬ 
tet, das mit den eingegangenen Werten arbeitet. Auf diese 
Weise spielt sich der von der Geschwindigkeit her kritische 
Teil eines Programms in der schnellen Maschinensprache 
ab, der von daher aber unkritische Teil der Variablenorgani¬ 
sation (häufig dreht es sich ja um einen interaktiven Teil) im 
Rahmen des Basic und höchst einfach. Um so arbeiten zu 
können, müssen wir mehr über die Variablentabellen wis¬ 
sen und auch über die Routinen, die der Interpreter zum 
Zugriff darauf anbietet. 



Bild 35. Auch das findet sich in der Variablentabelle: eine 
durch den Benutzer definierte Funktion. 


zer) nach einigen Monaten ein Programm mit diesem Trick 
noch völlig durchschauen kann. 

Nun wenden wir uns besonderen Tabellen zu, nämlich 
den Variablentabellen, die der Basic-Interpreter anlegt. 
Wozu das, werden Sie vielleicht fragen, wir programmieren 
doch in Assembler? Nun, es sei keinem verwehrt, sich das 
Leben unnötig schwerzumachen! Wer aber ökonomisch 
programmieren möchte, dem lege ich nicht nur die Routi¬ 
nen des Basic-Interpreters, sondern auch den problem¬ 
losen Umgang mit Variablen durch diesen Interpreter ans 
Herz. 

Kooperation von Basic und Assembler 


Nehmen wir einmal an, wir schreiben ein Assemblerpro¬ 
gramm, das alle Variablentypen und auch Arrays benötigt 
und diese während des Programmlaufes erst erhält (durch 
manuelle Eingabe, von Diskette etc.). Was hätten wir zu 
programmieren? Handelt es sich nicht nur um ganz wenige 
Werte (für die braucht man keinen großen Aufwand zu trei¬ 
ben), dann muß eine Routine geschrieben werden, die die 
Abfrage durchführt (beispielsweise mit einer Aufforderung 
an den Benutzer, den Wert nun einzutippen). Weiterhin 
muß nun der Typ erkannt werden, denn beispielsweise kön¬ 
nen Integerzahlen viel einfacher und schneller verarbeitet 
werden als Fließkommazahlen, und wenn man Boolesche 
Variable auch noch zuläßt, ist wieder eine andere Behand¬ 
lung angesagt - von Strings oder Arrays der verschiedenen 
Typen sowie Funktionsdefinitionen ganz zu schweigen. 
Damit aber noch nicht genug! Die eingegebenen Werte 
müssen irgendwo so sinnvoll abgelegt werden, daß sie im 
richtigen Format jederzeit schnell wiedergefunden werden 
können, Fehler müssen aufgefangen und eventuelle Aus¬ 
gabemöglichkeiten eingeplant werden: Eine wahre Herku¬ 
lesaufgabe! 


Vartablentypen des Basic 


Sehen wir uns zunächst einmal die verschiedenen Arten 
von Variablen des Basic an: Eine erste grobe Unterteilung 
liefert zwei Sorten von Variablen. Man findet nämlich soge¬ 
nannte indizierte und nichtindizierte. Die indizierten sind 
solche, die in einem Zusammenhang mit anderen indizier¬ 
ten in einer bestimmten Ordnung, dem Feld oder Array ste¬ 
hen und die durch einen Index voneinander unterschieden 
werden (beispielsweise A(2), A(7) und so fort). Ihnen wer¬ 
den wir uns später widmen. Es bleiben also zunächst die 
Variablen ohne Index, von denen wir in der durch den Inter¬ 
preter angelegten Variablentabelle vier Sorten finden. Jede 
Sorte beansprucht einen sieben Byte langen Eintrag in der 
Tabelle. 

Am häufigsten verwendet der Basic-Programmierer (und 
der Asc.mblerspezialist wohl auch) die Fließkommavaria¬ 
ble. Was man darunter zu verstehen hat, haben Sie ja inzwi¬ 
schen erfahren. Im Basic-Programmtext tauchen diese 
Variablen ohne weitere Kennung auf, beispielsweise als A, 
AI, CD und so fort. Bild 32 zeigt Ihnen den Aufbau eines sol¬ 
chen Fließkomma-Variablen-Eintrages in die Variablenta¬ 
belle. Die beiden ersten Byte enthalten den Namen (im 
ASCII-Format), die restlichen fünf Byte den Wert der Varia¬ 
blen im MFLPT-Format. 

Integervariable (also ganze Zahlen, die sich in zwei Byte 
ausdrücken lassen) werden im Basic-Text durch das 
%-Zeichen markiert. In Bild 33 sehen Sie den Unterschied 
zur Fließkommavariablen beim Eintrag in die Variablenta¬ 
belle. Auch hier geben die beiden ersten Byte den Namen 
der Variablen wieder, dabei findet zwar das ASCII-Format 
Anwendung, aber bei beiden Byte ist als Kennung noch Bit 
7 gesetzt. Die Bytes 3 und 4 enthalten den 2-Byte- 
Variablenwert in der Reihenfolge MSB/LSB. Die restlichen 
Byte sind mit Nullen gefüllt, sie bleiben unbenutzt. 

Wie Sie sicher wissen, sind Stringvariablen durch das 
$-Zeichen markiert. Ihr Eintrag in die Variablentabelle ist 
etwas komplexer als die beiden bisher betrachteten Typen, 
siehe Bild 34. Die beiden ersten Byte enthalten wiederden 
Variablennamen, wobei im zweiten Byte das Bit 7 gesetzt 
ist (zur Kennzeichnung des Typs). In den drei folgenden 
Byte findet sich der sogenannte Stringdescriptor (zu 
deutsch »Stringbeschreiber«). Byte 3 (das erste Byte des 
Descriptors) enthält die Stringlänge, die Bytes 4 und 5 die 
Startadresse des Textes im normalen 2-Byte-Format. Die 
restlichen beiden Bytes sind unbenutzt und in ihnen steht 
der Wert 0. In diesem Variableneintrag liegt nur eine genau¬ 
ere Beschreibung der Variablen! Wo also ist der Text und 
wie sieht er aus? 

Vom oberen Ende des Basic-RAM an abwärts sind die 
Stringtexte zu finden. Beim C 64 also ab $A000, beim C128 
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Schaffen Sie sich ein interessantes Nachschlagewerk und gleichzeitig ein 
wertvolles Archiv! 


Kennen Sie alle Ausgaben von 64’er? Suchen Sie einen ganz bestimmten Itestbericht? Oder haben Sie einen Teil 
eines interessanten Kurses versäumt? Suchen Sie nach einer speziellen Anwendung? 

Damit Sie jetzt fehlende Hefte mit »Ihrem« Artikel nachbestellen können, finden Sie auf diesen Seiten eine 
Zusammenstellung aller wesentlichen Artikel der Ausgaben 01 bis 12/85. 

Und so kommen Sie schnell an die noch lieferbaren Ausgaben: Prüfen Sie, welche Ausgabe in Ihrer Sammlung 
noch fehlt, oder welches Thema Sie interessiert. Tragen Sie die Nummer dieser Ausgabe und das Erscheinungs¬ 
jahr (z.B. 2/85) auf dem Bestellabschnitt der hier eingehefteten Bestell-Zahlkarte ein. Die ausgefüllte Zahlkarte ein¬ 
fach heraustrennen und Rechnungsbetrag beim nächsten Postamt einzahlen. Ihre Bestellung wird nach Zahlungs¬ 
eingang umgehend zur Auslieferung gebracht. 
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49 

07/85 

Dlverec* 

New York City und Air Support 

145 

06/89 

Hardware-Tips und Bauanleitungen 



Audio/Vidoo 

Mit 0 fdark zu nouon Dimonsionon (Stereoonlage 
am C 64) 

34 

09/88 


Ein Monitor lat genug (RGB * Compoaite an C 120) 

16 

10/85 

C 16 

Alte Datatetto am C 18 

31 

04/85 


Alter Joystick am C 10 

35 

03/86 

Eingabe¬ 

geräte 

Dor Hoiior — Zuaamaatatur für den MSE 

49 

10/86 

EPP.074 

EPROfds im Expansion-Port 

48 

10/85 


EPROM-Trarts — Die Super-Erwclteruna 

43 

10/85 

Floppy/DaU- 

Da» 64'or EPROM-Pregrenimtergerä«. TV.: i 
Diskettenlaufwerk 1541 selbst justiert 

44 

33 

12/85 

10/85 

aette 

Dio DaUsotto atreikt nie wieder (Anpassung des 
Tbnkopfs) 

34 

10/83 

lEC-Bus 

Auf »u neuen Welten: lEC-Bus lm Selbstbau 
(«Fohlertoufel 10/05) 

44 

07/88 

Joystick 

Joystick imSolbstbau 

33 

03/85 


Dauorfouor Adapter 

46 

08/85 

R5332/V.24 

Das 30-Mark-Intorface (Selbstbau RS232) 

29 

03/85 


Genau betrachtet- Die RS333/V.34-Schnitntollo 

80 

05/83 

Diversos 

Usorpor» Display 

36 

03/85 


Rcsel-Tbsto« für slio Fälle (-.Fohlen. 9/55) 

130 

06/85 


Au» eins mach vier (abat unfreie BetnebwyBiem- 
umschaltung) 

41 

07/85 

Hardware-Grundlagen 



Computer 

Ws* bringt der C IM? 

211 

11/85 

Drucker 

Welcher Druckor tat der Richtige? (Grundlagen) 

19 

05/85 


Hammerworko — wie funktionieren Typenrad- 

33 

06/83 


druckor 

Dlo Alternativen; Thermo-, Tlntenatrahldruckei 
. Plotter 

24 

07/85 

Eingabe- 

Vonitoht 5lo Ihr Computor? (Wie funktionieren 

44 

09/88 

geilito 

Eingabegeräte) 



nopm 

Floppy odor DalueUO? 

129 

06/80 

Monitors 

WtofunV.iioniOKin»lo,wa»K.iböim Kauf»uboarhton? 

IQ 

13/85 


Das Kabol aum Monitor Welche Normon gibt es? 

an 

12/85 

Periphorle 

Orafikolngabegortt.- Wie funktionieren ale? 

30 

08/85 

Hardware-Tests 



Computer 

Ooneratioftswechsol: Tbst C 10 

10 

01/85 


Erntor auaführlichor Tbst C I2B PC (Toll 1) 

10 

011/85 


Erster ausführlicher Tbat C 128, PC (Teil 3) 

17 

07/83 

DFÜ 

Marktbericht Modem» 4 Akustikkoppler 

33 

07/85 

Drucker 

Vorglolch: Druckor untor 700 Mark (Testa und 

19 

05/80 


MarktUboralcht) 

Tbsta und Marktüborsicht Typonraddrucker 

35 

06/85 


Tbst; Brother EP 44 

27 

07/85 


Brother TC 600 

118 

08/85 


Pitoman C* 

133 

W/AS 


Panasonic KX PI00I 

134 

09/85 


Btar BO IOC 

133 

W/88 


Melchern CF Ö0X - wio hätten Slo'a denn gorn» 

25 

10/85 


Ceholmtlp Dor RF1 DP HW 

34 

10/88 


Epson OX 00 - otnor für alle 

26 

10/83 


MPS 803 - oin Druckor für «Ile Oologonhoiton» 

40 

1/85 


Epson JX 80 das vlolhtbigo Druck-Conie 

38 

11/85 


Epson PX-B5 neue Koforonx 

42 

11/65 


SP 1000 VC - SuptMin.il mit Haken 

41 

11/85 


Dor NEC P3 - dae fomOatllcho Wundor 

159 

12/89 


DMPC9 eine solide Saoho 

103 

12/85 


Da* Doppolloben dos Jo-ysUck Potts; I0er-T#»latuion 

SO 

09/09 


Joysticks: Tbst und Marktbericht (a Fohlortoulol 

19 

11/85 


13/85) 

En goht auch andois; Llghtpon* und Trackballs 

22 

11/85 

EPROMor 

Frisch gebrannt Ist halb gospolchert (EPROM- 
ProgrammlorgerBte Im Tbst) 

30 

07/05 


QulckByto II - das Kraftpakot 

1« 

38 

10/85 

sotto 

« PrologicDOS 

Das große Rennen Schnalle Bandlaufwerke 

37 

10/05 


Professionelle Floppylaufworko für den C 64 (IEC- 
Flopple») 

30 

10/63 


Out gekauft ist halb gespeichert (Marktbericht 
Disketten) 

38 

10/88 

Grafik 

Dio VidooworksUtt (Digitizer Tbst) 

32 

05/85 


Digitalbilder md. C 64: PnniTbchnlk Digitlrer 

34 

01/85 

lntorface 

Hardwaic-Intoifacc ganz wolch: Tbst EC 64 

23 

01/08 


Gute Connections — Übersicht Schnittstellen 

31 

03/85 


Card/Print *6 - Das Allround-Intorfaco 

20 

03/88 


Das Wiesemann-Contionice-Interfaco 

10 

03/85 


Stichwert 

Titel 

5*11« 

Au»gab. 


Eiet ein IEC-Bus öffnot TOi und Tbr 
(♦ Fehlort.4/0-85) 

24 

03/88 

Monitoio 


30 

12/68 

Musik 

Trommelwirbel Tbst Digital Drums 

46 

08/63 


Dio Muitkhardwaro «um C 04 

17 

00/83 

Roboter 

Robotor selbst gebaut (Flschortochnik) 

167 

10/63 

Scannor 

So lernt Ihr Drucker leaen 

30 

00/83 

Spolchor 

Spolchertunlng VC 30: Tbst 64 KByte Karte 

36 

01/83 

Stouom 

Flottes Türmchon- MEA Interface 

116 

08/05 

Kurse 




Assembler 

Asiemblor t»t ketno Alchimie, Tbil 3 

142 

01/05 


Assembler Ist keine Alchimie, Tbll 7 

124 

03/BS 


Assembler ist keine Alchimie, Tbll 0 

138 

05/85 


Assembler Ist koino Alchimie. Tbil 10 

127 

07/05 


Assembler lat keine Alchimie, Tbil 11 

126 

03/HD 


Assembler lat kelno Alchimie, Tbil 12 

IW 

W/85 


Assembler ist keine Alchimie. Tbll 13 (Schluß) 

143 

10/85 

C 128 

Entdeckungsreise duch den C 128 

43 

13/85 

Effektives 

Müllabfuhr im Computor Garbago Collection, 

122 

01/85 

Progrsmlc- 

Tbil 1 



ren 

Findon mit 5ystom. eine neuartige Suchmethode. 

148 

03/85 


Tbil 3 

Sortioron mit dom Computor, Tod 2 

159 

05/05 


Sortieren mit dem Computer. Teil 3 

124 

06/85 


Sortieren mit dem Computer. Tbil 4 

138 

08/83 


Sortieren mit dem Computer. Toll 5 

124 

09/85 


Sortieren mit dem Computer. Teil 6 (Schluß) 

150 

12/B5 

Extom 

C 04 extern - Der Wog nach draußen. Teil 1 

144 

08/85 


C 64 extom — Dor Wog nach draußen. Toll 2 

122 

09/85 


C64extern —Der Weg nach draußen,Tbl!3(Schluß) 

129 

10/83 

noppy 

ln die Geheimnisse dor Floppy elngetsucht, Tbll 4 

HD 

01/63 


ln dlo Gohotmnito dor Tloppy oingotaucht. Teil 6 

130 

03/85 



145 

03/B3 


In dlo Geholmnliee der Floppy olngeUucht. Tbil 7 
(Schluß) 

HO 

06/85 


Diroctoty-Maniptiliticinon I 

140 

06/83 

Flopp/ 

Diroctory-ManipuUtlonon 11 

163 

10/85 

Grafik 

Htros 3-15 nouo Baric-läofohlc, Tbll 2 

>3ß 

03/85 


Hire» 3 - Gralikkure-Anwendung, Tbll 3 (Schluß) 

153 

00/89 


Spritoi ohno Gehoimniiso 

40 

03/85 


Strolfiügo durch dlo Grafikwolt. Tbll 1 

106 

09/65 


Strelfsüge durch die Grafikwolt, Tbll 3 

149 

ll/M 

Logeiolon 

Logeloion, Tbll 1 

143 

07/85 


Logolnlon, Teil 3 

136 

OÜ/85 


Logeloion. Tbll 3 (Schluß) 

115 

09/85 

Musik 

Dom Klung auf der Spur, Toll 2 

136 

01/85 


Dom Klang auf dar Spur, Tbll 4 

131 

04/85 


Dom Klang auf dor Spur, Toil 6 

153 

03/88 


Dom Klang auf der Spur, Tbll 7 

133 

07/83 


Dem Klung auf dor Spur, Toll 8 

133 

00/85 


Dom Klong auf dor Spur, Tbll 0 

125 

10/83 


Dom Klang auf dor Spur. Toil 10 (Schluß) 

157 

11/85 

Spolchor 

Momory Map mH Wandorvorachlägon, Tbll 3 

13(1 

01/BS 


Memory Map mH WandotvorschlBgon, Toll ß 

144 

03/05 


Momory Map mit WandoivorachlUgon. Toll 7 

130 

03/85 


Momory Map mll WandoivorcchlHgcui. Tbil H 

HO 

07/85 


Momory Map mit Wandotvorschlägen, Tbll 0 

139 

W/85 



na 

W/05 


Memory Map mll Wandtmoinchlägon. Tbll II 

133 

10/85 


Momory Map mll Wandorvorocltlflgon. Tbll 12 

145 

11/85 


Momory Map mit WandorvonchlBgon, Tbll |.T 

HO 

12/85 

Sprachen 

Bu»lc lat out - es lebe Fortli 

43 

01/85 

VC 20 

Dor gläserne VC 20. Tbll 4 

130 

01/05 


Dor gllaerno VC 20, Toll 8 (Schluß) 

188 

03/05 

Softwaro-Tips 



C 120 

Etsto riegon und Antworten »um C I2Q 

14 

00/83 


Fragen und Antworten »um I28nr 

20 

10/65 


Fragen und Antworten »um 128er 

40 

12/00 

Druckor 

Do« Mf’.T 802 lornt Deutsch 

30 

05/03 


Contronlcs-lntorfaco für joden Bedarf 

76 

07/65 

TbxlvoiBtbol- 

Software Cornor - profoaaionello Programme 

174 

12/83 

tung 

richtig olngo»ot«t (VI»»wntoTipo) 



Tips 4 Trick» 

Autoboot beim C 64 

ßö 

03/89 



03/83 


Undefinierte Opcodea dea 8302 

114 

03/85 


Durch POKEa »um Erfolg (Splolo POKEs) 

83 

0.1/69 


Tip» und Erwoitotungon «u Hi EddiundStrnonaBaste 

8(1 

03/85 


Basic Bolohle Im Griff 

70 

09/86 


Durch POKE« »um Erfolg Splolo-POKEa 

78 

Ofl/Qfl 


Formatloito Eingabo 

148 

0fl/U5 


Hl-Toxt (Tbtt in Hiros) 

70 

08/05 


Verbotene Variablen 

CO 

09/flD 


Veitchledene Routinen fUr Anfänger und Profis 
(»Fohlortoufol 12/85) 

88 

11/85 


Dor Trick mit dom Joystick Üoyetickabfrago) 

24 

11/115 


Verschiedene Tip» für Anlängo« und Fortge¬ 
schrittene 

106 

12/05 

Software-Grundlagen 



Assembler 

Assembler? Assemblerl (Einführung) 

32 

oi/ns 


AsMimblor Bodionung leicht gemacht. Teil 1 

IG9 

12/65 

DFÜ 

Do« envte Kontakt mit DFÜ 

40 

06/05 


Die Hetze dor Posl Btx, Datox-P, Tolobox 

48 

06/05 


DFÜ - Was ist das? 

44 

03/05 


Mailbox für Anfänger 

30 

07/BS 


T-onllne.üQ 






















SUch wort 

Titel 

Salta 

Jbragab« 

Dalol 

Die wichtigsten Begriff« der DitelvirA-altung 

42 

05/83 


Datcivorwnli.mt» m «loh« nlol«h Dstenl»*nk 

44 

03/89 


DateivemaltuiifltWanBiobaimKaufbeachteneoUton 

40 

05/M 

Drucker 

Haidcopy leicht gomaoht (Vrlo programmten man 
Hardcopies) 

24 

09/89 

EPROM 

Wie nage ich oi moinom EPROM? (EPROM- 
Grundlagen) 

35 

07/89 

Funktionen 

1 unktionen für AnUngor 

164 

05/85 


Besser lamon mit dom Computer 

1(16 

10/85 

Mucik 

KUngprogrammiotung ohne Ballait 

lö 

00/83 

Spiolo 

Taktik- und StratogieipteIo 

46 

03/88 


Play by Mall und Play l.y Modem 

193 

09/85 

Sprachen 

Sprachen für Computer, A>U 2 

46 

34 

03/88 

03/83 

tung 





Stichwort Titel S«IU Ausgabe 


Ibxtverarbet- Homeword • Autverarboitung xu Hause 

3G 

03/85 

tung Tbil-Tbxl - Floxibiluii Ist Trumpf 

38 

03/83 

PiolORt -- Aratprofi mit 80 Zeichen 

133 

03/05 

Aratomat Plui kontra Vuawiiia 

132 

00/85 

PapeicUp — ausdrücklich gut 

44 

11/83 


So machen’s andere 



Bommeln 

SemmoUoivico mit dom C 64 

147 

00/83 

Sport 

Commndoro Sportseivice Heimcomputor xur 
Turnloraua Wertung 

157 

07/88 

Hilf* 

Computer für Bo hinderte 

182 

13/85 


Listings zum Abtippen 




Doi C 04 oIb lUndballlrainor (AdM) 

83 

01/85 


Ligaiah - ohno Organisation kein Ah (LdM) 

30 

03/89 


(AdM) 

Wel8t du, wiovlol Sternlnin aiehon (Sternkarte) 
(ArlMX i Fehlen. 6/B3) 

02 

09/89 


Hautluilubuchhlhiung (AdM) 

02 

07/03 


Nouworkatvalyso; Lin Programm für Hobby- 
olokttonikor(AdM) 

92 

0B/B5 


Prtlfungtfragon (AdM) 

02 

00/06 


FU ln Latein mit dom C 04 (AdM) 

93 

10/09 


tyrlk-Mtachino (AdM) 

52 

11/09 


Hypra-Platos (U1M) 

60 

11/83 


Dor Chomio-Aa»mtont (AdM) 

62 

13/85 


f.MON All) 3: Ohno guten Work« geht «in nicht 

09 

01/09 


Hypra Am (LdM) 

01 

07/85 


Nouas vom BMON (i f>hloiteufol 11/89) 

B7 

10/00 


Hoaaaemblor xu Hypra-A«i (• Fohlartoufol 12/03) 

07 

11/05 



11/00 


Tipa & Trick« lum 3MON (tnklualvo Dlskmonllor) 

100 

13/85 

BOite 

Drei Tbp-Progrommo 



DF0 

Tormlnalprogramm dor Spllxenklassat 
(«Fohlorieutel I0/B0) 

140 

07/08 

Datol 

6MU - Dor Matkongonoraiot (LdM) 

60 

12/88 


Hl-Eddl-Dnickotroutlnen 

W 

06/8B 


C 64 Schreiberling - Drucken wlo gonuli 

6« 

10/60 


Koalabildor Fatbhardcopy auf Epson JX-BO 

39 

II/BO 

Elntollor 


197 

01/60 

Hopp-/ 

Hypra Land mal 4 (« Fehlortoufel 3/03) 

02 

01/89 


Dl«keltenn\onltor 

83 

08/68 


Dltk-DoBlgnor 

70 

09/85 



104 

Il/SS 


Centronics) 



Grafik 

Vier Psoudo-VlCs mit 32 Sprites 

70 

0I/8B 



30 

01/89 


EIoktrowchnlrchoD Zeichnen mit dom VC 30 

71 

03/89 


Mlnl Craftk VC 20. Graflkhilfo 

69 

06/63 


Tnckftlm mit dom C 64: Bowogto 3D-Crarik (LdM) 

31 

05/89 


(aFohlortoufol 6/89) 

Kurvenplotten mit Hardcopy auf dom C 10 

OB 

06/89 


Doppelte GrafikauflOoung für C 128 

33 

11/88 


Bilder aus oinor anderen Dimension (Apfelmünnchon) 00 

11/89 

Intolllgenx 

V1C — dos Intelligente Programm 
(Wetibewetbsaiogor) 

173 

09/69 

Muoik 

Sound Machine (. rohlorteufol 10/B3) 

23 

09/85 


Sound Master (Baue-Cmoiitming) 

31 

09/05 

Spiele 

6310 — Die Suche nach dor Proxessor 

70 

03/05 


73 

06/05 


Schach demC64 Schachprogramm «um Abüppen 

73 

08/03 


Zeichen« ttscrolling (LdM) 

61 

09/83 


Pac-Msn unter dor Lupo 

76 

10/85 


Block Out 

84 

11/05 


M 


Saokriog per TOlofon (Schifte versenken per Modem) 83 
Spielehille Di* Seroll-Maschlne - D Foniior xur Spiolowelt 63 

(LdM) («-Fahler«. il/89) 

Sprachen Tiny Förth Compilor(LdM)(t Fehler«. 8/85) Bl 

Textverarbei- Hypra-TVxl (LdM)(*F»hlerteutel 1I/8S) 60 

tung Drucksicho — Hypra-Text Teil 3 71 

Tips & Trick« Orofle Buchstaben 

Reotore ftlr Unterprogramme 

Tips & Trick« Parametorübctgabo an Ma»chinenspracheptogr»mme 08 
Curaorateuoiung leicht gemacht 68 

32 Read Error - Theorie und Praxis 41 

Floppy-LiJtor (4 Fbhlortoufel 4/86) 8a 

Umgscreon beim VC 20 83 

C Mt Help und Trace verbosaen 84 

Ordnung Ut da« halbe Leben (DirectorySortor) 77 

DokumentationshUfo, CroM-Rcfereni-Usto C 84 IBS 

(Wettbewerb) 

Pros« mit dom C 84: Gorate6teuerung Uber 76 

U*erport(*Fbhlerieu!ol 0/88) 

Fenitor-Bofohlo für den C 16 64 

Elektronische Merkxettel 83 

Filo-Compactor 83 

REM-Killer (4 Fehlonoufol 0/89) 78 

Basic-Stait Oaneratoi 74 

Komfortable Euv/Auagaberoutine 77 

Büdschlrmmaikon lelchl erstellt 80 

Dar Dltmap-Compandor (HIRei-Blldor komprimieren) B) 
Ilypra-Savo 70 

'Procedura' — oder dor C 04 kann lernen 78 

Aufgewlckolt - Llrtlngacrolllng fU» VC 20 83 

Programmgonorator für den C 64 88 

Crou-Ref optimiert 83 

Sploletralneri BprttoklU 80 

TlppUtüity W 

Der EPROM Automst (wie man Modul* macht) 00 

00 ZolchonOraflk für don C 138 7B 

Hyper Scroon (Sprites auf dom Dildschlrmrand) 76 

Trtnafet Dor C 64 ala PET PETSimulator 67 

Untor- Fbtmaiiorto Eingabe 186 

Programm* 


08/89 

08/8S 

10/86 

11/85 

01/85 

01/05 

01/85 

03/05 

03/85 

03/86 

05/06 

05/88 

OS/85 

00/86 

06/05 

07/aa 

07/05 

07/89 

07/86 

07/08 

07/85 

08/88 

08/83 

08/60 

08/89 

09/85 

10/88 

10/88 

11/88 

13/88 

18/89 

12/80 

18/89 

01/BS 

01/88 


Software-Tests 



ANBomblor 

Asiomblor im Aral A»ll 1 

34 

01/M 

Basic- 

Erwoltorung 

GIViiic — Allen drin 

26 

OI/BO 


Mncio-Btsic: Dlo Untorprogramm-Dibllothok 

137 

00/09 


Darf an etwa« mehr nein? - Ant llmlno.« Basic 

120 

00/09 


Dan Intolloctool 

138 

09/65 


Formol 64: Dsn Multitalent 

190 

12/09 

Drti 

TbrminalptogiBinmo: Übersicht 

42 

00/03 

Datei 

VotülelchvloM - 7 Datolverwaltungen auf olnon Blick 110 

07/03 


Aufgoidumt mH Mainfllo II 

157 

10/05 

Grafik 

Malon auf dom Bildschirm (Malprogrnmmo) 

34 

00/05 


Graflkptogramme auf olnon Blick: MarktUbernichl 

30 

00/09 


Vorglolchstost. Graflk-Erwoltorungon 

37 

00/05 

Lernen 

Soltlearnlng - die weiche Well» den Lornon« 

40 

01/05 


Vokabolualmng mit dom Computer 

39 

03/03 


MnrktUberaicht: I,otnsofivraro 

100 

10/05 

Muilk 

Musik für don C 64. Übersicht MuBlksofiwato 

20 

00/08 


Tho MubIc Cystem - Zwei auf einon Schlag 

104 

12/89 

Sprachen 

Logo - diu Sprache für Emstoigor 

135 

05/09 


Dor Ada Tramlngikurs auf dom C 64 

139 

05/89 


Promal - die neuo Sprache für Profi«? 

124 

07/05 


Förth-Wirts mit M&T-roith 64 

126 

07/89 


Was leistet Pilot? 

121 

00/05 


Pascal für ProD« (Profi-Pascal) 

122 

00/85 


Super-Forth 04 

144 

09/05 


C - die profeialonoUa Programmlorapracho fUr 
den C 64 

140 

09/89 


Basic 7.0 - Da« Suporbaslc des C 123 

10 

10/05 


Comal B0 — die universelle Programmiersprache 

181 

10/89 


Turbo-Pascal ouf dem C 120 

30 

11/05 


Die Ausgaben 
2/85 und 4/85 
sind bereits vergriffen 
und nicht mehr lieferbar! 


Am besten gleich 
mitbestellen: 

Die praktischen 
64 'er-Sammelboxen 



Ein 

kompletter 
Jahrgang 
(12 Ausgaben) 

S aßt in eine der praktischen 
ammeiboxen I 
Am besten gleich 
mitbestellen I 

Für alle Leser, die »64’er« regel¬ 
mäßig kaufen, sammeln oder im 
Abonnement beziehen, gibt es 
jetzt ein interessantes Ser¬ 
vice-Angebot: die 64’er-Sam- 
melboxl 

Mit dieser Sammelbox bringen 
Sie nicht nur Ordnung in Ihre 
wertvollen Hefte, sondern schaf¬ 
fen sich gleichzeitig ein interes¬ 
santes und attraktives Nach¬ 
schlagewerk. 

Übrigens: Die Sammelbox ist 
nicht nur ein praktisches Aufbe¬ 
wahrungsmittel: Sie eignet sich 
auch hervorragend als Ge¬ 
schenk für Freunde und Be¬ 
kannte zu vielen Anlässen. 


Auch die bisher 
erschienenen Sonderhefte 
können Sie 
jetzt direkt bestellen: 


SONDERHEFT 01/Mi TIPS * TRICKS 

Unentbehrliche Anwendungslistings liir C 64 und 
VC 30. _ 

SONDERHEFT Oi/SJ. ABENTEUERSFIELE I 

Fessolndo Adventuros mit zahlreichen Lösungen und 

einem Programmlerkun. 

SONDERHEFT 04/S5. GRAFIK t DRUCKER 

Von der 3D-Darstellung bis sur Hardcopy-Routine. 

SONDERHEFT 05/85. F10FFY/DATASETTE 

Soft-Toois zum komfortablen und noch schnelleren 
Betrieb von Floppy und Datasette. 

SONDERHEFT 0A/I5. AUS6EWÜHITE SUFIR-USIIN0S 

Top-Themen aus 64'er bringt eino Auswahl dor besten 
64’er Programm e. 

SONDERHEFT 07/85. ANWINOUNCIN/DFU 

Leistungsfähige Programme für professionelle 
Anwendungen und Datenfernübertragung. 

SONDERHEFT 08/85. ASSEMBLER 

Assembler-Know-how für Anfänger und fbrt- 
geschritten». 
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GRUNDLAGEN 


C64, C128 


in Bank 1 von $FF00 an. Wir sehen uns diese Aufteilungen 
gleich noch detaillierter an. Der Zeiger im Stringdescriptor 
weist genau auf das erste ASCII-Zeichen des hier gespei¬ 
cherten Textes. Für den C 64 ist damit schon alles geklärt. 
Der C128 aber birgt noch eine kleine Besonderheit, die die 
sogenannte »Garbage Collection« beschleunigt (darunter 
versteht man das Aufräumen von nicht mehr gebrauchten 
Stringtexten): Nach dem eigentlichen Text findet sich hier 
noch ein 2-Byte-Zeiger, der auf den Stringdescriptor weist 
(manchmal wird er »Codedescriptor« genannt, vermutlich 
deshalb, weil er sich an den Text im ASCII-Code anschließt). 

Ein Außenseiter macht sich in der Variablentabelle als 
vierter »Variablentyp« breit: Die benutzerdefinierte Funk¬ 
tion. Bild 35 zeigt Ihnen solch einen Eintrag. Außer den bei¬ 
den Namen-Byte zu Beginn (im ersten davon ist das Bit 7 
gesetzt) finden wir hier zwei Zeiger. Der erste davon (Byte 
3 und 4) weist auf die Funktionsvorschrift im Basic-Text. Der 
zweite Vektor enthält die Startadresse der Funktionsvaria¬ 
blen in der Variablentabelle (beispielsweise X aus der 
Funktionsdefinition DEFFNAB(X) = ...). Das letzte Byte ist 
unbenutzt. 

Wir haben nun noch zwei Fragen zu klären: Wo befindet 
sich diese Tabelle und wie kann man sie benutzen? Den Ort 
der Variablentabelle in absoluten Adressen anzugeben ist 
unnötig (und beim C 64 auch nicht so ohne weiteres mög¬ 
lich). Dort nämlich schließt sie sich nahtlos an den Basic- 
Programmtext an. Beim C 128 verhält sich das einfacher: 
Da liegt sie in der Bank 1 gleich oberhalb der Common- 
Area, also ab $400. 

Den genauen Anfang und die ganze Organisation all die¬ 
ser Tabellen (außer mit der Variablentabelle haben wir es 
noch mit den Arrays und den Stringtexten zu tun) erfährt 
man am besten aus einer Reihe von Vektoren, die sich in 
der Zeropage befinden. Die Bilder 36 und 37 illustrieren die 
Zusammenhänge für den C 64 und für den C 128. 

VARTAB heißt der erste dieser Zeiger (C 64:45/46, C128: 
47/48). Er weist auf den Anfang der Variablentabelle und 
somit im allgemeinen beim C 64 auch auf das Programm¬ 
textende, beim C 128 dagegen auf $400 in Bank 1. Das 
Ende der Tabelle mit den einfachen Variablen erfährt man 
durch den nächsten Zeiger, der ARYTAB genannt wird 
(C64: 47/48, C 128: 49/50) und gleichzeitig auch den 
Anfang der Array-Tabelle verrät. STREND ist der Name des 
Zeigers auf das Ende der Tabelle der indizierten Variablen 
(C 64: 49/50, C 128: 51/52). Genaugenommen ist die in 
STREND gespeicherte Adresse ein Byte höher als dieses 
Ende. 

Beide bisher genannten Tabellen wachsen zu immer 
höheren Adressen beim Hinzufügen weiterer Variablen 
oder Arrays. Anders herum - wie schon oben erwähnt - ver¬ 


hält sich das mit der Tabelle der Stringtexte. Diese fangen 
beim C 64 normalerweise direkt unterhalb des Basic- 
Interpreters an, also an der Adresse $9FFF, und dorthin 
weist der Zeiger MEMSIZ (55/56). Der C 128 stellt uns 
wesentlich mehr Platz zur Verfügung. Hier beginnen die 
Stringtexte direkt unterhalb der MMU-Register (genauge¬ 
nommen unterhalb des CR = Konfigurationsregister) bei 
$FEFF in Bank 1. Auch hier hilft uns wieder ein Zeiger, der 
MAX-MEM-1 heißt und in 57/58 zu finden ist. Die aktuelle 
Textfront schiebt sich von String zu String immer weiter 
abwärts. Ihre Adresse kann man aus dem Vektor FRETOP 
(C 64: 51/52, C 128: 53/54) erfahren. 

Beide Fronten schieben sich so im Verlauf eines Pro¬ 
gramms (wenn ständig neue Texte hinzukommen) aufein¬ 
anderzu, bis sie sich irgendwann einmal berühren. Genau¬ 
genommen wird vor jedem Speichern eines neuen Textes 
geprüft, ob er noch in den verbleibenden Speicherabstand 
zwischen FRETOP und STREND paßt. 

Ist das einmal nicht mehr der Fall, dann findet die Beseiti¬ 
gung von Stringtextmüll - die vorhin schon erwähnte Gar¬ 
bage Collection - statt, bei der Texte ohne Descriptor ent¬ 
fernt und die gültigen Texte säuberlich nach oben gestapelt 
werden. Reicht auch diese Maßnahme nicht mehr aus, 
dann meldet sich der Interpreter mit einer Fehlerbotschaft: 
Out of Memory Error. 

Wir können nun auf die Variablentabelle zugreifen wie 
auf jede andere Tabelle, die Elemente zu je sieben Byte ent¬ 
hält. Das beigefügte Programm DUMP (Listing 34) zeigt 
Ihnen das für den C 64, indem es eine Liste aller definierten 
Variablen eines Basic-Programms und ihrer Inhalte aus¬ 
gibt. Durch SYS 49152 wird diese Ausgabe gestartet. In 
Listing 35 finden Sie den ausführlich dokumentierten 
Quelltext, so daß Sie auch schnell erkennen, daß das Pro¬ 
gramm noch verbessert werden kann. Für den C 128 ist es 
nicht c- ohne weiteres umzuschreiben, denn hier treten 
wieder allerlei Bank-Probleme auf. 

Drei Interpreter-Routinen wurden im Programm verwen¬ 
det, die mit der Ausgabe der Variableninhalte auf den Bild¬ 
schirm zu tun haben: NUMDON druckt den FAC-Inhalt(hier 
also eine Fließkommazahl) auf den Bildschirm. Diese Rou¬ 
tine wird durch JSR $AABC (dezimal 43708) angesteuert. 
OUTSTR dient zur Stringausgabe auf den Bildschirm. 
Dazu muß der Textstart im Vektor INDEX (das ist $22/23 
oder dezimal 34/35) enthalten sein und die Länge des 
Stringtextes im X-Register. Sind diese Bedingungen erfüllt, 
dann beginnt die Ausgabe durch JSR $AB25 (dezimal 
43813). LINPRT zeigt eine 2-Byte-lntegerzahl auf dem Bild¬ 
schirm an. Dazu muß das LSB dieser Zahl im X-Register, 
das MSB im Akku enthalten sein. JSR $BDCD (dezimal 
48589) führt dann den Ausdruck durch. 



Bild 36. Oie Organisation des Basic-RAM im C 64 
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Bild 37. Die Basic-RAM-Organisation des C128 (Bank 1) 
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GRUNDLAGEN 


Häufiger noch ist die Aufgabenstellung, eine bestimmte 
Variable zu suchen. Haben wir also im Aufrufprogramm 
eine Variable AI definiert, dann sollte es möglich sein, im 
Assemblerprogramm unter Angabe dieses Namens einen 
Zeiger auf den Variablenwert zu erhalten. Genau das leistet 
die Routine ORDVAR (C 64: $B0E7 = dezimal 45287, 
C128: $7B0B = dezimal 31499). Dazu trägt man den Varia¬ 
blennamen in die Speicherstellen VARNAM und 
VARNAM+1 ein (C 64: $45/6 = dezimal 69/70, C128: $47/8 
= dezimal 71/2), springt dann die Routine ORDVAR an und 
erhält einen Zeiger auf den Variablenwert in VARPNT (C 64: 
$47/8 = dezimal 71/2, C 128: $49/A = dezimal 73/4). ORD¬ 
VAR ist so entgegenkommend, daß eine neue Variable 
automatisch eingerichtet wird, wenn die benannte noch 
nicht existiert. 

Im Basic 7.0 des C128 gibt es die POINTER-Funktion, mit 
deren Hilfe die Adresse einer beliebigen Variablen erfahren 
werden kann. Mittels ORDVAR läßt sich diese Funktion 


auch relativ einfach für den C 64 entwickeln. Ihre Kennt¬ 
nisse reichen dazu allemal aus: Probieren Sie doch, diese 
Aufgabe zu lösen. 

Eine mögliche Vorgehensweise wäre es, einen Aufruf der 
eigenen Pointer-Routine in der Form SYS Adres¬ 
se,'Variablenname+Kennung durchzuführen. Hierzu müßte 
dann der Text Variablenname+Kennung gelesen und in 
VARNAM gespeichert werden, wobei die entsprechenden 
Bit 7 zu setzen wären. Ein Aufruf von ORDVAR liefert dann 
den Zeiger auf den Variablenwert in VARPNT, der beispiels¬ 
weise durch LINPRT ausgegeben werden könnte. 

Es bleibt nun noch die Aufgabe, uns die andere durch 
den Basic-Interpreter eingerichtete Tabelle - nämlich die 
der Arrays - genauer anzusehen. Mit diesem Thema wer¬ 
den wir auch unseren Kurs beschließen. 

Eine Tabelle von Tabellen, das ist der Bereich des Basic- 
Speichers, der den Arrays Vorbehalten ist. Dem Basic- 
Programmierer wohlvertraut, können diese indizierten 


Name : dump c 04 


cOOO c0c9 


cOOO 

cOOB 

C010 

cOlB 

oOZO 

c028 

o030 

c038 

C040 

c048 

c050 


aB 2d 
a9 Od 
fb 08 
bl fb 
20 20 
30 03 
d2 ff 
a9 24 
d2 ff 
20 20 


85 fb 
20 d2 
29 7f 
08 29 
d2 ff 
4c 83 
4c a9 
20 d2 
a9 3d 
d2 ff 


c8 bl fb 85 


a5 2o 
ff aO 
20 d2 
7f dO 
28 30 
cO a9 
cO 28 
ff a9 
20 d2 
c8 bl 
22 c8 


85 fo 
00 bl 
ff cB 
02 a9 
Oe 28 
21 20 
30 28 
20 20 
ff a9 
fb aa 
bl fb 


f 8 
03 
74 
c8 
91 
7b 
a8 
64 
10 
8c 
c7 
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85 

23 

20 

25 

ab 

4c 

a9 

oO 

61 
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a9 

25 

20 

d2 

ff 

a9 

20 

20 

Oc 

c06B 

d2 

ff 

a9 

3d 

20 

d2 

ff 

a9 

38 

c070 

20 

20 

d2 

ff 

cB 

bl 

fb 

48 

ef 

c078 

c8 

bl 

fb 

aa 

68 

20 

od 

bd 

a7 

c080 

4c 

a9 

cO 

a9 

20 

20 

d2 

ff 
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20 

d2 
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3d 
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26 
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ff 

18 

99 
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cB 

98 
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48 

a5 

fc 

69 

fe 

cOaO 

00 

a8 

68 

20 

a2 

bb 

20 

bc 

14 

cOaB 

aa 

a9 

Od 

20 

d2 

ff 

18 

a5 

47 


oObO : fb 69 07 85 fb a5 fc 69 86 

c0b8 : 00 85 fc a5 fb c5 2f a5 64 

cOcO : fc e5 30 bO 03 4o Od cO 19 

c0c8 : 60 70 70 70 70 70 70 70 b8 

Llstlng 34. DUMP C 64 erzeugt 
einen Bildschirmausdruck aller 
einfachen Variablen und ihrer 
aktuellen Werte. 

Bitte mit dem MSE eingeben. 
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Listing 35. Hypra-Ass-Quelltext von DUMP C 64 
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Variablen auch dem Assemblerprogrammierer nützliche 
Dienste leisten. 

Das gilt vor allem dann, wenn die Arrays im Basic- 
Rahmenprogramm eingerichtet und aus den Assembler¬ 
routinen heraus angesteuert werden. Mehr noch als für die 
einfachen Variablen, deren Organisation wir in der letzten 
Folge kennengelernt haben, gilt es bei den indizierten 
Variablen, den Aufbau dieser Tabellen zu untersuchen, 
denn er ist wesentlich komplexer. Auch ist der Zugriff auf die 
einzelnen Elemente nicht so einfach zu realisieren. Wie 
also sind Arrays konstruiert? Wie kann man aus der Assem¬ 
blerebene an die Elemente gelangen? 

Der Kopf des Arrays 


Allen Arrays ist ein sogenannter Header (oder Kopf) 
gemeinsam. Bei den unterschiedlichen Feldtypen (darauf 
gehen wir später noch ein) unterscheiden sich lediglich die 
beiden ersten Byte dieses Kopfes, die den Namen des Fel¬ 
des und eine Typkennung enthalten, welche mit den Typ¬ 
kennungen bei den einfachen Variablen identisch ist. Zur 
Erinnerung: 


Bit 7 in 

Byte 1 

Byte 2 

Integer-Kennung: 

1 

1 

Fließkomma-Kennung: 

0 

0 

String-Kennung: 

0 

1 


Bild 38 zeigt Ihnen den grundlegenden Aufbau des 
Arraykopfes. Im einfachsten Fall ist so ein Header sieben 
Byte lang. Auf die beiden ersten Byte (Name und Kennung) 
folgt eine Längenangabe: In zwei Byte wird die Gesamt¬ 
länge des Arrays (inklusive Kopf) in der Form LSB/MSB 
festgehalten. 


Arrays dimensionieren 


Theoretisch könnte ein Feld also 65535 Byte lang werden. 
Das folgende fünfte Byte im Header gibt die Anzahl der 
Dimensionen an: Es wären somit - wiederum theoretisch, 
denn wer kann das noch überschauen! - bis zu 255 Dimen¬ 
sionen möglich. In jeweils zwei Byte - und zwar im etwas 
ungewöhnlichen Format MSB/LSB - finden wir danach 
Angaben über die Elementanzahl je einer Dimension. 

Zwei Dinge sind dabei noch zu beachten: Zum einen fin¬ 
det man hier immer eine um 1 höhere Elementanzahl als in 
der Dimensionierung. Ein Null-Element (in Programmierer¬ 
kreisen gilt es als schick, nicht bei 1, sondern bei 0 mit dem 
Zählen anzufangen) wird mitgerechnet. Beispielsweise 
ergibt DIM A(4) hier die Zahl 5 (eben wegen der Reihenfolge 
A(0), A(1), A(2), A(3) und A(4)). Zum anderen aber gilt bei 
mehreren Dimensionen, daß für jede der genannten 
Dimensionen diese zwei Byte erscheinen, beginnend mit 
der zuletzt genannten Dimension. So ergibt beispielsweise 
DIM A(1,2,3) die folgende Belegung im Header vom 6.Byte 
an: 

Byte 6: 0 

Byte 7: 4 letzte genannte Dimension plus 1 
Byte 8: 0 

Byte 9: 3 vorletzte Dimension plus 1 
Byte 10: 0 

Byte 11: 2 erste Dimension plus 1 
Die Länge des Kopfes ist also abhängig von der Anzahl 
der Dimensionen. Sie beträgt - wenn N diese Dimensions¬ 
anzahl symbolisiert - insgesamt: 



Bild 38. Dies Ist ein Arraykopf (an das siebte Byte schließen 
sich weitere Elementanzahlen an) 


Byte 1 


MSB 


Byte 2 


LSB 


dai Intagarwartai 

Bild 39. So sieht ein Element B 
eines Integerfeldes aus... 



Bild 40. .. .und so ein Element eines Fließkommafeldes. 
Bit 7 des zweiten Bytes dient als Vorzeichenkennung. 



Bild 41. Auf diese Weise ist ein Stringfeldelement aufge¬ 
baut. Es ist insgesamt drei Byte lang. 


Länge = 5 + 2*N 

Zu jedem Kopf gehört auch ein Körper; hier sind das die 
Elemente des Arrays, die sich nahtlos anschließen. 

Die Array-Elemente 


Im Gegensatz zu den einfachen Variablen - dort belegt 
jede, gleich welchen Typs, immer sieben Byte - verbrau¬ 
chen die Array-Elemente unterschiedlich viel Speicher¬ 
platz. Sehen wir uns zunächst das Element eines Integer- 
Arrays an: Der Zahlenwert ist hier im Zwei-Byte-Format fest¬ 
gehalten. Allerdings findet man auch hier wieder die unge¬ 
wöhnliche Reihenfolge MSB/LSB. Bild 39 zeigt solch ein In- 
teger-Element. Ein Element eines Fließkomma-Arrays ist 
im üblichen MFLPT-Format angeordnet. Fünf Byte werden 
hier für eine Fließkommazahl benötigt, von denen das erste 
Byte dem Exponenten, die anderen vier der Mantisse zuge¬ 
ordnet sind. Das Bit 7 des zweiten Byte (also des ersten 
Mantissenbytes) dient als Vorzeichenkennung. Bild 40 
zeigt Ihnen solch ein Fließkomma-Element. 
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Die Berechnung 


Bleibt noch das String-Array-Element (Funktionen-Arrays - 
wie es die Einlagerung der Funktionen in die einfachen 
Variablen vermuten lassen würde - gibt es nicht). Solch ein 
String-Element besteht aus dem Stringdescriptor: Es ist 
daher drei Byte lang. Byte 1 gibt die Stringlänge, die Byte 
2 und 3 den Stringtextort im Format LSB/MSB an. In Bild 41 
finden Sie ein String-Array-Element. 

Der Stringtext ist ebenso angeordnet wie bei den norma¬ 
len Stringvariablen: Von der oberen Grenze des Basic- 
RAM abwärts. Auch hier findet sich die C 128-Besonder- 
heit, daß im Anschluß an den Stringtext ein Zeiger auf den 
Stringdescriptor lokalisiert ist, der die Garbage-Collection 
beschleunigt (mehr darüber konnten Sie unter »Variablen¬ 
typen des Basic« nachlesen). 

Jetzt können wir auch genau den Speicherplatzbedarf 
eines Feldes errechnen. Wenn - wie oben - N die Anzahl 
der genannten Dimensionen symbolisiert und D N , D N .,,.... 
D, die Längen der einzelnen Dimensionen (also letzte 
Dimension mit der Nummer N, vorletzte mit Nummer N-1, 
und so fort bis zur ersten Dimension mit der Nummer 1) 
sowie m den Platzbedarf eines Elementes (also m=2 für ein 
Integer-Element,m=5fürein Fließkomma- und m=3fürein 
String-Element) angibt, dann ergibt sich für die Länge des 
gesamten Array: 

Länge = 5 + 2 * N + (D N + 1) * 

(Dn-i + 1) * ... * (Di + 1) * m 
An einem Beispiel soll Ihnen das deutlich werden. Neh¬ 
men wir ein Fließkomma-Feld A(12,20,45), dann gilt: 
Länge = 5 + 2 * 3 + (45 + 1) * 

(20 + 1) * (12 + 1) * 5 = 62801 
Hätten Sie das gedacht, daß solch ein Feld mit seinen 
62801 Byte mit Sicherheit den Speicher sprengt? Als 
Integer-Array hätte es übrigens nur 25127 Byte verbraucht. 
So manchen Out of Memory Error kann man sich ersparen, 
wenn man den Platzbedarf vor dem Programmlauf 
berechnet. 

Wo befindet sich ein bestimmtes 
Element? 


Um nun auf ein bestimmtes Element eines Arrays zugreifen 
zu können, muß man natürlich wissen, wo es sich befindet. 
Relativ einfach verhält sich das bei einem eindimensiona¬ 
len Feld. Nehmen wir an, wir hätten durch DIM A(5) ein ein¬ 
dimensionales Fließkommazahlen-Array definiert und es 
dann mit Inhalt versehen. Ein Blick mittels eines Monitors 
in den Basicspeicherzeigt, daß die Elemente in der Reihen¬ 
folge A(0), A(1), A(2), A(3), A(4), A(5) angeordnet sind. Um 
also das Element A(i) zu finden, muß man das (i+1)ste Ele¬ 
ment ansteuern. Das erste Byte unseres Elementes ergibt 
sich aus der Addition von 7 (Länge des Headers) und i*5 
(fünf Byte bilden ein Fließkomma-Element) zum Start des 
Arraykopfes. 

Sehr viel komplexer wird das Wiederfinden eines Ele¬ 
mentes schon, wenn wir ein zweidimensionales Feld 
betrachten. Nehmen wir an, ein String-Array wäre durch 
DIM A$(2,3) definiert und dann mit Elementen versehen 
worden, dann ist die übliche Darstellung (als 2,3-Matrix) in 
Bild 42 zu sehen. 

Ebenfalls darin eingezeichnet ist die Reihenfolge, die 
man im Anschluß an den Header mittels eines Monitors 
beobachten kann: 

A$(0,0); A$(1,0); A$(2,0); A$(0,1); A$(1,1); A$(2,1);...;A$(2,3) 

Die Speicherung findet also Spalte für Spalte statt. Arbei¬ 


ten wir mit den vorhin schon verwendeten Bezeichnungen 
(D, für die Elementanzahl in der ersten genannten Dimen¬ 
sion und so fort), dann können wir ganz allgemein eine For¬ 
mel für den Ort eines Elementes A$(i,j) bei vorher durch 
DIM A$(D,, D 2 ) dimensionierten Feldern angeben. Die 
Nummer n des Elementes A$(i,j) ist dann nämlich: 
n = (D, + 1) * j + i + 1 

Beispielsweise steht dann das Element A$(2,1) aus dem 
obigen Array (das wir durch DIM A$(2,3) definiert hatten) an 
der Stelle 

n = (2 + 1) * 1 + 2 + 1 = 6 

Dies können Sie schnell nachprüfen: Das sechste Ele¬ 
ment ist tatsächlich A$(2,1). Das erste Byte eines beliebigen 
Elementes mit den Indices i,j und der Elementlänge m (wie 
vorhin schon gehabt: m=2 beim Integer-, 5 beim 
Fließkomma- und 3 beim String-Array) ergibt sich aus der 
Formel: 

Adresse 1. Byte = Headerstart + 9 + 
m * ((D, + 1) * j + i) 

Sie sehen: Es bedarf schon einiger Rechnereien, wenn 
man ein bestimmtes Element ansteuern möchte. 

Die dritte Dimension 


Durchaus nicht selten werden dreidimensionale Felder ver¬ 
wendet. Die Ansteuerung eines beliebigen Elementes ist 
hier noch etwas komplizierter. Gehen wir wieder von einem 
Beispiel aus: Durch DIM A(1,2,3) sei ein solches Array defi¬ 
niert worden und dann mit Fließkommazahlen gefüllt. Man 
kann es sich als einen Quader vorstellen, der die Tiefe von 
zwei hat (das entspräche der ersten genannten Dimension 

und bet rif ft die Indices (0.) und (1,.)), die Höhe 3 

(nämlicn aus der zweiten Dimension mit den Indices 
(...,0,...), (...,1,...) und (...,2,...)) und die Breite 4 (hier ist es 

dann die dritte Dimension und die Indices (.,0), (.1), 

(.2) und (.,3)). Bild 43 zeigt Ihnen diese Gedanken¬ 

stütze. Ebenfalls eingezeichnet als Linie ist die Reihenfolge 
der Elemente, die man mittels eines Monitors hinter dem 
Header entdeckt: 

A(0,0,0); A(1,0,0); A(0,1,0); A(1,1,0); A(0,2,0); A(1,2,0); A(0,0,1); 
etc. 

Es schält sich - wenn man die Elementanordnung durch 
die Dimensionen verfolgt - eine gewisse Gesetzmäßigkeit 
heraus: Offenbar wird die erste Dimension am häufigsten, 
die letzte am seltensten variiert. So findet man in den 
Elemente-Indices des obigen Beispiels die erste Dimen¬ 
sion jedes zweite Mal, die zweite Dimension jedes dritte 
Mal und die dritte Dimension jedes siebte Mal variiert. 

Die Nummer n eines Elementes A(i,j,k) nach dem Hea¬ 
der eines Arrays, das durch DIM A (D 1 ,D 2 ,D 3 ) definiert und 
dann belegt worden ist, ergibt sich aus folgender Formel: 
n = (D, + 1) * (D 2 + 1) * k + (D, + 1) * j + i + 1 

Ein Beispiel (bezogen auf DIM A(1,2,3)): Die Nummer n 
des Elementes A(1,1,2) berechnet sich so: 
n = 2*3*2 + 2*1 +1 + 1 =16 

Das 16. Element heißt also A(1,1,2). Zählen Sie nach: Es 
stimmt! Damit ist es möglich, auch die Adresse des ersten 
Byte eines Elementes A(i,j,k) eines Feldes (das durch DIM 
A(D 1 ,D 2 ,D 3 definiert wurde) zu berechnen (m ist wieder die 
Länge eines Elementes): 

Adresse = Header-Startadresse 
+ 11 + m * ((D, + 1) * (D 2 + 1) * k + (D, + 1) * j + i) 

Höhere Dimensionen als 3 werden schon recht selten 
sein. Trotzdem: Es zeichnet sich - wenn man sich die For¬ 
meln für n der Reihe nach ansieht - eine gewisse Systema¬ 
tik ab. So liegt es nahe, daß die Nummer n eines Elementes 
A(i,j,k,l) des 4dimensionalen Feldes so zu berechnen ist: 
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Bild 42. Die Elemente eines zweidimensionalen Feldes als 
(3,4)-Matrix und ihre Reihenfolge in der Feldtabelle 


n = (D, + 1) * (D 2 + 1) * (D 3 + 1) * I + (D, + 1) * (D 2 
+ 1) * k + (D, + 1) * j + i + 1 
Wenn Sie Lust dazu haben, dann probieren Sie diese 
Formel doch einmal aus: Mit der Pointer-Funktion des 
C128-Basic läßt sich das gut überprüfen. 

Es gibt zwar eine Reihe von Basicinterpreter-Routinen, 
die speziell für den Umgang mit Arrays entwickelt wurden, 
sie sind aber meist nur sehr ungünstig über ein Assembler¬ 
programm anzusteuern. 

Ansteuem der feld-Elemente 


So übernehmen diese Routinen die Angaben aus dem 
Basic-Test und schieben anschließend die Parameter in die 
verschiedensten Speicherstellen und auf den Stapel. 

Oder, und dies ist eher noch komplizierter, die Routinen 
erfordern eine Unmenge teils sehr umständlicher Vorberei¬ 
tungen. Parameter müssen hier an bestimmten Speicher- 



Bild 43. Die Elemente eines dreidimensionalen Feldes als 
(2,3,4)-Matrix. Die Reihenfolge ist durch die gestrichelten 
Pfeile angedeutet. 


stellen vorgegeben werden, eine Methode, die nicht nur 
Zeit kostet, sondern auch sehr fehleranfällig ist. 

Es erscheint in fast jedem Fall sinnvoller, eine den eige¬ 
nen Bedürfnissen angepaßte Routine selbst zu entwickeln, 
welche dann auch wesentlich komfortabler ausfallen kann 
als die vom Basic-Interpreter zur Verfügung gestellten. 

Um Sie bei der Entwicklung einer solchen Routine zu 
unterstützen, möchten wir die Interpreter-Routinen an die¬ 
ser Stelle abschließend kurz auflisten: 

ISARY holt die Arrayparameter.aus dem Basic-Text und 
legt sie auf den Stapel. Sie finden diese Routine beim C64 
ab $B1D1, beim C 128 ab $7CAB. 

FNDARY sucht in der Arraytabelle nach dem Namen. Die 
Routine steht beim C64 ab $B218, beim C 128 ab $7CF4. 
Der Name ist beim C 64 in $45/46, beim C 128 in $47/48 
enthalten. 

NOTFDD richtet ein neues Feld ein, wenn der Arrayname 
nicht gefunden wurde. Die Adressen der Routine: $B261 
(C 64), $7D46 (C 128). 

INLPN2 (C64: $B30E, C 128: $7E00) sucht ein angege¬ 
benes Element und richtet den Zeiger VARPNT darauf. Die¬ 
sen Zeiger finden Sie beim C 64 in $47/48, beim C 128 in 
$49/4A). 

Eine sehr nützliche Routine ist aber UMUL.TD, eine 
16-Bit-Multiplikationsroutine, die beim C64 ab $B357 und 
beim C128 ab $7E4B steht. UMULTD multipliziert eine Zahl 
in $28/29 (C64) oder $72/73 (C 128). Das Ergebnis finden 
Sie in X/Y. 


~ 71 t wickeln Sie einen Array-DUMP 


Ein DUMP-Programm für die einfachen Variablen hatten 
wir bereits kennengelernt. Wir möchten Ihnen zum 
Abschluß noch eine Aufgabe stellen, die Sie mit den bisher 
erworbenen Assembler-Kenntnissen selbst lösen können. 

Wie wäre es, wenn Sie ein ähnliches Programm wie 
DUMP entwickeln würden, das die Felder und deren Inhalte 
auf dem Bildschirm ausgibt? Zu Ihrer Unterstützung hier 
einige Wegmarken, die Ihnen bei der Lösung des Problems 
sicherlich weiterhelfen: 

Der Basicspeicher von der Adresse an, auf die ARYTAB 
zeigt (das ist der Vektor $2F/30 (beim C 64) oder $31/2 (beim 
C 128), der den Beginn der Arraytabellen markiert), bis zu 
der Adresse, auf die STREND weist (dieser Zeiger kenn¬ 
zeichnet das Ende der Arraytabellen und liegt bei $31/2 
(C64) oder $33/4 (C 128)) wird nach Arrayheadern durch¬ 
forstet. Jeder gefundene Kopf ist dann zu untersuchen auf 
Name, Typ, Dimensionszahl und die Längen. Nun haben 
Sie mehrere Möglichkeiten: Sie können den Ausdruck der 
definierten Arrays veranlassen. Sie können aber auch nach 
dieser ersten Option den Inhalt eines ausgesuchten Feldes 
ausdrucken oder aber die Ausgabe sämtlicher Arrayinhalte 
ermöglichen. Für die beiden zuletzt genannten Optionen 
dürfte das DUMP-Programm aus der letzten Folge einige 
Hilfsmittel bieten: Untersuchung des Typs und danach 
gesteuerte Bildschirmausgaben. Haben Sie dann eine 
funktionierende Problemlösung gefunden, wäre es interes¬ 
sant, diese im 64’er-Magazin wiederzufinden, denn solche 
Utilities sind noch recht rar. Die Lösung für den C128 dürfte 
wegen der Bank-Probleme erheblich schwieriger zu finden 
sein als für den C 64. 

Dieser Kurs ist hiermit beendet. Wir hoffen, Sie sind nun 
selbst in der Lage, auch schwierige Problemlösungen 
durchzuführen. (Heimo Ponnath/C. Q. Spitzner 
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Keine Angst 

vor Maschinensprache 


Wenn Sie bisher glaubten, Maschinensprache sei 
für Sie zu kompliziert und nur etwas für Profis, 
dann wird Ihnen dieser Assembler-Kurs zeigen, 
daß sich viele Dinge fast genauso einfach pro¬ 
grammieren lassen wie in Basic - dabei wird die 
Programmausführung jedoch erheblich be¬ 
schleunigt. 

D ie Vorgänge innerhalb des Computers beim Abarbei¬ 
ten eines Programms sind relativ kompliziert. Eine 
solche Maschine »versteht« längst nicht alles, was 
man ihr mitteilen will. Tatsächlich kann sie nur zwischen 
zwei Zuständen unterscheiden, »Strom an« und »Strom 
aus«. Um diese beiden Zustände zu verdeutlichen, kenn¬ 
zeichnet man den ersten als 1, den zweiten als 0. 

Wir können uns das etwa so vorstellen, daß jede Spei¬ 
cherstelle des Computers ein Haus mit acht Fenstern ist, 
von denen eine bestimmte Anzahl in einer gewissen Rei¬ 
henfolge erleuchtet ist. In den erleuchteten Fenstern, 
beziehungsweise den Räumen dahinter, ist also der Strom 
an (=1), in den übrigen ist der Strom aus (=0). Ein Beispiel 
dazu sehen Sie in Bild 1. 

Ein Bus für 8 und 16 Bit 


Über den acht Leitungen breiten Datenbus werden diese 
Informationen nun an den Prozessor geliefert, der entspre¬ 
chend der 1/0-Kombination seine Operationen ausführt. 
Zusätzlich muß der Prozessor wissen, was er genau zu tun 
hat; er benötigt einen Befehl. Ein solcher Befehl besteht 
ebenfalls wieder aus einer 1/0-Kombination. 

Während also einerseits die Zahlenkombination 
01001100 (binär) die Zahl 76 (dezimal) als Inhalt einer Spei¬ 
cherstelle beschreibt, bedeutet diese Kombination ande¬ 
rerseits den Assemblerbefehl JMP, gleichzusetzen mit dem 
GOTO-Befehl in Basic. 

Der Prozessor muß nun wissen, ob er die Kombination 
als Wert oder als Befehl verstehen soll. Deshalb bestimmt 
der jeweils letzte Befehl, ob ein Wert folgt. Der C 64 bei¬ 
spielsweise verfügt über einen Acht-Bit-Datenbus, das 
heißt, daß jeweils acht Bit (= 1 Byte) gleichzeitig übertragen 
werden können. Gleichzeitig kann auch in jeder Speicher¬ 
stelle maximal ein Byte gespeichert werden. Daher wird bei 
Befehlen, die mit solchen Werten operieren, grundsätzlich 
das nächste Byte als Zahl interpretiert. 

Low- und High-Byte 


Neben dem Datenbus gibt es im Computer noch einen 
Adreßbus, der eine Breite von 16 Bit hat. Über diesen Adreß¬ 
bus werden die einzelnen Speicherstellen angesprochen. 
Während acht Bit insgesamt 2 8 = 256 verschiedene Kom¬ 
binationen zulassen, kann man über einen 16-Bit-Bus 
insgesamt 2 16 = 65536 verschiedene Speicherstellen 
adressieren. Diese hohen Zahlen müssen in einem 8-Bit- 
Computer zur Verarbeitung in zwei einzelne Byte, das Low- 
Byte und das High-Byte, aufgespalten werden. Deshalb 


erwartet der Prozessor nach einem Befehl, der sich auf 
eine Adresse bezieht, zum Beispiel dem Befehl JMP, einen 
Zwei-Byte-Wert in der Reihenfolge Low-Byte, High-Byte. 

Außerdem gibt es noch Befehle, die keine zusätzlichen 
Daten erfordern. Erhält der Computer einen solchen 
Befehl, führt er ihn aus und erwartet sofort den nächsten. 
Entscheidend ist jedoch bei allen drei Versionen, daß der 
Prozessor ausschließlich Bitmuster erkennt und verarbei¬ 
ten kann. 

Es ist leicht, sich vorzustellen, welcher Aufwand compu¬ 
terintern getrieben werden muß, um beispielsweise eine 
Basic-Zeile in das 1/0-Format umzuwandeln, so daß sie 
ausgeführt werden kann. Trotz der großen Geschwindig¬ 
keit, mit der der Prozessor einzelne Byte-Befehle ausführt, 
macht sich bei großen Programmen oder aufwendigen 
Berechnungen der Zeitverlust bei der »Übersetzung« des 
Basic-Programms höchst negativ bemerkbar. 



Bild 1. Datenkommunikation zwischen einer Speicherstelle 
und dem Prozessor (CPU) 


Es wäre also wünschenswert, dem Computer das Pro¬ 
gramm gleich in maschinenlesbarer Form mitzuteilen. Es 
bieten sich dazu in erster Linie zwei Verfahrensweisen an: 

Einerseits kann man einen Compiler einsetzen. Ein 
Compiler wandelt das fertige Programm, geschrieben in 
einer höheren Programmiersprache wie etwa Basic, in ein 
maschinenlesbares Programm, einen sogenannten 
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Objektcode, um. Das ursprüngliche Programm, der Quell¬ 
code, wird danach nicht mehr benötigt, ein reines 
Maschinensprache-Programm wirkt nun im Computer. 


Assembler: Stein auf Stein 


Der Zeitgewinn gegenüber dem Basic-Interpreter ist dabei 
schon sehr groß. Allerdings hat dieses Verfahren einen 
Nachteil. Bei der Umsetzung wird nicht immer der beste 
Weg beschritten, so daß das Maschinenprogramm länger 
wird, als nötig wäre. Dies kommt daher, daß Compiler dem 
erzeugten Code zusätzlich noch ein sogenanntes 
»Runtime-Modul« anfügen. Es wird also wertvoller Spei¬ 
cherplatz verschwendet und auch zeitmäßig ist das Opti¬ 
male noch nicht erreicht. 

Andererseits kann man mit Hilfe eines Assemblers oder 
Maschinensprache-Monitors direkt in Maschinensprache 
programmieren und erhält so (bei entsprechend geschick¬ 
ter Programmierung) die kürzeste und schnellste Version. 
Allerdings ist das Programmieren in Maschinensprache 
nicht ganz einfach. So ist für den Anfänger zunächst die 
große Anzahl verschiedenartiger Befehle ein Problem. 
Schwierigkeiten bereitet aber auch die Einfachheit der 
Anweisungen, aus denen große Programme entstehen 
sollen. 

Man kann die Unterschiede zwischen der Maschinen¬ 
sprache und einer höheren Programmiersprache anhand 
eines einfachen Beispiels verdeutlichen: Stellen Sie sich 
vor, Sie müßten ein Haus bauen. Dies können Sie entweder 
mit einzelnen Ziegelsteinen tun, was zwar sehr aufwendig 
ist, Ihnen aber optimale Gestaltungsmöglichkeiten bietet. 


Ein schnellerer Weg zum eigenen Heim ist die Verwendung 
von Fertigbauteilen, wobei Sie aber hinsichtlich der Fein¬ 
heiten der Gestalung einige Abstriche machen müssen. 
Diese vorgefertigten Teile symbolisieren die Befehle einer 
höheren Programmiersprache. Viele »kleine« Assembler¬ 
befehle sind hier zu einem Klotz zusammengefaßt, der 
zwar schneller zum Ziel führt, dafür aber nicht mehr so 
universell eingesetzt werden kann. 

Das Beispiel mag etwas hinken, das Prinzip gilt aber den¬ 
noch: Durch Assembler-Programme kann man Probleme 
gezielter, schneller und mit weniger Aufwand lösen, die 
Programmierung selbst ist aber etwas kompliziert. Bei der 
Assembler-Programmierung verzichtet man auf die Ein¬ 
gabe von Einsen und Nullen und verwendet statt dessen 
leichter zu merkende Kürzel für die Befehle, sogenannte 
»Mnemonics«. Das Wort kommt von griechisch »Mneme«, 
dem Begriff für Gedächtnis. Es ist ein leichtes, Analogien 
zwischen den Assembler- und Basic-Befehlen zu ent¬ 
decken. Ein Beispiel: 

Assembler: JMP Basic: GOTO 


Mnemonics: 

Kürzel für einfaches Programmieren 


Weitere Beispiele finden Sie in Tabelle 1. Das Verständnis 
der Mnemonics wird dadurch zu Beginn Ihrer Maschinen¬ 
sprache-Karriere erleichtert. Es ist allerdings zu beachten, 
daß die Vergleiche nur mit Einschränkungen gültig sind, 
beziehungsweise die Bedeutung der Assemblerbefehle 
nur unvollständig wiedergeben. 


Assembler: 

Basic 

PHA 

__ 

PHP 


PLA 

— 

PLP 

.. _ 

ROL 

_ _ 

ROR 

_ _ 

RTI 


RTS 

RETURN 

SBC... 

(A = A-...) 

SEC 


SED 

_ _ 

SEI 


STAM 

POKE M, A 

STXM 

POKE M, X 

STYM 

POKE M, Y 

TAX 

X = A 

TAY 

Y = A 

TSX 


TXA 

A = X 

TXS 

_ _ 

TYA 

A ■= Y 

Hierbei bedeuten: 

A 

= Inhalt des Akkumulators 

X 

= Inhalt des X-Registers 

Y 

= Inhalt des Y-Registers 

M 

= (Speicher-)Adresse 

W 

= Ergebnis vorhergehender Berechnungen 


beziehungsweise Zahl (Wert) 

... = Zahl (Wert) oder (Speicher-)Adresse 

- - 

<= zu diesem Befehl konnte keine sinnvolle 


Basic-Analogie gefunden werden 

Basic-Analogien in Klammern sind nur bedingt richtig. Indirekte 
oder indizierte Adressierungen werden in der Tabelle nicht 

behandelt. 



Assembler: 

Basic: 

ADC 

_ _ 

AND ... 

A AND ... 

ASL 

_ _ 

BCCM 

IFW <= 255THEN GOTO M 

BCS M 

IF W > 255 THEN GOTO M 

BEQM 

IF W1 = W2 THEN GOTO M 

BIT M 

_ _ 

BMI M 

IF W < 0 THEN GOTO M 

BNE M 

IF W1 < > W2 THEN GOTO M 

BPL M 

IF W > 0 THEN GOTO M 

BRK 

BVCM 

BVSM 

(STOP) 

IF W > --I27 OR W < 127 THEN GOTO M 

IF W < -127 OR W > 127 THEN GOTO M 

CLC 

CLD 

CLI 

CLV 

CMP ... 

md —■ . »■> * 1* 

... = A? 

CPX ... 

... = X? 

CPY ... 

... = Y? 

DEC M 

M - M-1 

DEX 

X - X- 1 

DEY 

Y - Y-1 

EOR ... 

... EXOR A 

INC M 

M = M + 1 

INX 

X - X + 1 

INY 

Y = Y + 1 

JMP M 

GOTOM 

JSR M 

GOSUBM 

LDA ... 

A = ... 

LDX ... 

X = ... 

LDY ... 

Y = ... 

LSR 

_ _ 

NOP 

Leerzeile 

ORA ... 

A OR ... 



Tabelle 1. Analogien der Assembler-Befehle der 6510-CPU zu Basic 
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Sollten Sie keinen Assembler besitzen, empfiehlt es 
sich, unser Programm »Giga-Ass« aus diesem Sonderheft 
(Seite 116) abzutippen. Dies ist ein hervorragender Assem¬ 
bler, der Sie auch in die Lage versetzt, die Beispiele am 
Computer nachzuvollziehen oder eigene Maschinenspra¬ 
che-Programme zu schreiben. 

Für den Anfänger bietet sich in erster Linie die Gelegen¬ 
heit, einzelne Programmstücke mit dem Assembler zu 
schreiben, die man dann in eigene Spiele oder andere Pro¬ 
gramme einbaut. Als Beispiel wollen wir uns hier die Basic- 
Programmierung einer Joystick-Abfrage ansehen: 

Angenommen, Sie wollen ein Sprite horizontal oder verti¬ 
kal über den Bildschirm bewegen. Dabei beschränken wir 
uns auf die »normalen« 255 Bildschirmpositionen, das 
heißt, wir verzichten zunächst auf die X-Adressen 256 bis 
320, die nur über das MSB (Most Significant Bit) zu errei¬ 
chen sind. Wählen wir Sprite Nummer 0, so ist die Bild¬ 
schirmposition in den Adressen 53248 (X-Position) und 
53249 (Y-Position) abgelegt. Zur Steuerung benutzen wir 
den Joystickport 2 (Adresse 56320). 

Zunächst definieren wir die Variablen: 

100 A=PEEK(56320) 

110 X=PEEK(53248) 

120 Y=PEEK(53249) 

Danach fragen wir eine eventuelle Joystickbewegung ab. 
Durch eine logische Und-Verküpfung wird geprüft, ob das 
entsprechende Bit gelöscht ist: 

200 IF (A AND 1) = 0 THEN GOTO 300 
210 IF (A AND 2) = 0 THEN GOTO 310 
220 IF (A AND 4) = 0 THEN GOTO 320 
230 IF (A AND 8) =0 THEN GOTO 330 
240 RETURN 

Nun wird, falls erforderlich, die Position des Sprites 
verändert: 

300 Y=Y-1 

301 P0KE53249,Y 

302 RETURN 

310 Y=Y+1 

311 P0KE53249,Y 

312 RETURN 

320 X=X-1 

321 P0KE53248,X 

322 RETURN 

330 X=X+1 

331 POKE53248,X 

332 RETURN 

Diese Abfrage, als Unterprogramm geschrieben, kann 
beliebig oft aus dem Hauptprogramm durch »GOSUB100« 
aufgerufen werden. Auf Sicherheitsabfragen wurde aus 
Gründen der Übersichtlichkeit verzichtet. 

Die Umsetzung in ein Maschinensprache-Programm ist 
mit Hilfe unserer Tabelle 1 nun recht einfach: 

100 LDA 56320; Lade Akkumulator mit dem Inhalt 
der Speicherstelle 56320. 

Absolute Adressierung 
110 LDX 53248 
120 LDY 53249 

200 AND #1 

201 CMP #0; Ist das Ergebnis 0? 

202 BEQ MAI; Wenn ja, Sprung zu 
Marke 1. Relative Adressierung 

203 LDA 56320; da der Inhalt des 
Akkumulators durch die Und-Verknüpfung 
geändert wurde 

210 AND #2 

211 ... 


Die folgenden Schritte verlaufen nach demselben Muster: 

230 AND #8 

231 CMP #0 

232 BEQ MA4 
240 RTS 

300 MAI DEY 

301 STY 53249; Speichere den Inhalt des 
Y-Registers in 53249 

302 RTS 

310 MA2 INY 

311 STY 53249 

312 RTS 

320 MA3 DEX 

321 STX 53248 

322 RTS 

330 MA4 INX 

331 STX 53248 

332 RTS 

Als Startadresse kann man beispielsweise 49152 
festlegen: 

010 .BASE 49152 

Das Quellprogramm wird nun mit 

400 .END 

beendet. Nach dem Assemblieren liegt das Programm in 
reiner Maschinensprache vor. Wir starten die Joystick- 
Abfrage nun mit »SYS 49152«. Nach Erreichen eines 
»RTS«-Befehls kehrt das Programm zurück ins Basic. Wenn 
Sie diese Routine in ein Basic-Programm einbinden, wer¬ 
den Sie den Geschwindigkeitszuwachs gegenüber der 
Basic-Abfrage erkennen. Aber damit ist noch nicht die 
Grenze erreicht. Eine solche Abfrage ist durchaus effek¬ 
tiver, das heißt, noch kürzer programmierbar. Wir haben 
hier nämlich einen recht umständlichen Weg gewählt, um 
uns Äh n chkeiten mit Basic zunutze zu machen, und so 
das Assembler-Programm besser zu verstehen. 

Sicherheit vor dem Absturz 


Bei praktischer Verwendung des Maschinenprogramms 
wird übrigens eine Sicherheitsabfrage für die Bereichs¬ 
überschreitung unverzichtbar, da beim Absturz eines 
Maschinensprache-Programms: oft nur ein Reset bezie¬ 
hungsweise das Ausschalten des Ctottiputers die einzige 
Lösung bleibt. Bei der Sicherheitsafofl'age kann man etwa 
nach folgendem Schema vorgehen: 

111 CPX #255; ist X=255? 

112 BEQ MA5; wenn ja, dann ... 

113 JMP MA6 

114 MA5 DEX ; ...X um 1 vermindern 

115 MA6 CPX #0 ; ist X=0? 

116 BEQ MA7 ; wenn ja, dann ... 

117 JMP MA8 

118 MA7 INX ; ...X um 1 erhöhen 
120 MA8 ... 

Diese Überprüfung muß selbstverständlich auch für den 
Y-Wert erfolgen. Die Joystickabfrage sollte dann ohne 
Schwierigkeiten funktionieren. 

Die hochkomplizierten Vorgänge bei der Ausführung 
eines Programms spielen sich zum überwiegenden Teil in 
einem einzigen Register ab. Das heißt, alle Operationen 
laufen nacheinander ab, zerlegt in winzig kleine Teil¬ 
schritte. Hier liegt auch der Grund dafür, daß bei einer Takt- 
frequnz von fast einer Million Hertz pro Sekunde (während 
eines Taktes wird eine Ein-Byte-Operation, entweder ein 
Assemblerbefehl oder ein Speicherzugriff, ausgeführt) 
dennoch Rechenzeiten von mehreren Sekunden auftreten. 
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Welche Register besitzt nun der 6510-Prozessor im C64 
im einzelnen? Betrachten Sie dazu Bild 2. Da ist zunächst 
einmal das eigentliche Arbeitsregister des Prozessors, der 
Akkumulator. Der Akkumulator ist ein 8-Bit-Register, das 
heißt, in ihm findet genau ein Byte Platz. Die gleiche Größe 
besitzen das X- und das Y-Register, die sogenannten 
Indexregister. Sie dienen hauptsächlich zum Abarbeiten 
von Tabellen und sind nützlich für Transfer-Operationen 
sowie für Zählvorgänge. A, X und Y werden für die weitere 
Arbeit bestimmte Werte zugeordnet. 

Ein Register, das insbesondere Funktionen für das 
Arbeiten mit Maschinensprache besitzt, ist das Status- 
Register. Im Status-Register befinden sich sogenannte 
Flags. Das sind Bits, deren jeweilige Zustände (1 oder 0) 
den Prozessor veranlassen, bestimmte Operationen aus¬ 
zuführen. Welche Flags es gibt und welche Kriterien ihren 
Zustand bestimmen, werden wir später noch behandeln. 

Der Stack-Pointer verwaltet den Prozessorstack. Der 
Prozessorstack ist ein Zwischenspeicher, auf den bei 
Bedarf der Inhalt des Akkumulators und des Statusregi¬ 
sters gerettet wird, um Platz für andere Operationen zu 
schaffen. Der Prozessorstack arbeitet nach dem LIFO-Prin- 
zip (Last In - First Out), der zuletzt auf dem Stack abgelegte 
Wert wird als erster wieder ausgelesen (Bild 3). Der Stack- 
Pointer zeigt immer auf diese Stelle. 

Das letzte für die Programmierung wichtige Register ist 
der Programmzähler, ein 16-Bit-Register. Im Programm¬ 
zähler befindet sich immer die Adresse der Programm¬ 
stelle, die als nächstes zu bearbeiten ist. Bei jedem Takt 
wird dieses Register automatisch hochgezählt. 


Flaggenparade 


Das Status-Register beinhaltet insgesamt sieben verschie¬ 
dene Flags, zu deutsch Flaggen. Sieben Bits können also, 
je nachdem ob sie gesetzt oder nicht gesetzt sind, eine 
besondere Bedeutung für den weiteren Ablauf des Pro¬ 
gramms haben. Die Anordnung der Bits im Register ist 
folgende: 


N 

v|- 

B 

D 

1 

Z 

c 



Bild 2. Die Register des 6510-Mikroprozessors 

N: Das Negativ-Flag ist gesetzt, wenn das Ergebnis einer 
Operation negativ ist. 

Um eine Vielzahl verschiedener Lade- und Speicherope¬ 
rationen zu gewährleisten, gibt es mehrere Adressierung¬ 
sarten. Die einfachste ist die unmittelbare Adressierung: 
LDA #$FF 

lädt den Akkumulator mit dem Wert 255 (hexadezimal $FF). 

Eine weitere Adressierung ist die absolute Adressierung: 
LDA $C000 

lädt den Akkumulator mit dem Inhalt der Speicherstelle 
49152 (hexadezimal $C000). 

Komplizierter wird die Sache schon bei den indizierten 
Adressierungen: 

LDA $C000,X 

lädt |uo~ Akkumulator mit dem Inhalt der Speicherstelle 
(49152+lnhalt des X-Registers). Es handelt sich um eine X- 
indizierte Adressierung. Ebenso kann man auch Y-indiziert 
adressieren: 

LDA $C000,Y 

Durch die X- oder Y-Adressierung ist es leicht, Tabellen 
abzuarbeiten, indem man die Basisadresse beibehält und 
das X- oder Y-Register hochzählt. 

Die Befehle benötigen mit Ausnahme der unmittelbaren 
Adressierung jeweils drei Byte Speicherplatz. Sie werden 
im Speicher folgendermaßen abgelegt: 


C: Das Carry-Flag wird gesetzt, wenn bei Additionen ein 
Übertrag auftritt. Im Akkumulator können beispielsweise 
aufgrund der Größe nur Ergebnisse bis 255 verarbeitet wer¬ 
den. Wird dieser Bereich nun bei einer Addition überschrit¬ 
ten, wird das Carry-Flag gesetzt. Befehle SEC, CLC. 

Z: Das Zero-Flag wird gesetzt, wenn das Ergebnis einer 
Operation gleich Null ist. 

I: Das Interrupt-Disable-Flag wird gesetzt, wenn ein Inter¬ 
rupt nicht stattfinden darf, da eine Operation nicht gestört 
werden soll. Das ist zum Beispiel beim Verbiegen des IRQ- 
Vektors der Fall. Der Befehl SEI bewirkt dies. CLI erlaubt 
den Interrupt wieder. 

D: Das Dezimal-Flag schaltet zwischen Binär- und Dezi¬ 
malarithmetik um. Ist das Dezimal-Flag gesetzt, werden 
Zahlen im Akku als Dezimalzahlen interpretiert. Die 
unteren vier Bits werden bis neun hochgezählt, dann 
erfolgt ein Übertrag auf die oberen vier Bits, so daß der Wert 
des Registers insgesamt 99 betragen kann. Befehle: SED, 
CLD. 

B: Das Break-Flag wird gesetzt, wenn der Break-Befehl 
ausgeführt wird. 

V: Das Overflow-Flag ist ein Signal, daß bei einer vorzei¬ 
chenbehafteten 8-Bit-Addition der zulässige Bereich über¬ 
schritten wurde. Der zulässige Bereich erstreckt sich von - 
-128 bis +127. Overflow-Flag löschen: CLV. 


LDA $0000: AD 00 CO 

»AD« ist der hexadezimale Code für den absoluten LDA- 
Befehl (siehe auch Tabelle 2), »00 CO« ist die Adresse in der 
Reihenfolge Low-Byte, High-Byte. Um Speicherplatz und 
Rechenzeit zu sparen, kann man die oben erwähnten 



Bild 3. Der Prozessorstapel wird stets von oben bearbeitet 
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Adressierungen in der Zero-Page als 2-Byte-Befehle 
anwenden. Die Zero-Page, zu deutsch »Null-Seite«, ist der 
Speicherbereich von $00 bis $FF, also alle Adressen klei¬ 
ner oder gleich 1 Byte: 

LDA $5E : A5 5E 

Es gibt darüber hinaus noch weitere Adressierungsar¬ 
ten, beispielsweise die indiziert-indirekte Adressierung. 
Diese Adressierung ist nur innerhalb der Zero-Page in Kom¬ 
bination mit dem X-Register erlaubt: 

LDA ($5E,X) 

Der Akkumulator wird daraufhin mit dem Inhalt der Spei¬ 
cherzelle geladen, die sich aus folgender Rechnung ergibt: 
LDA $((5E+X)+(256*(5E+X+1))) 

Der Inhalt des X-Registers wird also zu $5E addiert. In 
der daraus resultierenden Speicherzelle befindet sich das 
Low-Byte, in der nächsten Speicherzelle das High-Byte der 
endgültigen Adresse. 

Zur Veranschaulichung hier ein Beispiel: 

X = $10 

Low-Byte = PEEK($5E+$10 = $6E) 

High-Byte = PEEK($6F) 

PEEK($6E) = $00 
PEEK($6F) = $C0 
Adresse = $C000 

Das ist nicht ganz einfach zu berechnen, aber sehr nütz¬ 
lich innerhalb eines Programms. 

Eine Adressierung, speziell zur Verwendung in Verbin¬ 
dung mit dem Y-Register, ist die indirekt-indizierte Adres¬ 
sierung. Die Ausführung ist ähnlich der indiziert-indirekten 
Adressierung: 

LDA ($5E),Y entspricht: LDA 
(($5E+256*$5F)+Y) 

Y = $10 

Low-Byte = PEEK($5E) 

High-Byte = PEEK($5F) 

PEEK($5E) = $00 
PEEK($5F) = $C0 
Adresse = $C010 

Daneben gibt es noch die sogenannte relative Adressie¬ 
rung. Diese Adressierung wird bei den bedingten Sprung¬ 
befehlen angewandt. Die bedingten Sprungbefehle, wie 
beispielsweise BCC oder BCS, erlauben nur Sprünge über 
Distanzen bis zu 128 Byte. Es wird keine direkte Sprung¬ 
adresse, sondern die Differenz, der sogenannte »Offset«, 
zur Zieladresse im Speicher abgelegt. Dabei sind Werte 
von 1 bis 127 für Vorwärtssprünge und Werte von 128 bis 
255 für Rücksprünge zuständig. Die Sprungadresse für 
Rücksprünge berechnet sich wie folgt: 

Sprungziel = Programmzähler + Wert — 256 

Der Programmierer hat in der Regel nichts mit der 
Berechnung des Offsets zu tun. Er kann die Zieladresse 
absolut angeben: 

C000 BCC $C020 

Überschreitet der Offset die zulässige Bytezahl, erhält er 
einen »Branch Error« vom Assembler gemeldet. 

Eine weitere Adressierungsart, nämlich die indirekte 
Adressierung erlaubt der JMP-Befehl. Bei JMP (Adresse) 
wird die Adresse angesprungen, die in »Adresse« und 
»Adresse + 1« im Low-, Highbyte-Format abgelegt ist. Im 
C64 wird diese Adressierungsart für die Sprungtabelle im 
Kernel genutzt. 

Eine letzte Adressierungsart bleibt zu erwähnen, die 
implizite Adressierung. Hier wird durch den Befehl selbst 
die Adresse bestimmt, das heißt, es ist nicht nötig, ein 
Sprungziel anzugeben. Beispiel: 

RTS 

Der Befehl »RTS« (Return from Subroutine) ist vergleich¬ 
bar mit dem »RETURN«-Befehl in Basic und wird automa¬ 
tisch zur richtigen Adresse ausgeführt. 


Die Prozessor-Befehle 


Der 6510-Prozessor kennt eine Vielzahl von Befehlen, die 
einer kurzen Erklärung bedürfen. Wir stellen Ihnen deshalb 
die Befehle in einer alphabetischen Übersicht vor. Verglei¬ 
chen Sie dazu auch die Tabellen 1 und 2. 

ADC: »Add with Carry«. Der Akkumulatorinhalt, der Ope¬ 
rand und das Carry-Bit werden addiert. Das Carry-Flag wird 
gesetzt, wenn das Ergebnis größer als 255 ist. Folgende 
Flags können durch den ADC-Befehl beeinflußt werden: 
N,V,Z,C 

AND: »And Akku with Memory«. Akkumulator und Operand 
werden UND-verknüpft. Beeinflußte Flags: N,Z 
ASL: »Arithmetic Shift Left«. Die Bits des Akkumulators 
oder des Operanden werden um eine Stelle nach links 
geschoben. Der so entstehende »Leerraum am rechten 
Ende« wird durch eine Null gefüllt, das »links herausrut¬ 
schende Bit« wandert ins Carry-Flag. Der Vorgang ent¬ 
spricht einer Multiplikation mit 2. Flags: 

N,Z,C 

BCC: »Branch if Carry Clear«. Verzweigt, wenn das Carry- 
Flag gelöscht ist. 

BCS: »Branch if Carry Set«. Verzweigt, wenn das Carry- 
Flag gesetzt ist. 

BEQ: »Branch if Equal«. Verzweigt, wenn das Zero-Flag 
gesetzt ist. Bei Vergleichsoperationen wird das Zero-Flag 
beeinflußt. Deshalb wird es häufig zur Prüfung der Gleich¬ 
heit benutzt (Equal: gleich). 

BIT: »Bit Test«. Das 6. und 7. Bit des angegebenen Operan¬ 
den werden im Negativ- und Overflow-Flag abgelegt. Dann 
wird der Akkumulator mit dem Operanden logisch AND- 
verknüpft. Die Register werden bis auf die Flags nicht ver¬ 
ändert. p iags: N,V,Z 

BMI: »branch if Minus«. Verzweigt, wenn das Ergebnis 
einer Rechnung negativ und somit das Negative-Flag 
gesetzt ist. 

BNE: »Branch if Not Equal«. Gegenstück zu BEQ. 

BPL: »Branch if Plus«. Gegenstück zu BMI. 

BRK: »Break«. Der Befehl dient dazu, beim Austesten von 
Programmen sogenannte »Break-Points« zu setzen. Beim 
Erreichen eines solchen Punktes stoppt das Programm 
und verzweigt in eine Unterprogramm-Routine, meistens 
einen Maschinensprache-Monitor. Zuvor werden Pro¬ 
grammzähler und Status auf den Stack gerettet. Dann 
springt das Programm zu der in $FFFE und $FFFF angege¬ 
benen Adresse. Die Rückkehr ist mit RTI zu veranlassen. 
Flags: B,l 

BVC: »Branch if Overflow Clear«. Verzweigt, wenn das 
Overflow-Flag gelöscht ist. 

BVS: »Branch if Overflow Set«. Gegenstück zu BVC. 

BVS und BVC sind Befehle zur bedingten Verzweigung; die 
folgenden »Clear«-Befehle dienen dazu, das jeweilige Flag 
direkt zu beeinflussen. 

CLC: »Clear Carry-Flag« löscht das Carry-Flag. Der Befehl 
sollte vor einer Addition verwendet werden, um zu verhin¬ 
dern, daß ein eventuell gesetztes Carry-Bit (Übertrag) 
addiert wird. 

CLD: »Clear Decimal-Flag« löscht das Dezimal-Flag und 
schaltet so die Dezimal-Arithmetik ab. 

CLI: »Clear Interrupt-Disable-Flag« löscht das Interrupt- 
Flag. Von nun an sind Unterbrechungen (Interrupts) 
erlaubt, die über den IRQ-Eingang angemeldet werden. 
CLV: »Clear Overflow-Flag« löscht das Overflow-Flag. 
CMP: »Compare to Accumulator« vergleicht einen Wert mit 
dem Inhalt des Akkumulators. Der Akkumulator wird nicht 
verändert. Die Operation läuft wie folgt ab: Der Vergleichs¬ 
wert wird vom Inhalt des Akkumulators abgezogen. Das 
Ergebnis wird nicht gespeichert, der Akkumulator bleibt 
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also unverändert. Die Rechenoperation hat jedoch die 
Flags beeinflußt. Anhand der gesetzten Flags kann man 
also gewisse Schlüsse ziehen. Sind beispielsweise Wert 
und Akkumulatorinhalt gleich, so ergibt die Rechnung A-W 
null. Daraufhin wird das Zeroflag gesetzt. Soll bei Gleich¬ 
heit ein Unterprogramm angesprungen werden, benutzt 
man nun einfach den BEQ-Befehl. 

Die Subtraktion beeinflußt darüber hinaus noch das 
Carry- und das Overflow-Flag. Das Carry-Flag wird gesetzt, 
wenn der Wert kleiner oder gleich dem Akkumulator war. 
Man kann also folgende Verzweigungstabelle aufstellen: 
W < A: BCS 

W = A: BEQ 

W > A: BCC 

WoA: BNE 

CPX: »Compare to X« wie CMP, allerdings wird anstatt 
Akkumulator das X-Register zum Vergleich herangezogen. 
CPY: »Compare to Y« wie CMX, jedoch mit Y-Register 
DEC: »Decrement Memory« vermindert den Wert der 
danach angegebenen Speicherzelle um 1, beeinflußt 
dadurch gegebenenfalls das N- und Z-Flag. 

DEX: »Decrement X« vermindert den Inhalt des X- 
Registers um 1. Ideal zum Programmieren von Schleifen 
(ähnlich »FOR I = X TO 0 STEP -1«). Beeinflußt N- und 
Z-Flag. 

DEY: »Decrement Y« vermindert den Inhalt des Y-Registers 
um 1. 

EOR: »Exclusive-Or Memory with Accumulator« verknüpft 
den Inhalt des Akkumulators mit einem Wert Exklusiv- 
ODER. Im Akkumulator wird ein Bit genau dann gesetzt, 
wenn es entweder im Akkumulator oder im Speicher 
gesetzt war, nicht aber, wenn es im Akkumulator und im 
Speicher oder überhaupt nicht gesetzt war. Beeinflußt 
gegebenenfalls N-, Z- und C-Flag. 

INC: »Increment Memory« erhöht den Inhalt der angege¬ 
benen Speicherstelle um 1 und beeinflußt gegebenenfalls 
N- und Z-Flag. 

INX: »Increment X« erhöht den Inhalt des X-Registers um 
1 und beeinflußt gegebenenfalls N- und Z-Flag. 

INY: »Increment Y« erhöht den Inhalt des Y-Register um 1 
und beeinflußt gegebenenfalls N- und Z-Flag. 

JMP: »Jump to« führt einen unbedingten Sprung zur ange¬ 
gebenen Adresse aus, wobei die Adressierung sowohl 
absolut als auch indirekt erlaubt ist. Es werden keine Flags 
beeinflußt. 

JSR: »Jump to Subroutine« führt einen Unterprogramm- 
Sprung aus. Der momentane Programmstand wird auf den 
Prozessor-Stack gerettet. Wenn das Unterprogramm durch 
RTS abgeschlossen wird, erfolgt ein Rücksprung zur 
Adresse direkt hinter dem JSR-Befehl. Hier werden eben¬ 
falls keine Flags beeinflußt. 

LDA: »Load Accumulator with« lädt den Akkumulator mit 
dem angegebenen Wert (unmittelbar) oder mit dem Inhalt 
der angegebenen Speicherstelle (absolut oder indiziert). 
Dem Wert entsprechend werden N- und Z-Flag verändert. 
LDX: »Load X with« lädt das X-Register mit dem angegebe¬ 
nen Wert (unmittelbar) oder mit dem Inhalt der angegebe¬ 
nen Speicherstelle (absolut oder Y-indiziert). Dem Wert 
entsprechend werden N- und Z-Flag verändert. 

LDY: »Load Y with« lädt das Y-Register unmittelbar, absolut 
oder X-indiziert. Dem Wert entsprechend werden N- und 
Z-Flag verändert. 

LSR: »Logical Shift Right« verschiebt den Inhalt des Akku¬ 
mulators um ein Bit nach rechts. Das dadurch herausfal¬ 
lende (am weitesten rechts stehende) Bit wandert ins Carry- 
Flag. Von links wird eine Null in den Akkumulator gescho¬ 
ben. Die Operation entspricht mathematisch einer Division 
durch Zwei, der anfallende Rest steht im Carry-Flag. Neben 
dem C-Flag wird eventuell noch das Z-Flag verändert. 


NOP: »No Operation« ist ein Leerbefehl. Er wird eingesetzt, 
um Warteschleifen zu bilden oder als Platzhalter für später 
einzufügende Befehle. 

ORA: »Or Accumulator with memory« oder-verknüpft den 
Akkumulator mit dem angegebenen Wert oder dem Inhalt 
der angegebenen Speicherzelle. Es können N- und Z-Flag 
beeinflußt werden. 

PHA: »Push Accumulator on Stack« rettet den Akkumulator 
auf den Prozessor-Stapel. Der Stack-Pointer (Stapelzeiger) 
wird um einen Zähler vermindert. 

PHP: »Push Processorstatus on Stack« rettet das Status¬ 
register und speichert so alle Flags. 

PLA: »Pull Accumulator from Stack« holt den Akkumulator- 
Inhalt vom Prozessor-Stapel, der Stackpointer wird wieder 
hinaufgezählt, gegebenenfalls werden N- und Z-Flag 
verändert. 

PLP: »Pull Processorstatus from Stack« holt das Status¬ 
register vom Prozessor-Stapel. Es werden alle alten Flags 
überschrieben! 

ROL: »Rotate Left« verschiebt den Inhalt der Speicherzelle 
beziehungsweise des Akkumulators um ein Bit nach links. 
Das herausfallende Bit gelangt ins Carry-Flag, der 
ursprüngliche Carry-Flag-Inhalt wird von rechts hereinge¬ 
schoben. Der Befehl kann das N-, Z- und C-Flag be¬ 
einflussen. 

ROR: »Rotate Right« wie ROL, allerdings rechts herum. 
RTI: »Return from Interrupt« beendet eine Interrupt- oder 
BRK-Routine, stellt den alten Wert des Programmzählers 
und des Statusregisters wieder her. 

RTS: »Return from Subroutine« beendet ein Unterpro¬ 
gramm und kehrt zur Verzweigungsstelle zurück, indem 
der alte Programmzähler vom Stapel geholt wird. 

SBC: »Subtract from Accumulator«zieht den angegebenen 
Wert »nm Akkumulator ab. Darüber hinaus wird noch eine 
1 abgewogen, wenn das Carry-Flag nicht gesetzt ist. Außer¬ 
dem wird das Carry-Flag gelöscht, wenn die abgezogene 
Zahl größer als der Akkumulator-Inhalt war. 

SEC: »Set Carry-Flag« wird gesetzt, um bei Subtraktionen 
richtige Ergebnisse zu erhalten und zu erkennen, ob der 
abgezogene Wert größer als der Akkumulator-Inhalt war. 
SED: »Set Decimal-Flag« setzt das Dezimal-Flag und 
schaltet damit auf BCD-Arithmetik (BCD bedeutet Binary 
Coded Decimals). Der maximale Akkumulator-Inhalt 
beträgt nun 99 anstatt 255, wobei je vier Bit für eine Dezi¬ 
malzahl zuständig sind. 

SEI: »Set Interrupt-Disable-Flag« setzt das I-Flag und ver¬ 
hindert damit weitere rechnergesteuerte Unter¬ 
brechungen. 

STA: »Store Accumulator in« schreibt den Akkumulator- 
Inhalt in die angegebene Speicherstelle. Der Akkumulator 
wird dadurch nicht verändert. 

STX: »Store X in« speichert den Inhalt des X-Registers in 
der angegebenen Speicherstelle. 

STY: »Store Y in« speichert den Inhalt des Y-Registers in 
der angegebenen Speicherstelle. 

TAX: »Transfer Accumulator to X« kopiert den Akkumulator- 
Inhalt in das X-Register. Beeinflußt gegebenenfalls N- und 
Z-Flag. 

TAY: »Transfer Accumulator to Y« kopiert den Akkumulator- 
Inhalt in das Y-Register. Beeinflußt gegebenenfalls N- und 
Z-Flag. 

TSX: »Transfer Stackpointer to X« überträgt den Stapelzei¬ 
ger ins X-Register. Kann N- und Z-Flag beeinflussen. 

TXA: »Transfer X to Accumulator« Gegenstück zu TAX. 
TXS: »Transfer X to Stackpointer« Gegenstück zu TSX. 
TYA: »Transfer Y to Accumulator« Gegenstück zu TAY. 

Eine komplette Übersicht über alle Befehle mit allen 
Adressierungsarten und den entsprechenden Codes fin¬ 
den Sie im Tabellenteil dieses Sonderheftes auf Seite 150. 
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Tabelle 2. Die Assembler-Befehle der 6510-CPU und ihre hexadezimalen Codes in einer Kurzübersicht 


Nach dieser Menge von Befehlsdefinitionen werden Sie 
nun sehen, wie man die Befehle sinnvoll einsetzt. Der 
Assembler-Anfänger wird zunächst kaum vollständige 
Maschinencode-Programme schreiben, sondern vielmehr 
versuchen, kleinere Routinen in Basic-Programme einzu¬ 
binden. Interessant ist deshalb die Frage, wie man Varia¬ 
blenwerte an die jeweils andere Sprache übergibt. Zu die¬ 
sem Zweck sind in der Zeropage des C64-Speichers 
bestimmte Register reserviert, aus denen man die 
gewünschten Werte direkt auslesen kann. Natürlich ist es 


ebenfalls erlaubt, beispielsweise den Akkumulatorinhalt 
durch einen »STA«-Befehl in eine beliebige Speicherstelle 
zu schreiben und von Basic aus durch »PEEK(Speicher- 
stelle)« zu übernehmen. Einfacher ist es jedoch, den Akku¬ 
mulatorinhalt, den Inhalt des X-Registers, des Y-Registers 
und des Statusregisters aus den Adressen 780 bis 783 zu 
gewinnen. Werte, die von Basic aus übergeben werden sol¬ 
len, können direkt in diese Speicherstellen gePOKEt wer¬ 
den und befinden sich von diesem Moment an in den Pro¬ 
zessorregistern. Hier hat der Anwender die gewünschten 
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Werte sofort parat. Umgekehrt ist man in der Lage, über die 
oben genannten Speicherstellen aus dem Basic- 
Programm direkt auf den Inhalt des Akkumulators bezie¬ 
hungsweise der anderen Prozessorregister zuzugreifen. 

Der Einsatz der Befehle 


Die Maschinensprache an sich bietet neben dem Ge¬ 
schwindigkeitszuwachs weitere Vorteile. Der Commo- 
dore64 verfügt über eine Vielzahl verschiedener nützlicher 
Routinen. Im ROM (Read Only Memory) des Computers 
sind Maschinensprache-Programme gespeichert, die der 
C64 zur »täglichen Arbeit« benötigt. Durch die Assem¬ 
bler-Programmierung erhält der Anwender Gelegenheit, 
diese Routinen für seine Programme zu nutzen. 

Es erübrigt sich beispielsweise, Ein- und Ausgabeopera¬ 
tionen zu programmieren, da diese bereits im Kernal des 
Computers verankert sind und man sie dort nur aufzurufen 
braucht. Hier gibt es nicht nur die Lade-, Speicher- und 
Bildschirmoperationen wie von Basic aus, sondern zusätz¬ 
lich User-Port-Ansteuerungen und direkte Zugriffsoptionen 
auf die Datenübertragungskanäle. Um diese Funktionen 
auszuschöpfen, ist es allerdings unerläßlich, sich eines 
ausführlichen ROM-Listings zu bedienen. Dadurch erhält 
man einerseits einen guten Zugang zur Funktionsweise 
des Computers, andererseits sind alle wichtigen Routinen 
für eigene Programme umfassend inklusive ihrer Adressen 
aufgeführt. Sie bieten außerdem die Gelegenheit, viel über 
die professionelle Assemblerprogrammierung zu lernen. 
Mehr über diese Programmiertechnik erfahren Sie in dem 
Kurs »Von Basic zu Assembler« in diesem Sonderheft. Eine 
weitere Spezialität der Maschinensprache ist das Ausnut¬ 
zen des Interrupts. 

Unser Computer ist - solange er eingeschaltet ist - stän¬ 
dig mit irgendwelchen Tätigkeiten beschäftigt. Im Direkt¬ 
modus hängt er beispielsweise meistens in einer Warte¬ 
schleife und harrt der Eingaben, im Programm-Modus 
arbeitet er sich mit Hilfe der Interpreterschleife durch einen 
Basic-Befehlstext hindurch und so weiter. Nun werden Sie 
ja sicher schon festgestellt haben, daß er im Direktmodus 
auch den Cursor blinken läßt, in beiden Modi die Tl$-Uhr 
weiterzählt und weitere Dinge macht, die anscheinend so 
nebenher passieren. Der Mensch kann mehrere Dinge 
gleichzeitig tun, der Mikroprozessor ist nur fähig zu einer 
Arbeit pro Zeiteinheit. Weil aber diese Zeiteinheiten so 
unfaßbar kurz sind (etwa eine Millionstel Sekunde), haben 
wir Benutzer den Eindruck der Gleichzeitigkeit. 

Kurze Unterbrechung 


Wenn dem aber so ist, wie macht es der Computer, daß er 
beispielsweise ein Programm abarbeitet und trotzdem die 
Tl$-Uhr weiterzählt? Durch Unterbrechungen (interrupt = 
unterbrechen) der gerade ausgeübten Tätigkeit. Ein Bei¬ 
spiel aus dem täglichen Leben soll uns das illustrieren: Sie 
lesen gerade diesen Artikel, da klingelt das Telefon und ein 
Freund möchte von Ihnen wissen, was eigentlich Interrupts 
sind. Während Sie es ihm erklären, fängt in der Küche der 
Teekessel schrill zu pfeifen an. Sie sagen Ihrem Freund, er 
möge sich einen Moment gedulden, gehen in die Küche 
und nehmen den Kessel vom Feuer. Dann kehren Sie ans 
Telefon zurück und beenden nach einer Weile das 
Gespräch. Nach dem Auflegen des Telefonhörers setzen 
Sie die Lektüre des Artikels fort, fest entschlossen, sich nun 
nicht mehr unterbrechen zu lassen. Kurze Zeit später klin¬ 
gelt jemand an der Tür. Sie lassen sich dadurch aber nicht 
mehr stören. 


Dieses Gleichnis gibt ziemlich genau wider, was sich im 
Computer - nur bei millionenfacher Geschwindigkeit - bei 
Unterbrechungen abspielt. In Bild 4 ist das Schema des 
Ablaufs grafisch dargestellt. In gewisser Weise ähnelt das 
ganze dem Abarbeiten von Unterprogrammsequenzen. 
Weshalb programmiert man dann nicht einfach mittels eini¬ 
ger JSR-Aufrufe? Dafür hat L.A. Leventhal einen einleuch¬ 
tenden Vergleich: »Ein Unterbrechungs-System entspricht 
etwa einer Telefonklingel. Sie läutet, wenn ein Anruf emp¬ 
fangen wird, so daß man den Hörer nicht laufend abneh¬ 
men muß, um festzustellen, ob sich jemand in der Leitung 
befindet.« (L.A. Leventhal, »6502-Programmieren in 
Assembler«, te-wi Verlag München, Seite 12-1). Unterbre¬ 
chungen können dann angefordert und abgearbeitet wer¬ 
den, wenn sie nötig sind, im Gegensatz zu Unterprogram- 
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Bild 4. Interrupts aus dem täglichen Leben 


men, die erst dann berücksichtigt werden, wenn der Pro¬ 
grammier einen JSR-Befehl erfaßt. Um also schnell rea¬ 
gieren zu können, müßte man sehr oft in einem Programm 
eine Unterroutine anspringen, die gewisse Registerinhalte 
prüft und dann zur Bearbeitung verzweigt oder - bei Nicht¬ 
vorliegen einer Bedingung - im normalen Programm wei¬ 
terfährt. Das kostet unnötig Zeit und Speicherraum. Man¬ 
cher Verkehr des Computers mit Peripherie erfordert so 
schnelle Reaktionen, daß diese nur durch Unterbrechen 
des laufenden Programmes geleistet werden können. 

Ich denke, daß Sie nun die Notwendigkeit von Unterbre¬ 
chungen erkennen. Fast jede CPU kennt solche Unterbre¬ 
chungssysteme. Der Interrupt (Unterbrechung) ist eine 
vom Betriebssystem in einem bestimmten Rhythmus auto¬ 
matisch ausgeführte Operation, die das gerade (aufende 
Programm unterbricht und bestimmte Register abfragt, ob 
irgendwelche Ereignisse eingetreten sind, die ein pro¬ 
grammunabhängiges Eingreifen des Computers erfor¬ 
dern. Das beste Beispiel ist die Benutzung der RUN/STOP- 
RESTORE-Tastenkombination. Drückt man während eines 
Programmablaufs eine Taste, so bleibt das in der Regel 
ohne Einfluß auf das Programm, der Computer läßt sich 
nicht stören, sondern fährt mit der Programmbearbeitung 
fort. Anders liegt der Fall jedoch, wenn man die RUN/STOP- 
RESTORE-Kombination benutzt. Der Computer unter¬ 
bricht das Programm und meldet sich »zurück«. Woran liegt 
das? Die Lösung ist, daß während des Interrupts unter 
anderem geprüft wird, ob diese Tasten benutzt werden. 
Sobald der Computer erkennt, daß der Anwender das Pro¬ 
gramm unterbrechen will, verzweigt die Interrupt-Routine 
und führt einen Warmstart aus. 

Dieser »Systeminterrupt« erfolgt automatisch und ist von 
Basic aus nicht zu beeinflussen. Man kann zwar durch 
einen geeigneten POKE die RESTORE-Taste abschalten 
und so einen Programmabruch verhindern, der Interrupt 
selbst erfolgt jedoch weiterhin, wenn auch unsichtbar. 

Wenn nun jemand den Wunsch verspürt, diese automati- 
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sehe Programmunterbrechung für seine Zwecke zu nut¬ 
zen, so ist das durchaus verständlich. Interruptprogram¬ 
mierung eröffnet eine große Zahl interessanter Anwendun¬ 
gen. Joystick- und Tastaturabfragen lassen sich damit 
effektiver realisieren. Allerdings ist die Nutzung des Inter¬ 
rupts von Basic aus nahezu unmöglich. 

In weiser Voraussicht haben die Programmierer der 
C64-Systemroutinen einige Interruptregister bereitgestellt, 
die von Basic aus durch POKEs gesteuert werden können. 
Zum Beispiel das Sprite-Kollisions-Register, das - unab¬ 
hängig vom Programmablauf - je nach Wunsch eine Sprite- 
Sprite- oder Sprite-Hintergrund-Kollision erkennt und ein 
entsprechendes Bit setzt, das dann vom Programm aus 
weiter behandelt werden kann. 

Der Commodore64 verfügt über vier verschiedene Inter¬ 
ruptarten: 

1. Der Reset. 

Dieser Interrupt wird einerseits direkt nach dem Ein¬ 
schalten des Computers ausgelöst und ist verantwortlich 
für die Einschaltmeldung. Andererseits kann man diesen 
Interrupt auch erzeugen, indem man ihn über die Reset- 
Leitungen am seriellen oder parallelen Bus anfordert, ein 
Prinzip, das von den Resettastern angewandt wird. Der 
Reset kann nicht verhindert werden. Er wird in jedem Fall 
ausgeführt, wenn auch manchmal ohne Ergebnis. Bei Aus¬ 
lösung des Resets wird nämlich zunächst die Speicher¬ 
stelle $8000 (Modulstart mit CBM80-Kennung) abgefragt. 

Verschiedene Interrupt-Arten 


Steht dort die Anfangsadresse eines Programms, so wird 
die Resetroutine unterbrochen und das Programm neu 
gestartet. 

2. Der nicht maskierbare Interrupt (NMI). 

Hier handelt es sich um den oben erwähnten RESTORE- 
Tasten-Interrupt. Außerdem ist er für die Ansteuerung der 
RS232-Schnittstelle zuständig. Bei Auslösung dieses Inter¬ 
rupts erfolgt ein Sprung zu der Adresse, die in den Spei¬ 
cherstellen 792 und 793 steht. 

3. Der BRK-Interrupt (Break). 

Wird durch den Assembler-Befehl »BRK« ausgelöst und 
springt daraufhin zur Adresse, die im Vektor in den Spei¬ 
cherstellen 790 und 791 angegeben ist (normalerweise 
$FE66). 

4. Der maskierbare Interrupt (IRQ). 

Dieser Interrupt ist softwaremäßig steuerbar. Er kann 
also vom Programm aus an- und abgeschaltet werden. Die 
Assemblerbefehle »SEI« und »CLI« sind dazu vorgesehen. 
Dieser Interrupt wird in der Regel von den Timern der CIA 
gesteuert und nach jeder Veo Sekunde ausgelöst. Es wird 
in die IRQ-Routine verzweigt (Vektor in Adresse in 788 und 
789). Dort wird die Tastatur abgefragt (beispielsweise, ob 
die RUN/STOP-Taste bedient wurde), das Cursorblinken 
veranlaßt und die interne Uhr weitergezählt. Außerdem gibt 
es noch ein Register, das diesen Interrupt beeinflussen 
kann. Es handelt sich hierbei um das Interrupt Request- 
Register 53273 im VIC. Das Register bietet insgesamt vier 
verschiedene Optionen für die Auslösung eines Interrupts 
an: 

Rasterzeileninterrupt 

Lightpeninterrupt 

Sprite-Sprite-Kollision 

Sprite-Hintergrund-Kollision 

Welche Vorteile bietet nun die Assembler- 
Programmierung zur Ausnutzung der Interruptroutinen? 
Die Adresse in den Speicherstellen 788 und 789 ist verän¬ 
derbar, das heißt man kann anstelle der vorhandenen IRQ- 


Prozedur (Tastaturabfrage, interne Uhr, Cursorblinken) ein 
eigenes Maschinenprogramm in den Interrupt einbinden. 

Programme laufen parallel 


Man muß nur den sogenannten IRQ-Vektor (die Adresse in 
788/789) verbiegen, also die Startadresse des eigenen Pro¬ 
gramms in diese Speicherstellen schreiben. Allerdings 
fragt der Computer alle Veo Sekunde diese Speicherstellen 
ab, und wenn man gerade daran herummanipuliert, führt 
das zu einem Absturz des Systems. Man muß also zuvor 
den Interrupt ausschalten. Von Assembler aus ist das durch 
Setzen des »Interrupt Disable Flags« vollziehbar: 

SEI 

Danach richtet man den IRQ-Vektor auf die Startadresse 
des eigenen Programms (beispielsweise $C000): 

LDA # $00 ; Low-Byte 

STA $0314 ; dezimal 788 
LDA#$00 ; High-Byte 
STA $0315 ; dezimal 789 

Ab jetzt ist der Interrupt wieder zulässig, wir geben ihn 
also frei: 

CLI 

Allerdings ist darauf zu achten, daß bei $C000 (dezimal 
49152) tatsächlich ein lauffähiges Programm steht. An der 
angegebenen Adresse kann zum Beispiel eine Joystickab¬ 
frage beginnen, die nun interruptgesteuert ständig abge¬ 
fragt wird. Steuerbewegungen werden sofort und unver¬ 
züglich erkannt und übertragen, ohne daß die Abfrage 
innerhalb des ursprünglichen Programms aufgerufen wer¬ 
den muß. 

Hier noch einige grundsätzliche Bemerkungen zu 
Maser ,: '3nspracheprogrammen: 

Assemblierter Quellcode wird als reiner Maschinencode 
auf Datenträger gespeichert. Wenn man diesen wieder 
lädt, darf das nicht durch »LOAD"Programmname"(,1)« 
beziehungsweise »LOAD''Programmname'',8« gesche¬ 
hen. In diesem Fall würde das Programm an den Anfang 
des Basic-Speichers ($0800) geladen. Dort steht nun ein 
Maschinenprogramm mit Sprungadressen, die sich auf 
einen ganz anderen Bereich beziehen. Man muß also 
Sorge tragen, daß das Programm direkt in den gewünsch¬ 
ten Speicherbereich geladen wird. Das geschieht durch 
Anfügen der Sekundäradresse 1 an den Ladebefehl, also 
»LOAD"Programmname",1,1« beziehungsweise »LOAD 
* Programmname" ,8,1«. Das Programm wird danach durch 
»SYS''Anfangsadresse"« gestartet. Zuvor sollte man ein 
»NEW« eingeben, damit verstellte Basic-Vektoren wieder 
gerichtet werden. Andernfalls erhält man bei Programmier¬ 
versuchen in Basic einen OUT OF MEMORY ERROR. 

Starten von Maschinenprogrammen 


Maschinenspracheprogramme - soweit sie nicht im Kas¬ 
settenpuffer stehen - werden durch einen Reset nicht 
gelöscht, sie können durch den entsprechenden »SYS«- 
Befehl neu gestartet werden. Außerdem gehen in der Regel 
keine Assembler-Programme durch das Nachladen eines 
Basic- oder Maschinenspracheprogramms verloren, es sei 
denn, der Speicherbereich, in dem sie sich befinden, wird 
von dem neuen Programm überschrieben. Um dies zu ver¬ 
meiden, werden Maschinenspracheprogramme oft in den 
Speicherbereich von $C000 bis $CFFF gelegt, da dieser 
Teil des C64-Speichers einerseits dem Benutzer uneinge¬ 
schränkt zur Verfügung steht, andererseits aber vor dem 
Überschreiben durch Basic-Programme geschützt ist. 
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Die Register des 6510-Prozessors stellen uns zum Rech¬ 
nen nur die 256 verschiedenen Zahlen, die durch acht Bit 
darstellbar sind, zur Verfügung. Man kann entweder die 
Zahlen von 0 bis 255 oder von -128 bis +127 benutzen (vor¬ 
zeichenbehaftete Arithmetik. Ist das achte Bit gesetzt, so 
bedeutet dies eine negative Zahl). Natürlich reichen diese 
Zahlen für vernünftige Rechenoperationen nicht aus. 

Die Behandlung von Zahlen 


Allein bei der Rechnung mit ganzen Zahlen werden oft drei- 
und vierstellige Werte benutzt. Das Entscheidende dabei 
ist jedoch, daß der Computer auch Zahlen kleiner als eins 
verarbeiten kann. Wie aber kann man solche Berechnun¬ 
gen ausführen mit einem Register, das maximal 256 ver¬ 
schiedene Zahlen zur Rechnung bereitstellt? Die Antwort 
auf diese Frage führt in das Gebiet der 16-Bit- und 
Fließkomma-Arithmetik. 

Die Darstellung von ganzen Zahlen größer als 255 und 
kleiner als -128 bewerkstelligt der Prozessor auf eigene Art: 
Die Zahl wird einfach in zwei Byte aufgespalten. Dabei ist 
die Verfahrensweise so, daß sobald das erste Byte die 
Grenzen seiner Aufnahmefähigkeit erreicht hat, das zweite 
Byte um eins hochgezählt und das erste Byte gelöscht wird. 
Ein Assemblerprogramm zur Addition der Zahlen 250 und 
100 könnte also wie folgt aussehen: 

LDX # 250 
LDY # 100 
START INX 

CPX # 0 
BNE MARKE 

INC Highbyte-Register 

MARKE DEY 6 -* eB 

CPY # 0 
BNE START 

STX Lowbyte-Register 

Die zu addierenden Zahlen werden in den Zählregistern 
des Prozessors abgelegt. Eine Zahl wird vermindert, die 
andere entsprechend erhöht. Zwischendurch wird geprüft, 
ob eines der Zählregister den Wert Null erreicht hat. Sollte 
das vermindernde Register (hier Y) den Wert Null errei¬ 
chen, so ist die Addition beendet. 

Wenn zuvor das X-Register den Wert 255 überschreitet, 
entsteht ein Überlauf, der im »Highbyte-Register« abgelegt 
wird. Das X-Register wird daraufhin automatisch zurück¬ 
gesetzt und der Prozeß läuft weiter, bis der Inhalt des 
Y-Registers Null ist. 

16-Bit-Arithmetik 


Die oben behandelte Vorgehensweise ist zwar universell 
einsetzbar, jedoch gibt es wesentlich geschicktere Lösun¬ 
gen, um eine Addition und Subtraktion vorzunehmen. Der 
Prozessor versteht nämlich die Befehle ADC (Add with 
Carry) und SBC (Subtract with Carry). Bei Verwendung von 
ADC werden sofort Akkumulatorinhalt und angegebene 
Speicherstelle addiert, und sobald ein Überlauf auftritt, 
wird das Carry-Flag gesetzt. Arbeitet man mit vorzeichen¬ 
behafteter Arithmetik, so wird das Overflow-Flag gesetzt, 
wenn der zulässige Bereich überschritten wird. Diese 
Flags sollten also vor einer Additions-Operation gelöscht 
werden. Bei der Subtraktion hingegen wird an einem 
gelöschten Carry-Flag erkannt, ob ein Unterlauf stattgefun¬ 
den hat. Dieses Flag sollte also vor einer Subtraktion 
gesetzt werden. Falls das Carry-Flag nicht gesetzt war, wird 
noch eine 1 vom Ergebnis abgezogen. 


Das Ergebnis liegt jetzt also in einer Low-/High-Byte- 
Aufschlüsselung vor. Die Werte der einzelnen Bits des 
High-Bytes sind nun: 


Bit 15 

Bit 14 

Bit 13 

Bit 12 

32768 

16384 

8192 

4096 

Bit 11 

Bit 10 

Bit 9 

Bit 8 

2048 

1024 

512 

256 


Die 16-Bit-Darstellung der Zahl 250+100=350 lautet: 
0000000101011110 = 256+64+16+8+4+2 



Bild 5. Der ASL-Befehl: Die Bits einer Speicherstelle wer¬ 
den nach links geschoben. Bit 7 landet im Carry-Flag. 

Bei der Verwendung von 16 Bit können insgesamt 65536 
verschiedene Zahlen dargestellt werden. Rechnet man mit 
vorzeichenbehafteter Arithmetik, so erhält Bit 15 den Wert 
-32768. Der Zahlenbereich erstreckt sich nun von -32768 
bis +32767. Diese Zahl wird vielen bekannt Vorkommen. 
Tatsächlich ist dies nämlich genau der Bereich, den der 
C64 b; Rechnungen mit ganzen Zahlen (Integers) 
abdecken kann. 


Fließendes Komma 


Interessant ist das Verfahren zur Darstellung von Zahlen, 
die kleiner als eins sind. Die verschiedenen Bits werden 
ähnlich eingesetzt wie bei der »normalen« Darstellung: 
Normal: 

Bit 0 = 2° = 1 
Bit 1 = 2 1 = 2 
Bit 2 = 2 2 = 4 
Bit 3 = 2 3 = 8 
Bit 4 = 2 4 = 16 
Bit 5 = 2 5 = 32 
Bit 6 = 2 fl = 64 
Bit 7 = 2 7 = 128 
Bit 8 = 2 8 = ... 

Kleiner als eins: 

Bit 31 = 2' 1 = 1/2' = 1/2 
Bit 30 = 2' 2 = 1/2 2 = 1/4 
Bit 29 = 2‘ 3 = 1/2 3 = 1/8 
Bit 28 = 2-* = 1/2* = 1/16 
Bit 27 = 2' 5 = 1/2 5 = 1/32 
Bit 26 = 2' 6 = 1/2 6 = 1/64 
Bit 25 = 2‘ 7 = 1/2 7 = 1/128 


Bit 0 = 2' 32 = 1/2 32 

Auffällig ist, daß für die Darstellung von natürlichen Zah¬ 
len vier Byte im C64 zur Verfügung stehen. Durch diese 
Vorgehensweise kann man natürlich ungleich größere 
Genauigkeiten erreichen. Ergänzt man die vier Bytes nun 
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um ein weiteres, das als Exponent dient, so lassen sich mit 
dem C64 Zahlen von etwa -1E38 bis +1E38 bilden. 1E38 
bedeutet Ix 10 38 , das ist eine Eins mit 38 Nullen. Diese 
Zahl ist wesentlich größer als die Zahl 32767, die beim 
Rechnen im Bereich der ganzen Zahlen zur Verfügung 
steht. Natürlich ist die Speicherung der Fünf-Byte-Zahl auf¬ 
wendiger. Deshalb bietet der Basic-Interpreter auch an, 
eine Variable als Integer- oder Fließkommazahl (gleich 
reelle Zahl) zu definieren und dem Prozessor so beim Ab- 



Bild 6. Der LSR-Befehl: Verschiebung der Bits einer Spei¬ 
cherstelle nach rechts. Bit 0 landet Im Carry-Flag. 

arbeiten des Wertes unnütze Arbeit zu ersparen. Hierzu 
erfahren Sie im Kurs »Von Basic zu Assembler« mehr. 

Die Maschinensprache stellt Befehle iw Verfügung, die 
Sie in die Lage versetzen, einfache Multiplikations- und 
Divisionsaufgaben zu lösen. Durch ein durchgehendes 
Verschieben der Bitwerte im Prozessorregister kann man 
beispielsweise eine Multiplikation mit zwei erreichen 
(Bild 5): 

00011100 = 28 ASL(ArithmeticalShiftLeft): 00111000 = 56 
= 2*28 

Die ASL-Operation verschiebt also die Bits nach links 
und füllt Bit Null mit einer Null auf. Das Bit, das links heraus¬ 
fällt, gelangt ins Carry-Flag. Sollte also der Fall auftreten, 
daß das siebte Bit gesetzt ist, so kann man es aus dem 
Carry-Flag ins »Highbyte-Register« übertragen: 

10011100 = 156 
ASL: 00111000 = 56 
+ 

00000001 im »Highbyte-Register« = 256 
56+256 = 312 = 2*156 


Bei Ausführung dieser Operation sollte man darauf ach¬ 
ten, das Carry-Flag vorher zu löschen, damit das Ergebnis 
nicht durch ein zufällig gesetztes Flag verfälscht wird. 

Wenn man nun Multiplikationen mit anderen Zahlen, bei¬ 
spielsweise 10 (10 x Inhalt) ausführen will, kann man so Vor¬ 
gehen, daß man zunächst das Register dreimal mit zwei 
multipliziert (2x2x2xlnhalt = 8xlnhalt) und dazu noch 
zweimal den ursprünglichen Registerinhalt hinzuaddiert. 
Die Vorgehensweise ist natürlich aufwendig, aber schnel¬ 
ler, als den Registerinhalt zehnmal aufzuaddieren. Genau¬ 
so wertvoll wie der ASL-Befehl ist der LSR-(Logical Shift 
Right-) Befehl. Er erlaubt eine Division durch zwei (Bild 6): 
00011100 = 28 
LSR: 00001110 = 14 

Hier wird Bit Null ins Carry-Flag gerettet und das siebte 
Bit mit einer Null aufgefüllt: 

00011101 = 29 
LSR: 00001110 = 14 

An dieser Stelle tritt ein Problem auf. Beim Rechnen mit 
ganzen Zahlen existiert keine Nachkommastelle. Das heißt, 
eine Division durch zwei ergibt nur den ganzzahligen 
Ergebniswert, eine eventuell vorhandene Nachkomma¬ 
stelle kann nicht ohne weiteres im Programmablauf weiter¬ 
verwendet werden. Allerdings ist das Überprüfen des 
Carry-Flags gut geeignet, um die Zahl auf gerade oder 
ungerade zu prüfen. Bei der Division wird man also Run¬ 
dungsfehler in Kauf nehmen oder auf die Fließkomma- 
Arithmetik ausweichen. Zahlen unter Fließkomma- 
Arithmetik besitzen beim C64 einen speziellen Arbeitsbe¬ 
reich, den FAC (Floating Point Accumulator). In der Zero¬ 
page des C64 sind bestimmte Speicherstellen für die 
Berechnung einer Fließkomma-Zahl freigehalten. In Regi¬ 
ster 97 steht der Exponent der Zahl, in den Registern 98 bis 
101 bcf in det sich die Mantisse und in Register 102 befindet 
sich der Vorzeichenwert. In den Speicherstellen 105 bis 110 
befindet sich ein weiterer Fiießkomma-Akkumulator mit 
identischer Belegung. Die Zahl 29 im Fließkommaformat 
hätte die Gestalt 0.29E02, das heißt, 0,29x100 = 29. Man 
muß also die Zahl in Fließkomma-Bits aufspalten. Zunächst 
ziehen wir die größtmögliche Fließkomma-Zahl vom Aus¬ 
gangswert ab, in diesem Fall 0,25. Bit 31 muß also gesetzt 
sein. Übrig bleibt der Wert 0,04 =1/25. Der nächst kleinere 
Fließkomma-Wert ist 1/32 und so weiter. 

Auch diese Thematik wird noch ausführlich im Kurs »Von 
Basic zu Assembler« in diesem Sonderheft behandelt. Der 
Einstieg sollte Ihnen jedoch mit den vorhandenen Inför- 

mationen gelingen. (Uli EIcke/Dr. Rudolf Egg) 
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Ein neuer 
Standard: 
»Giga-Ass« 


Hypra-Ass bekommt einen würdigen Nachfolger: 
»Giga-Ass«. Durch optimale Speicherausnutzung 
wird dieser komfortable Makro-Assembler zum 
idealen Werkzeug für Maschinen-Programmierer. 
Volle Kompatibilität zu Hypra-Ass Quellcodes ist 
durch ein Konvertierungsprogramm garantiert. 

H ervorgegangen ist Giga-Ass aus dem Programm 
»Hypra-Ass«, veröffentlicht in der Ausgabe 7/85 des 
64’er-Magazins und im Sonderheft 8/85. Dieses Pro¬ 
gramm wurde nun in den vergangenen zwei Jahren perfek¬ 
tioniert. Das Ergebnis ist Giga-Ass. 

Der Assembler Giga-Ass belegt den ROM-Bereich von 
$8000 bis $9FFF und wird wahlweise im RAM betrieben 
oder über ein EPROM-Modul eingeblendet. Listing 1 stellt 
also eine brennfähige Version mit Modulsimulation dar. In 
Tabelle 1 finden Sie eine Übersicht mit den wichtigsten 
Merkmalen von Giga-Ass. 

Starten des Assemblers 

a) Sie verwenden das Original-Betriebssystem des C64. 
Dann geben Sie ein: 

LOAD "GIGA-ASS",8,1 < RETURN > 

Nach dem Laden SYS 64738 und < RETURN> einge¬ 
ben. Darauf erscheint die Einschaltmeldung des Assem¬ 
blers. 

Verfügt Ihr C64 über einen Reset-Knopf, genügt es, die¬ 
sen nach dem Laden zu drücken. Da Giga-Ass durch die 
»CBM80«-Kennung ein Modul simuliert, wird der Assem¬ 
bler bei einem Reset sofort gestartet. 

Giga-Ass kann auch direkt auf ein 2764-EPROM 
gebrannt werden. Die EPROM-Platine muß dann auf den 
Speicherbereich von $8000 bis $9FFF adressiert werden. 

Als Quelltextspeicher stehen 30 KByte RAM von $0800 
bis $7FFF zur Verfügung. Als Speicher für die Symbol¬ 
tabelle (Labels, Makronamen) dient der unter dem Basic- 
Interpreter befindliche RAM-Bereich von $A000 bis $BFFF. 


Dieser nimmt 1170 Symbole auf, da aufgrund des beson¬ 
ders k‘ i. pakten Formats jedes Symbol nur 7 Byte belegt. 
Der Speicher $C000 bis $CFFF bleibt für einen Monitor frei. 
Giga-Ass und der SMON können sich also gleichzeitig im 
Speicher befinden. 

Der Quelltext wird wie ein Basic-Programm mit dem zei¬ 
lenorientierten Editor von Basic eingegeben und in einem 
kompakten Format im Speicher abgelegt. Sämtliche 
Assemblerbefehle werden in Form von »Token« kodiert, das 
heißt, jeder Assembler-Befehl braucht nur 1 Byte Speicher¬ 
platz. Außerdem lassen sich alle Befehle auch abgekürzt 
eingeben; in den meisten Fällen genügt dafür eine einzige 
Taste. Nach Eingabe einer Zeile wird diese sofort auf dem 
Bildschirm in Klartext und formatiert angezeigt. 


Komfortabler Editor 


Zum eigentlichen Assemblierungs-Vorgang muß sich 
Quelltext im Speicher befinden. Das Objektprogramm wird 
entweder auf Diskette oder in den Speicher geschrieben, 
wobei sich durch eine zusätzliche Code-Adresse der Spei¬ 
cherbereich, in dem das Programm abgelegt wird, frei wäh¬ 
len läßt. Die Erzeugung des Objektprogramms läßt sich 
aber auch ganz unterdrücken, damit nur ein reiner Syntax- 
Check vorgenommen wird. 

Während des Assemblierens kann man ein Listing des 
Quelltextes auf den Drucker oder auf Diskette ausgeben. 
Eine Bildschirmausgabe ist bei 40 Zeichen pro Zeile weni¬ 
ger sinnvoll. 

Nach Abschluß der Assemblierung wird die Symbol¬ 
tabelle wahlweise auf dem Bildschirm, auf Diskette oder 
Drucker ausgegeben. Alle Symbole werden mit Namen 
und Symbolwert aufgelistet. Außerdem steht bei jedem 
Symbol die Zeilennummer der Zeile, in der es verwendet 
wurde, und der Symboltyp. 
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GIGA-ASS unterscheidet drei Typen von Symbolen: 

1. Makronamen 

2. Globale Label 

3. Lokale Label 

Makros können an jeder Stelle des Quelltextes definiert 
und verwendet werden. Ein Makroaufruf unterscheidet sich 
in nichts von einem Assemblerbefehl: Es wird nur der 
Makroname eingegeben. Eventuelle Parameter werden 
von dem Makro-Namen durch ein Leerzeichen 
(< SPACE >) und untereinander durch Kommata getrennt. 

Die Eingabe von Qelltextzeilen 

Eine Quelltextzeile wird wie eine Basic-Zeile eingege¬ 
ben. Damit der Editor die einzelnen Elemente einer Quell¬ 
textzeile (Zeilennummer, Label, Assembler-Befehl und 
Kommentar) voneinander unterscheidet, müssen Sie 
einige Regeln beachten: 

1. Jede Quelltextzeile beginnt mit einer eindeutigen Zei¬ 
lennummer. Diese wird entweder direkt eingegeben oder 
mit dem Auto-Befehl vorgegeben. 

2. Unmittelbar nach den Zeilennummern folgen die 
Label. Zwischen Zeilennummer und Label darf kein Leer¬ 
zeichen stehen. 

3. Ein auf ein Label folgender Assemblerbefehl muß vom 
Label durch ein Leerzeichen getrennt werden. 

4. Enthält eine Zeile kein Label, so beginnt sie mit einem 
Leerzeichen nach der Zeilennummer, welches unbedingt 
eingegeben werden muß. 

Programmieren - einfach wie in Basic 


5. Kommentare werden am Ende der Zeile angefügt und 
vom Rest der Zeile durch ein Semikolon getrennt. Reine 
Kommentarzeilen haben als erstes Zeichen in der Zeile ein 
Semikolon. 

6. Enthält eine Quelltextzeile nur ein Label und keine 
Assembleranweisung, so darf auf das Label kein Kommen¬ 
tar folgen! 

Die Editor-Befehle 

Da der Assembler-Editor eine Erweiterung des Basic- 
Editors darstellt, sind die normalen Basic-Befehle wie 
OPEN, CLOSE, CMD, PRINT#, POKE, PEEK und SYS wie 
gewohnt verwendbar. Nicht erlaubt sind alle Basic-Befehle, 
die Variablen anlegen, also LET, FOR, NEXT, DIM etc. 

Die neu hinzugekommenen Editor-Befehle sind im 
Gegensatz zu den Basic-Befehlen nur ein Zeichen lang. 
Darauf ist bei Überschneidungen zu achten. Zum Beispiel 
heißt der Editor-Befehl zum Laden von Quelltexten »L«, 
während der Basic-Befehl bekanntlich LOAD lautet. 

Die Unterscheidung zwischen Basic- und den neuen 


Steckbrief Glga-Ass 


- 30 KByte Quelltextspeicher 

- Quelltexte kompatibel zu Hypra-Ass (mit Konvertierprogramm) 

- Komfortable Funktionstastenbelegung 

- Kompakter Quellcode durch Token-Verarbeitung 

- Programm liegt in brennfähiger Version vor (für EPROM-Module) 

- Modulstart integriert (CBM80) 

- Resetfest 

- Platz für Monitor ab $C000 

- OLD-Funktion 

- Assemblieren direkt auf Diskette 

- Formatierte Ausgabe von Symboltabellen 

- Merge-Funktion für Quelltexte 

- Basic-Befehle im Direktmodus weiterhin nutzbar 

- Bis zu 1170 Symbole (Label, Makronamen, etc.) verwendbar 

Tabelle 1. »Giga-Ass« auf einen Blick 


Befehlen wird vorgenommen, indem geprüft wird, ob das 
zweite Zeichen einer Eingabe ein (eventuell geSHIFTeter) 
Buchstabe ist. Dies ist bei Basic-Befehlen immer der Fall, 
bei den anderen Befehlen ist das zweite Zeichen eine Zahl 
oder ein Hochkomma. 

21 Edifor<Befekle 


A (Auto) 

dient zur automatischen Vorgabe der Zeilennummern 
bei der Eingabe neuer Quelltextzeilen. Syntax: 

A Zeilennummer, Schrittweite 

Zum Beispiel gibt A 100,10 die Zeilennummern ab 100 in 
Zehnerschritten vor (100, 110, 120, 130 etc.). Die Numerie¬ 
rung wird abgebrochen, indem man mit <SHIFT 
RETURN > den Cursor in eine leere Zeile bewegt und 

< RETURN > drückt. Gibt man im Auto-Modus direkt hin¬ 
ter einer Zeilennummer < RETURN > ein, so wird diese 
übersprungen und sofort die nächste Zeilennummer aus¬ 
gegeben. Durch Drücken von <RETURN> können so grö¬ 
ßere Bereiche übersprungen werden. Befinden Sie sich im 
Auto-Modus, so lassen sich bereits eingegebene Zeilen 
ändern, ohne den Auto-Modus zu verlassen. Vorausset¬ 
zung ist jedoch, daß die betreffenden Zeilen sich noch auf 
dem Bildschirm befinden. Man setzt die Numerierung fort, 
indem man in der Quelltextzeile mit derjenigen Zeilennum¬ 
mer, die zuletzt vorgegeben wurde, < RETURN > drückt. 

Die Numerierung kann nach Abbruch automatisch an 
der alten Stelle wieder aufgenommen werden durch 
Drücken von <A> und <RETURN>. 

B (Speicheranzeige) <F2> 

zeigt den gesamten für den Quelltext zur Verfügung ste¬ 
hende,. • nd den davon bereits benutzten Speicherbereich 
in KByte an. Zusätzlich wird die Anzahl der belegten und 
noch freien Bytes ausgegeben. Der B-Befehl wird auch 
durch <F2> aufgerufen. 

C (Kaltstart) 

bewirkt einen Neustart des Assemblers. Die Speicherkonfi¬ 
guration wird nicht verändert. Es handelt sich nicht um 
einen Reset, sondern um eine Re-Initialisierung. Mit <0> 
(Old) und < RETURN > wird der Quelltext zurückgeholt. 

D (Delete) 

dient zum Löschen von Quelltextzeilen. Syntax: 

D Zeilennummer 1 - Zeilennummer 2 
Lassen Sie Zeilennummer 1 oder Zeilennummer 2 fort¬ 
fallen, so wird von Quelltextanfang beziehungsweise bis 
Quelltextende gelöscht. Zum Beispiel bewirkt D -100, daß 
alle Zeilen bis einschließlich Zeile 100 gelöscht werden, 
und D 1000 -, daß alle Zeilen ab Zeile 100 einschließlich 
gelöscht werden. 

D Zeilennummer löscht eine einzelne Zeile. Alternativ 
dazu gibt man die Zeilennummer allein und danach 

< RETURN> ein. 

»D« ohne Argument löscht den gesamten Quelltext und 
entspricht damit dem weiterhin verwendbaren Basic- 
Befehl NEW. 

Vor Ausührung des Löschbefehls erfolgt mit »ARE YOU 
SURE?« stets eine Sicherheitsabfrage. Nach Bestätigung 
mit <Y> wird die Operation ausgeführt; jede andere Taste 
führt zum Abbruch des Befehls. 

E (List) < Fl > 

dient zum Ausgeben von Quelltext. Syntax: 

E Zeilennnummer 1 - Zeilennummer 2 
Wie beim D-Befehl können Zeilenbereiche, einzelne Zei¬ 
len oder der gesamte Quelltext geLISTet werden. Der E- 
Befehl ohne Argumente wird auch durch <F1 > aufgeru- 
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fen. Statt des E-Befehls ist auch das Basic-Befehlswort 
LIST verwendbar. 

Mit < SPACE> wird das LISTen angehalten. Durch 
erneutes Drücken von < SPACE > fährt das LISTen fort. Mit 
<RUN/STOP> wird der Vorgang abgebrochen. 

Eine Ausgabe des Quelltextes auf einen Drucker erreicht 
man durch: 

0PEN1,4,7 : CMD1 <RETURN> 

E < RETURN > 

F (Find) 

ermöglicht das Auffinden von Zeichenfolgen im Quelltext. 
Syntax: 

F P,"Zeichenfolge" 

Ein Beispiel: FO," LDA" findet jedes Auftreten des 
Assembler-Befehls LDA im Quelltext und listet die entspre¬ 
chenden Zeilen auf. Diese Auflistung wird durch Drücken 
der SPACE-Taste angehalten und danach durch nochmali¬ 
ges Drücken von < SPACE > fortgesetzt. Die Auflistung 
brechen Sie dadurch ab, daß Sie sie mit < SPACE > anhal- 
ten und danach < RUN/STOP > drücken. 

Der Parameter »P« (0 bis 15) dient zur Angabe der Page, 
also eines Bereiches im Arbeitsspeicher (siehe hierzu auch 
die entsprechende Erläuterung zum P-Befehl). 

Das Fragezeichen kann im Suchbegriff als Joker verwen¬ 
det werden: Es steht für jedes beliebige Zeichen. 

Vor Ausführung des F-Befehls wird automatisch die 
Wandlung von Assemblerbefehlen in Token vorgenom¬ 
men. Das hat zur Folge, daß Zeichenfolgen, die Assembler- 
Befehlswörter eingebettet haben, so nicht gefunden wer¬ 
den. Zum Beispiel wird das Wort »STATUS« deswegen nicht 
gefunden, weil in diesem Wort der Befehl STA enthalten ist. 
Diese Eigenschaft läßt sich umgehen, indem man einen 
Buchstaben von STA durch den Joker ersetzt und beispiels¬ 
weise nach »ST7TUS« sucht. 

Beim Packen der Quelltextzeilen wird jedes überflüssige 
Leerzeichen entfernt. Sucht man beispielsweise nach 
»JSR LABEL«, so hat man deswegen Pech, weil Leerzei¬ 
chen zwischen Assemblerbefehlen und Operanden stets 
entfernt worden sind. »JSRLABEL« als Suchwort bringt 
dagegen Erfolg. 

Eine Wandlung von Pseudo-Befehlstexten in die entspre¬ 
chenden Token wird hier nicht vorgenommen. Beim F-Be- 
fehl muß man daher die Token direkt eingeben. Statt nach 
».MACRO« zu senden, muß man also <CBM>, <K> 
oder alternativ <SHIFTA> eingeben. In der Tabelle 2 und 
3 finden Sie die Tastenkombinationen für alle Befehle. 

G (obere Speichergrenze) 

setzt die obere Speichergrenze für den Assembler. Syntax: 
G (Adresse als Hex-Zahl) 

Es ist die höchste Adresse anzugeben, die noch vom 
Assembler für das Speichern von Quelltext verwendet wer¬ 
den darf. Die Adresse darf nicht größer oder gleich $8000 
sein. Voreinstellung ist G $7FFF; damit stehen die vollen 30 
KByte für den Quelltext zur Verfügung. Durch G $5FFF 
würde beispielsweise der Speicherbereich von $6000 bis 
$7FFF für Objektcodes reserviert und gegen Überschrei¬ 
ben durch Quelltext geschützt. 

I (Inhaltsverzeichnis) <F7> 

gibt das Inhaltsverzeichnis der sich gerade im Laufwerk mit 
der Nummer 8 befindlichen Diskette aus. Durch Drücken 
der SPACE-Taste kann die Ausgabe abgebrochen werden. 
Dieser Befehl wird auch durch <F7> aufgerufen. 

L (Load) < F5> 

lädt einen Quelltext in den Speicher. Syntax: 

L"Filename", Gerätenummer 
Der Quelltext wird immer an die Adresse geladen, die in 
$2B/$2C (43/44) im Low-/High-Byte-Format steht. Dies wird 
im Regelfall der Basic-Start $0801 (2049 dez.) sein. Dieser 


Token 

Befehl 

Töste 1 

Taste 2 

$A0 

.CALL 

<SHIFT SPACE > 


$A1 

.MACRO 

<CBMK> 

<SHIFTA> 

$A2 

.ENDMACRO 

<CBM l> 

<SHIFTB> 

$A3 

.GLOBAL 

< CBM T > 

<SHIFTC> 

$A4 

.EQUATE 

<CBM @> 

<SHIFT D> 

$A5 

BYTE 

<CBM G> 

<SHIFTE> 

$A6 

WORD 

<CBM +> 

<SHIFT F > 

$A7 

.DS 

< CBM M > 

< SHIFT G> 

$A8 

.EXT 

<CBM£> 

<SHIFTH> 

$A9 

.OBJECT 

<SHIFT£> 

<SHIFTI> 

$AA 

.BASE 

< CBM N > 

<SHIFT J> 

$AB 

.CODE 

<CBM Q> 

<SHIFT K> 

$AC 

•ON 

<CBM D> 

<SHIFTL> 

SAD 

.GOTO 

< CBM Z> 

<SHIFTM> 

SAE 

.IF 

<CBM S> 

< SHIFT N> 

$AF 

.ELSE 

<CBM P> 

<SHIFTO> 

$F0 

.ENDIF 

<CBM A> 

< SHIFT P> 

$F1 

.SYMBOLS 

<CBM E> 

<SHIFTQ> 

SF2 

.LISTING 

<CBM R> 

< SHIFT R> 

SF3 

.END 

<CBM W> 

<SHIFTS> 

$F4 

.STOP 

<CBM H > 

<SHIFTT> 

$F5 

.PAGE 

<CBM J> 

<SHIFT U> 

SF6 

.NOCODE 

<CBML> 

<SHIFT V> 

$F7 

.START 

<CBM Y > 

<SHIFT W> 

$F8 

.NOEXP 

<CBM U> 

<SHIFTX> 


Tabelle 2. Token-Tabelle für Pseudo-Befehle 


Befehl wird auch durch <F5> aufgerufen. Wählen Sie 
dagegen den Befehl 
LOAD "Filename".Gerätenummer 
so wird die Angabe der Sekundäradresse 1 automatisch 
angenommen und das Programm absolut - also an die auf 
Disket to angegebene Startadresse - geladen. Eine weitere 
interessante Möglichkeit, Quelltexte aus dem angezeigten 
Directory zu laden, ist die Tastenkombination <SHIFT 
RUN/STOP >. Es wird nach dem Laden sofort mit der 
Assemblierung begonnen. Bei Verwendung von Speed¬ 
dos, wozu eine bedingte Übereinstimmung der Funktions- 


Token 

Befehl 

Taste 

Token 

Befehl 

Taste 

SCO 

CPX 

<SHIFT • > 

SDC 

TXS 

<CBM-> 

SCI 

CPY 

<SHIFTA> 

SDD 

PHP 

<SHIFT-> 

SC2 

LDX 

<SHIFTB> 

$DE 

PLP 

< SHIFT l> 

SC3 

LDY 

<SHIFT C> 

SDF 

PHA 

<CBM-> 

$C4 

CMP 

< SHIFT D> 

$E0 

PLA 

< SHIFT SPACE > 

$CS 

ADC 

<SHirr E> 

SEI 

BRK 

<CBM K> 

$C6 

AND 

<SHIFTF> 

$E2 

RTI 

<CBM l> 

$C7 

DEC 

<SHIFT G> 

SE3 

RTS 

<CBM T > 

SC8 

EOR 

<SHIFTH> 

SE4 

NOP 

< CBM @> 

SC9 

INC 

<SHIFTI> 

$E5 

CLC 

<CBM G> 

SCA 

LDA 

<SHIFT J> 

$E6 

SEC 

< CBM + > 

SCB 

ASL 

<SHIFTK> 

SE7 

CLI 

< CBM M > 

scc 

BIT 

<SHIFTL> 

SE8 

SEI 

<CBM £> 

SCD 

LSR 

<SHIFT M> 

$E9 

CLV 

<SHIFT £> 

SCE 

ORA 

<SHIFTN> 

SEA 

CLD 

< CBM N > 

SCF 

ROL 

<SHIFTO> 

SEB 

SED 

<CBMQ> 

$D0 

ROR 

<SHIFTP> 

SEC 

DEY 

<CBM D> 

$D1 

SBC 

< SHIFT Q> 

SED 

INY 

<CBM Z> 

SD2 

STA 

<SHIFTR> 

SEE 

DEX 

<CBM S> 

SD3 

STX 

<SHIFTS> 

SEF 

INX 

<CBM P> 

$D4 

STY 

<SHIFTT> 

$F0 

BPL 

<CBM A> 

$D5 

JMP 

<SHIFT U> 

$F1 

BMI 

<CBM E> 

SD6 

JSR 

<SHIFT V> 

SF2 

BVC 

<CBM R> 

SD7 

TXA 

<SHIFT W> 

SF3 

BVS 

<CBM W> 

SD8 

TAX 

<SHIFTX> 

$F4 

BCC 

<CBMH> 

$D9 

TYA 

<SHIFT Y> 

$F5 

BCS 

< CBM J > 

SDA 

TAY 

<SHIFT Z> 

SF6 

BNE 

<CBML> 

SDB 

TSX 

<SHIFT + > 

SF7 

BEO 

<CBM Y > 


Tabelle 3. Token-Tabelle für Assembler-Befehle 
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tastenbelegung existiert, kann die Angabe der Laufwerks¬ 
nummer sowie der Doppelpunkt hinter dem Filenamen 
beim Laden aus dem Directory entfallen. 

M (Merge) 

lädt einen Quelltext hinter den bereits im Speicher befindli¬ 
chen. Syntax: 

M "Filename" 

Dieser Befehl wird dazu benutzt, um mehrere Quelltexte, 
die einzeln eingegeben wurden, von Diskette nachzuladen 
und zu verketten. Unter besonderen Bedingungen ist es 
realisierbar, mehrere unterschiedliche Quelltexte nachein¬ 
ander mit dem M-Befehl einzuladen und dann in einem 
Durchgang zu assemblieren. Zu diesen Bedingungen 
zählt, daß die Speicherbereiche für die Objektcodes sich 
nicht überschneiden, falls direkt in den Speicher assem- 
bliert wird, und daß die Symbole in einem Quelltext nicht in 
einem weiteren Quelltext anders definiert werden. 

N (Number) 

ermöglicht ein neues Durchnumerieren von Quelltextzei¬ 
len. Syntax: 

N P, Startnummer, Schrittweite 

Zum Beispiel numeriert NO, 100,10 den gesamten Quell¬ 
text neu, beginnend mit den Zeilennummern 100,110,120 
etc. Der Paramter P hinter »N« dient wie beim Find-Befehl 
zur Angabe der Page. Siehe hierzu auch den P-Befehl. 

Achtung: Die angesprungenen Zeilennummern bei den 
Befehlen .ON und .GOTO werden nicht berücksichtigt und 
müssen von Hand angepaßt werden! Eine solche Ein¬ 
schränkung wurde in Kauf genommen, damit das gesamte 
Programm nicht zu lang wird, um es in einem 2764-EPROM 
unterzubringen. 

O (Old) <F6> 

holt nach einem Reset oder C-Befehl den alten Quelltext 
zurück. Dabei wird automatisch der B-Befehl zur Anzeige 
der Speicherkonfiguration aufgerufen. Der O-Befehl läßt 
sich auch durch <F6> aufrufen. 

P (Page) 

setzt einen Arbeitsbereich (Page, siehe Find- und Number- 
Befehl). Syntax: 

P N, Zeile 1, Zeile 2 

Der Parameter »N« (Nummer der Page) liegt zwischen 0 
und 15. »Zeile 1« gibt die erste Zeile der Page an und »Zeile 
2« die letzte. Zum Beispiel setzt PI, 0,99 die Page 1 auf den 
Zeilenbereich 0 bis 99. Direkt nach Initialisierung des 
Assemblers ist die Page 0 auf den Zeilenbereich 0 bis 
65535 gesetzt, sie umfaßt also den gesamten Quelltext. 
Man sollte Page 0 daher zweckmäßigerweise nicht um¬ 
definieren. 

Eine Page wird auf den Bildschirm ausgegeben, indem 
man die < - > -Taste drückt, darauf die Page-Nummer ein¬ 
gibt und dann < RETURN > drückt. Auf einzelne Pages 
greifen die Befehle »F, N und R« zu. Gibt man dort statt einer 
0 eine andere Nummer von 1 bis 15 ein, so bezieht sich der 
Befehl nicht auf den gesamten Quelltext, sondern eben nur 
auf die angegebene Page. 

Q (Ausgabe der Page-Definitionen) 

gibt die Definitionen aller 16 Pages auf den Bildschirm aus. 
Hieraus kann man ersehen, welche Pages bereits definiert 
wurden, um nicht ungewollt eine Page umzudefinieren. 

R (Replace) 

dient zum Suchen und Ersetzen von Zeichenfolgen im 
Quelltext. Syntax: 

R P,"Ersatzwort", "Suchwort" 

Der R-Befehl ersetzt »Suchwort« durch »Ersatzwort« in 
der angegebenen Page (anstelle der 0 kann auch eine 
andere Nummer von 1 bis 15 eingegeben werden). In 


»Suchwort« ist das Fragezeichen als Joker erlaubt. Da 
»Ersatzwort« auch leer sein darf, lassen sich mit diesem 
Befehl auch Zeichenketten löschen. Im übrigen gelten 
beim R-Befehl dieselben Einschränkungen wie beim F- 
Befehl. 

S (Save) 

dient zum Speichern von Quelltext auf Diskette. Syntax: 

S "Filename" 

Der gesamte Quelltext wird in ein PRG-File auf Diskette 
geschrieben. Anmerkung: Falls man zuvor den Basic- 
Befehl LOAD zum Laden eines Monitors verwendet hat und 
dadurch der Quelltextende-Zeiger verbogen wurde, sollte 
man vor Eingeben des S-Befehls den O-Befehl aufrufen. 
Dieser setzt den Quelltext-Ende-Zeiger wieder richtig. 

T (Tabulatoreinstellung) 

setzt die Tabulatoren 0 beziehungsweise 1 (X) auf neue 
Werte. Syntax: 

T X, Wert 

Die Tabulatoren nehmen Einfluß auf das Format, in dem 
Quelltextzeilen gelistet werden. Tabulator 0 bestimmt, wie¬ 
viele Spalten für Labels belegt werden, und Tabulator 1 gibt 
an, ab welcher Spalte die Kommentare am Ende einer Zeile 
gelistet werden. Als erste Position innerhalb einer Quell¬ 
textzeile gilt dabei die Spalte unmittelbar hinter der Zeilen¬ 
nummer. Voreingestellt sind: T0,10 und TI,24. 

V (Verify) 

entspricht dem Basic-Befehl VERIFY. Syntax: 

V "Filename" 

X (Assemblieren) <F3> 

startet die Assemblierung. Anstelle von »X« ist auch der 
Basic-Befehl RUN verwendbar. Dieser Befehl wird auch 
durc h <F3> abgerufen. 

Y (Ausgabe der Symboltabelle ) 

gibt nach beendeter Assemblierung die Symboltabelle auf 
dem Bildschirm aus. Eine Ausgabe auf den Drucker wird 
erreicht durch: 

OPEN1,4,7: CMD1 und anschließenden Y-Befehl. 

@ (Disk-Status und Floppy-Befehle) 

zeigt den Status des Diskettenlaufwerks an und leitet Dis¬ 
kettenbefehle (I, R, N, V) ein. 

Speeddos-kompatible 

Funktionstastenbelegung 


Auf den Funktionstasten <F1>, <F3>, <F5>, <F7> 
liegen die Editor-Befehle »E, X, L und I«. Man beachte die 
Übereinstimmung zu der Speeddos-Belegung LIST, RUN, 
LOAD und Directory. Auf den Funktionstasten <F2>, 
<F4>, <F6> und <F8> liegen die Editor-Befehle »B 
(Speicheranzeige), Y (Ausgabe der Symboltabelle), O (Old) 
und @(Disk-Status)«. 

Die Funktionstastenabfrage wurde in den Interrupt ein¬ 
gebunden. Das hat zur Folge, daß Programme, die mit 
Interrupts arbeiten, diese Abfrage ausschalten. Man muß 
nur dafür sorgen, daß nach Beendigung eines solchen Pro¬ 
gramms der Interrupt-Vektor in $0314/$0315 wieder auf den 
Interrupt zur Funktionstastenabfrage gesetzt wird. Dies 
kann auch mit den Tasten <RUN/STOP RESTORE> 
geschehen. Die eleganteste Lösung dafür ist, zu Beginn 
des Programms den alten Interruptvektor zu retten und am 
Ende wiederherzustellen. Es geht aber auch so, daß man 
am Ende der Interrupt-Benutzung den Vektor statt auf 
$EA31 direkt auf die entsprechende Adresse setzt, welche 
der Einsprungübersicht (Tabelle 4) zu entnehmen ist. 
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Adresse 

Inhalt 


Adresse 

Inhalt 

$8000 

RESET-Veklor, zeigt auf Kaltstart $849D 


$8E9B 

•BYTE 

$8002 

NMI-Vektor, zeigt auf NMI-Routine $9FAE 


$8EC1 

.TEXT 

$8004 

ROM-Kennung »CBM80« 


$8F2F 

.WORD 

$8009 

IN IT-Vektor, durch JMP ($8009) Initialisierung 


$8F9F 

.DS 

$800B 

Tabelle der Mnemonlc-Texte (CPX,...,BEQ) 


$8FE1 

.OBJECT 

$80B3 

Tabelle der zu den Mnemonics gehörigen Codes 


$903F 

• END 

$80EB 

diverse Tabellen zur Mnemonlc - Code-Wandlung 


$9054 

• MACRO überspringt Makro-Definition 

$8110 

Tabelle der binären Operatoren » + , *, /, 1, 


$907A 

•CALL springt in Makro-Definition 


A, O, > , = , < 


$917B 

•ON 

$811A 

Texte der Assembler-Fehlermeldungen 


$9194 

•GOTO 

$81E5 

Adreßtabelle der einzelnen Fehlermeldungs-Texte 


$919A 

•IF 

$8207 

Texte der Pseudo-Befehle CALL bis NOEXP 


$91A7 

.ELSE 

$827A 

Vektortabelle für Einsprünge in Pseudo-Routinen 


$91CD 

.ENDIF 

$82AC 

Tabelle der Editorkommandos M, V,.,.,X, V 


$91E5 

Legt Maschinencode für eine Quelltextzeile ab 

$82C1 

Vektortabelle für Einsprünge In Editor-Routinen 


$9217 

Erhöht Adreßpegel 

$82EB 

Einschaltmeldung GIGA-ASS 


$924C 

Holt nur Zahl aus Quelltext 

$832C 

Texte zur Benutzerführung 


$925A 

Holt Zahl oder Character aus Quelltext 

$848C 

Prompt »GIGA-ASS READY- 


$926A 

Holt Character (String der Länge 1) aus Quelltext 

$849D 

Kaltstart, wird bei RESET aufgerufen 


$9281 

Erkennt auf Token 

$84AA 

Initialisierung des Assemblers, beginnt mit SEI 


$92E0 

Gibt Uhrzeit aus (nach erfolgter Assemblierung) 

$84AB 

ROM-Berelch $8000 In RAM $8000 umkopieren 


$9332 

.LISTING 

$84C4 

Interrupt-Vektor auf Funktionstastenabfrage setzen 


$936A 

.PAGE 

$84CF 

Basic-Ende auf $8000 setzen 


$9379 

Gibt Hexadezimalzahl aus 

$84D9 

Basic initialisieren 


$9390 

Listet Maschinencodes 

$84DF 

Basic-Vektoren ab $0300 umlenken 


$93CD 

Listet Quelltextzeile, falls .LISTING aktiv 

$8507 

Tabulator-Initialisierung T0, 10 und TI, 24 


$93EB 

Prüft auf Seitenwechsel bei .PAGE 

$8511 

Page 0 auf Zeile 0 bis 65535 setzen 


$9422 

.SYMBOLS 

$8519 

Einschaltmeldung ausgeben 


$9442 

Am Ende der Assemblierung Symboltabelle ausgeben 

$8537 

Ausgabe des Prompts 


$946C 

•STOP 

$8544 

Warmstart-Einsprung 


$947C 

Blank-Ausgabe 

$854A 

Abschluß einer Merge-Operation 


$949F 

.NOCODE 

$8557 

Fehlermeldung ausgeben 


$94A6 

.START 

$85C1 

Auswerten von Ausdrücken 


$94B2 

.NOEXP 

$85F4 

Erkennen der Einleitsymbole »%, $, -, !, +, 


$94BF 

Warmstart des Editors, holt Editor-Befehl 

$8623 

>. < 


$953E 

$956D 

Listet Quelltextzeile nach Eingabe 
~ügt Pseudo-Token-Code ein 

Einlesen von Binärzahlen 


$8647 

Erkennen von INI 


$95CO 

Packt und wandelt eingegebene Zeile 

$8658 

Fehlermeldung beim Auswerten von Ausdrücken 


$96E8 

Gibt Zeilennummer im Auto-Modus vor 

$865D 

Erkennen der binären Operatoren von $8110 


$9749 

OFF: schaltet Auto-Modus aus 

$868E 

Low-/High-Byte Bildung 


$974F 

A-Befehl 

$86A6 

Bestimmen der Adressierungsart eines Befehls 


$9773 

Holt eingegebenen Zeilen-Bereich 

$8710 

Erkennen auf indizierte Befehle 


$97D8 

D-Befehl 

$8781 

Berechnen des Maschinencodes für ein Mnemonic 


$9874 

E-Befehl 

$882E 

Auswerten von Branch-Befehlen (bei relativen Sprüngen) 


$988E 

P-Befehl setzt Page-Parameter 

$8870 

Einlesen von Hexadezimalzahlen 


$98BD 

Holt Page-Parameter 

$88B2 

Beginn der Symboltabellen-Verwaltung 


$98E2 

Gibt Page auf Bildschirm aus 

$88BA 

Holen eines Symbols 


$98F3 

N-Befehl 

$88C8 

Illegales Symbol erkannt 


$995B 

M-Befehl 

$88DB 

Erkennen des Trennzeichens < — > 


$997D 

Holt Filenamen 

$88E6 

Sucht, ob Symbol schon in Tabelle eingetragen ist 


$9990 

V-Befel 

$8955 

Symbol nicht gefunden - sieht auf dem Stack nach 


$9993 

L-Befehl 

$897D 

Rücksprungadresse auf Stack ergab »Makro Undefiniert« 


$99A0 

S-Befehl 

$8985 

Bel der Auswertung von Ausdrücken Symbol Undefiniert 


$99A9 

F-Befehl 

$89A4 

Ansonsten wird neues Symbol eingetragen 


$9A18 

Holt Zeilennummer aus Quelltext 

$89E6 

Symbol gefunden 


$9A23 

Gibt Zeilennummer rechtsbündig aus 

$8A0F 

Wert des Symbols In Fließkomma-Akku schreiben 


$9A44 

Gibt eine Quelltextzeile formatiert aus 

$8A19 

Symboltabelle voll! 


$9B13 

SPACE hält Listig an 

$8A25 

Holt neue Quelltextzeile 


$9B33 

R-Befehl 

$8A4C 

Ende eines Pass 


$9C4A 

I-Befehl 

$8BC6 

Ordnungszahl zurücksetzen 


$9CBE 

©-Befehl 

$8BD2 

Dlrekt-Befehl auswerten 


$9D0A 

Y-Befehl 

$8BFE 

RUN beziehungsweise X: Start der Assemblierung 


$9E13 

O-Befehl 

$8C24 

Startet Uhr (Assemblierungsdauer) 


$9E2D 

B-Befehl 

$8C72 

Holt Adressen aller Makro-Definition in Symboltabelle 


$9EED 

G-Befehl 

$8CC0 

Nächsten Pass einleiten 


$9F08 

T-Befehl 

$8CDC 

Einsprungpunkt: nächste Quelltextzejle assemblieren 


$9F24 

Q-Befehl 

$8DDC 

Pseudo-Befehl-Verteiler 


$9F71 

IRQ-Routine: hierauf muß der IRQ-Vektor zeigen 

$8E0A 

.GLOBAL 


$9FA6 

Funktionstastenbelegung »E, X, L, 1, B, Y, 

$8E19 

•EQUATE 



0 , @« 

$8E6A 

•BASE 


$9FAE 

NMI-Routine 

$8E79 

.CODE 


$9FFF 

Letztes Byte. Der Code belegt die vollen 8 KByte! 


Tabelle 4. Einsprungadressen von Glga-Ass. Wollen Sie Giga-Ass für spezielle Zwecke umschreiben oder erweitern, 
so finden Sie hier wichtige Basisinformationen. 
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Nun soll an einem konkreten Beispiel gezeigt werden, 
wie man einen Quelltext eingibt. 

Geben Sie A 100, 10 und dann das folgende Programm 
ein (ohne die Zoilennummern, diese werden durch den 
Auto-Befehl jä voigogeben). Achten Sie dabei darauf, daß 
<SPACE> bedeutet: Einmal die SPACE-Taste drücken. 
100.BASE $6000 
110.START $6000 

120.MACR0 PRINT <SHIFT SPACE> TEXT 
130 <SPACE> LDA #< (TEXT) 

140 <SPACE> LDY #> (TEXT) 

150 <SPACE> JSR $AB1E 
160.ENDMACR0 

170 <SPACE> PRINT <SPACE> MESSAGE 
180 <SPACE> RTS 

190MESSAGE <SPACE> .TEXT"<beliebige Mitteilung> " 

Nun erscheint noch die Zeilennummer 200. Diese wird 
aber nicht mehr benötigt, wir drücken daher <SHIFT 
RETURN > und noch einmal < RETURN >. Mit <F1> 
kann man das Programm wieder ansehen. Es besteht im 
wesentlichen aus dem Makro »PRINT«, das eine beliebige 
Mitteilung auf dem Bildschirm ausgibt. Der verwendete 
Parameter »TEXT« ist eine Adresse, die auf den Textanfang 
verweist, in unserem Fall symbolisch angegeben durch das 
Label »MESSAGE«. Der Aufruf für dieses Makro steht in 
Zeile 170. 

Der Text in Zeile 190 wird zwischen Anführungszeichen 
genauso eingegeben, wie man das vom Basic-Befehl 
PRINT her gewohnt ist (inklusive aller Cursor- 
Steuerzeichen). Die eigentliche Text-Ausgabe erfolgt durch 
einen Einsprung in die entsprechende Routine des 
Betriebssystems ($AB1E). 

Nun startet man den Assembler entweder durch <F3>, 
<X> <RETURN> oder auch durch »RUN« und 

< RETURN >. Sobald die Assemblierung beendet ist, 
erscheint die Meldung: 

»<SPACE> FOR .STARTOR <RUN/STOP>« 

Folgen Sie dieser Aufforderung und drücken < SPACE >, 
so wird der Bildschirm gelöscht und dann der Text aus Zeile 
190 ausgegeben. 

Es können also Speicheradressen wie gewohnt hexade¬ 
zimal mit einleitendem $-Zeichen eingegeben werden. Im 
Beispiel wurde die Basis-Adresse auf $6000 gesetzt. Man 
hätte aber auch genausogut .BASE 24576 (also dezimal) 
eingeben können. Dezimalzahlen werden also nicht beson¬ 
ders gekennzeichnet. Ferner erkennt der Assembler auch 
Binärzahlen, die durch »%« eingeleitet werden. So ist 
0 / 0 IOIO = $A = 10. 

Sehr wichtig beim Eingeben von Quelltexten ist die Un¬ 
terscheidung von < SPACE> und <SHIFT SPACE>. Im 
Kapitel über Makro-Programmierung wird darauf noch ein¬ 
gegangen. Hier noch ein wichtiger Hinweis: Es kann Vor¬ 
kommen, daß beim Assemblieren eine auf den ersten Blick 
syntaktisch korrekte Zeile mit einem Fehler quittiert wird. 
Schuld daran ist in vielen Fällen ein verstecktes <SHIFT 
SPACE >, das leider beim Original-Zeichensatz von einem 

< SPACE > nicht zu unterscheiden ist. Eine Hilfe für das 
Programmieren mit Giga-Ass wäre daher ein 2732-EPROM 
mit einem modfizierten Zeichensatz, bei dem <SHIFT 
SPACE > als kleiner Punkt (wie bei Vizawrite) auf dem Bild¬ 
schirm erscheint. Dieses EPROM müssen Sie anstelle des 
originalen Character-ROM einsetzen. 

Die Token 

Jede eingegebene Zeile wird nach < RETURN > 
gepackt und erst dann im Speicher abgelegt. Dabei werden 
die Assembler-Befehle wie LDA, STA etc. (die sogenannten 
Mnemonics) in Token umgerechnet. Statt nun tatsächlich 
»LDA«, »STA« einzugeben, kann man auch gleich das Gra¬ 


fiksymbol eintippen, welches den gleichen Zeichencode 
wie das entsprechende Token besitzt. Zum Beispiel kann 
man statt »LDA« direkt <SHIFTJ> eingeben und statt STA 
dieTasten <SHIFTR> drücken. In Tabelle 3 sind die Token 
für alle Mnemonics verzeichnet. 

Die Pseudo-Befehle 

Die Pseudo-Befehle sind Anweisungen an den Assem¬ 
bler, die den Verlauf der Assemblierung steuern. Pseudo- 
Befehle beginnen immer mit einem Punkt. In Giga-Ass wer¬ 
den auch die Pseudo-Befehle als Token gespeichert. Das 
hat zur Folge, daß - wie bei den Assembler-Befehlen - eine 
abgekürzte Eingabe möglich ist. Doch aufgrund der Tatsa¬ 
che, daß die Grafiksymbole für je zwei unterschiedliche 
Codes stehen, treten Überschneidungen mit den Abkür¬ 
zungen für die Assembler-Befehle auf. Dieses Problem 
wurde folgendermaßen gelöst: An jeder Stelle, wo ein 
Befehl wie LDA eingegeben wird, kann man auch das ent¬ 
sprechende Token direkt als Grafiksymbol eingeben. 

Für die Pseudo-Befehle wurde nun eine andere Form der 
Abkürzung gewählt. Vermutlich ist jedem die Methode 
bekannt, Basic-Befehlsworte abgekürzt einzugeben: LIST 
kürzt man ab durch <L> <SHIFT l> und LOAD durch 
<L> <SHIFT 0>. Es gibt aber auch Basic-Befehlsworte, 
die in den ersten beiden Buchstaben gleich sind, beispiels¬ 
weise READ und RESTORE. Hier muß dann < R >, < E >, 
<SHIFTA> beziehungsweise <R>, <E>, <SHIFTS> 
eingegeben werden. 

Das gleiche Prinzip wurde für die Pseudo-Befehle von 
Giga-Ass eingesetzt: .BASE kürzt man ab durch <■> 
<B> <SHIFTA>, .GOTO durch <.><G> <SHIFT 
0>. Da sich aber die meisten Pseudo-Befehle bereits im 
ersten Buchstaben unterscheiden, ist es im Gegensatz zu 
Basic zulässig, bereits den ersten Buchstaben geSHIFTet 
einzug ben. So wird .MACRO abgekürzt, indem man 
<.> <SHIFT M> eingibt. 


25 Pseudo-Befehle 


Bei der folgenden Aufstellung aller 25 Pseudo-Befehle wird 
angegeben, welches die kürzeste Abkürzung für den ent¬ 
sprechenden Befehl ist. 

.CALL 

dient zum Aufruf von Makros. Dieser Pseudo-Befehl nimmt 
eine besondere Stellung ein, da er in dieser Form gar nicht 
im Quelltext erscheint. Näheres dazu weiter unten. 

.MACRO <•> <SHIFT M> 
leitet eine Makro-Definition ein. 

.ENDMACRO <•> <SHIFT E> 
beendet eine Makro-Definition. 

.GLOBAL <■> <SHIFT G> 

definiert ein globales Symbol (Label). Syntax: 

.GLOBAL Symbolname = Wert 
Zum Beispiel wird mit: 

.GLOBAL CHROUT=$ffd2 

die Kernel-Routine zur Ausgabe einzelner Zeichen mit dem 
symbolischen Namen CHROUT benannt. Ein Label muß 
dann als global definiert werden, wenn es sowohl in einem 
Makro als auch im Hauptprogramm verwendet werden soll. 

.EQUATE <.><E> <SHIFTQ> 
definiert ein lokales Symbol. Syntax: 

.EQUATE Symbolname = Wert 
Lokale Symbole sind für Schleifen und Sprungbefehle zu 
verwenden. Außerdem werden sie bei jedem Aufruf eines 
Makros mit Parametern implizit angelegt. 
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.BYTE <. > <SHIFT B> 

fügt einzelne Bytewerte (Werte von $00 bis $FF) in den 
Quelltext ein. Mehrere Bytewerte werden duch Kommata 
voneinander getrennt. Die Werte sind wahlweise als dezi¬ 
male, hexadezimale oder binäre Zahlen, als Symbole oder 
als Strings der Länge 1 einzugeben. Zum Beispiel werden 
durch: 

.byte 32 , $20,#100000," * 

vier Leerzeichen mit dem ASCII-Code 32 erzeugt. 

.WORD <■> <SHIFT W> 

fügt Adressen (16-Bit-Werte im Bereich von $0000 bis 
$FFFF) in den Quelltext ein. Mehrere Adressen sind durch 
Kommata voneinander zu trennen. Die Adressen werden in 
der standardmäßigen Folge Low-, High-Byte in den Objekt¬ 
code aufgenommen. 

.DS <.> <SHIFT D> 

DS steht für »Define Storage« und dient zur Reservierung 
von Speicherbereichen. Syntax: 

.DS »n« 

Die Anzahl »n« der zu reservierenden Bytes kann zwi¬ 
schen 0 und 255 liegen. Vor .DS kann natürlich ein Label 
stehen, um den so erzeugten Speicherbereich anzuspre¬ 
chen. Im Gegensatz zum DS-Befehl von anderen Assem¬ 
blern, die einfach den Adreßpegel erhöhen und den Spei¬ 
cher Undefiniert lassen, initialisiert Giga-Ass den Speicher¬ 
bereich mit Null. Die so erzeugten Null-Bytes werden auch 
ins Übersetzungs-Protokoll mit aufgenommen. 

.TEXT <.> <SHIFTT> 

erlaubt das Einfügen von Texten in den Quelltext. Die ein¬ 
zelnen Zeichen des Textes werden als ASCII-Codes im 
Speicher abgelegt. Es gibt zwei Syntax-Varianten: 

a) .TEXT "Zeichenfolge" 

Mit abschließendem Anführungszeichen fügt man hinter 
das letzte ASCII-Zeichen noch ein zusätzliches Nullbyte als 
Begrenzer. Das hat den Vorteil, daß so definierte Texte ohne 
weiteres mit der PRINT-Routine $AB1E ausgegeben wer¬ 
den können. 

b) .TEXT "Zeichenfolge 

Ohne abschließendes Anführungszeichen legt man nur 
die Zeichenfolge - ohne Nullbyte - im Objektcode ab. Nach¬ 
teil ist, daß in dieser Variante abschließende Leerzeichen 
nicht eingegeben werden können. In diesem Falle, muß 
man sich mit eventuell mehreren ».BYTE 32«-Befehlen 
behelfen. 

Die Taste < — > wurde ausgewählt, um einen Carriage- 
Return-Code ($0D) zu erzeugen. Damit ist es möglich, 
innerhalb eines TEXT-Befehls in die nächste Zeile zu sprin¬ 
gen. Sonst müßte man das mit .BYTE $0D-Befehlen einge¬ 
ben. Ein Nachteil dabei ist, daß nun das Zeichen < — > 
innerhalb von .TEXT-Befehlen nicht mehr erzeugt werden 
kann. Es muß als ».BYTE $5F« eingegeben werden. 

.OBJECT <.> <SHIFTO> 

lenkt die Objektcode-Ausgabe auf Diskette um. Syntax: 

.OBJECT "filename.p.w" 

Mit diesem Befehl ist es möglich, direkt auf Diskette zu 
assemblieren. Der .OBJECT-Befehl öffnet das File mit dem 
Namen »filename« zum Schreiben. Sollte dieses bereits 
vorhanden sein, so gibt Giga-Ass die Meldung FILE 
EXISTS ERROR aus. War das Offnen des Files erfolgreich, 
so werden als erste Bytes die Basis-Adresse als Start¬ 
adresse für den Objektcode im Low-, High-Byte-Format in 
das File geschrieben. So wird erreicht, daß das Objektpro¬ 
gramm an die richtige Stelle im Speicher geladen wird. 

Achtung: Wird dieser Befehl verwendet, so muß der 
Quelltext unbedingt als letzten Befehl einen .END-Befehl 
enthalten! Dieser schließt das File. Sollte man diesen 
Befehl vergessen haben, so ist nach Beendigung der 


Assemblierung vor dem nächsten Diskettenzugriff das 
Objekt-File mit CLOSE 14 von Hand zu schließen. 

Achtung: Die Befehle .OBJECT und .START (siehe unten) 
schließen einander aus. Der Maschinencode steht durch 
.OBJECT nicht im Speicher und kann daher auch nicht 
direkt nach der Assemblierung gestartet werden. 

.BASE <.> <B> <SHIFT A> 

setzt die Basis-Adresse für den Objektcode. Syntax: 

.BASE Adresse 

Dieser Befehl sollte zu Beginn des Quelltextes stehen. 

.CODE < > <C> <SHIFT 0> 

bestimmt, in welchen Speicherbereich der Objektcode 

abgelegt wird. Syntax: 

.CODE Adresse 

Der Objektcode wird ab der angegebenen Adresse in 
den Speicher geschrieben. Dieser Befehl ist nur notwen¬ 
dig, wenn der Objektcode an einer anderen Stelle des Spei¬ 
chers abgelegt werden soll als derjenigen, wo er später als 
lauffähiges Programm liegen soll (beispielsweise wenn der 
gewünschte Speicherbereich derzeit von einem anderen 
Programm belegt ist.) Ist im Quelltext kein .CODE-Befehl 
vorhanden, so wird der Objektcode ab der Basis-Adresse 
(.BASE-Befehl) im Speicher abgelegt. 

.ON 

ermöglicht einen bedingten Sprung. Syntax: 

.ON Ausdruck, Zeilennummer 
»Ausdruck« ist ein Vergleich, der -1 für wahr und 0 für 
falsch liefert. Ergibt »Ausdruck« als Resultat -1 (also wahr), 
so erfolgt der Sprung zu der angegebenen Zeilennummer; 
andernfalls wird mit der Assemblierung in der nächsten 
Zeile fortgefahren. 

Als Zeilenummer wird auch ein zu berechnender oder 
durch .L' JÄTE festgelegter Ausdruck integriert. Mit einer 
Kombination von .EQUATE- und .ON-Befehl lassen sich 
sehr leicht Assemblerschleifen realisieren. Zwei Beispiele: 

a) Es soll eine Tabelle erzeugt werden, in der alle Zahlen 
von 0 bis 99 in ihrer numerischen Reihenfolge als Bytes ein¬ 
getragen sind. Wir erreichen dies durch folgendes Pro¬ 
gramm: 

10.BASE $6000 
20.EQUATE X=0 
30.BYTE X 
40.EQUATE X=X+1 
50.0N X <100, 30 

b) Wir möchten alle Buchstaben von »A« bis »Z« auf den 
Bildschirm ausgeben, aber kein Indexregister verwenden. 
Als Assemblerschleife läßt sich das so programmieren: 

10.BASE $6000 
20.START $6000 
30.EQUATE C=65 
40 < SPACE > LDA #C 
50 <SPACE> JSR $FFD2 
60.EQUATE C=C+1 
70.0N C< 91,40 
80 <SPACE> RTS 

.GOTO <.> <G> <SHIFT 0> 
erzeugt einen unbedingten Sprung. Syntax: 

.GOTO Ausdruck 

Der »Ausdruck« wird als Zeilennummer ausgewertet. 
Anschließend wird die Assemblierung bei dieser Zeilen¬ 
nummer fortgesetzt. In Verbindung mit dem .STOP-Befehl 
läßt sich ein Quelltext in einzelnen Abschnitten assemblie¬ 
ren, um einen Fehler einzugrenzen. 

.IF <.> <SHIFTI> 

.ELSE <.> <E> <SHIFTL> 

.ENDIF <.> <END> <SHIFTI> 
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ermöglichen eine bedingte Assemblierung. Syntax: 

.IF Ausdruck 

Wird der »Ausdruck« hinter .IF als 0 - also falsch - ausge¬ 
wertet, wird die Assemblierung hinter .ELSE fortgesetzt. 
Wird kein .ELSE gefunden, wird die Assemblierung hinter 
.ENDIF fortgesetzt. 

Wurde der »Ausdruck« jedoch als -1 - also wahr - ausge¬ 
wertet, so wird die Assemblierung fortgesetzt, bis auf 
.ELSE gestoßen wird. Darauf wird .ENDIF gesucht und 
dahinter die Assemblierung fortgesetzt. 

.SYMBOLS <.> <SHIFT S> 

Syntax: 

.SYMBOLS Ifn, dev, sa,''filename" 

Der .SYMBOLS-Befehl bewirkt, daß am Ende des 
Assemblierungsvorgangs die Symboltabelle ausgegeben 
wird. Die Parameter hinter .SYMBOLS entsprechen denen 
des normalen OPEN-Befehls in Basic. Die Symboltabelle 
ist fest auf 40 Zeichen pro Zeile formatiert und eignet sich 
daher auch für die Bildschirm-Ausgabe. Die Ausgabe auf 
dem Bildschirm wird durch Drücken der SPACE-Taste 
angehalten und wieder fortgesetzt oder durch 
< RUN/STOP > abgebrochen. 

Beispiele: 

.SYMBOLS 1,3,0 gibt die Symboltabelle auf den Bildschirm 
aus. 

.SYMBOLS 1,4,0 gibt die Symboltabelle auf den Drucker 
aus. 

.SYMBOLS 2,8,2,"fable,s,w" schreibt die Symboltabelle 
in ein sequentielles File mit dem Namen "table". 

.LISTING <•> <SHIFT L> 

Syntax: 

.LISTING Ifn, dev, sa, "filename" 

Der .LISTING-Befehl bewirkt, daß während der Assem¬ 
blierung ein Übersetzungs-Protokoll auf das angegebene 
Gerät ausgegeben wird. Achtung: Sollten .LISTING und 
.SYMBOLS zusammen verwendet werden, so müssen sich 
die logischen Filenummern »Ifn« unterscheiden, sonst gibt 
der Assembler die Meldung FILE OPEN ERROR aus. Die 
Parameter werden wie bei .SYMBOLS gesetzt. 

.END 

bewirkt ein Schließen des Objekt-Files (siehe .OBJECT). 
Etwaiger Quelltext nach .END wird bis zum nächsten 
.OBJECT in den Speicher assembliert. 

.STOP <•> <S> <SHIFT T> 
bewirkt einen Abbruch der Assemblierung - jedoch erst im 
dritten Pass. Dadurch ist man sicher, daß alle Labels und 
Makros zur Verfügung stehen. Der Objektcode wird jedoch 
nur bis .STOP erzeugt. 

.PAGE <.> <SHIFTP> 

Syntax: 

PAGEn 

Dieser Befehl bewirkt eine Seitenformatierung. Nach »n« 
Quelltextzeilen wird bei Bildschirmausgabe der Bildschirm 
gelöscht, beim Drucker ein Form Feed gesendet. 

.NOCODE <.><SHIFTN> 

unterdrückt das Ablegen von Objektcode im Speicher. 
Sinnvoll ist dies beim direkten Assemblieren auf Diskette. 

.START <•> <S> <T> <SHIFTA> 

Syntax: 

.START Adresse 

Wenn man diesen Befehl eingegeben hat, so wird nach 
beendeter Assemblierung zur angegebenen Adresse 
gesprungen, nachdem auf die SPACE-Taste gewartet und 
der Bildschirm gelöscht wurde. Das aufgerufene Pro¬ 
gramm muß mit RTS enden, damit ein Rücksprung in den 
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Assembler erfolgt. Diesen Befehl kann man in den Quell¬ 
code einbinden, um einen Probedurchlauf zu erzeugen. 

.NOEXP <•> <N> <0> <SHIFTE> 
unterdrückt die Makro-Expansion im Übersetzungs-Proto¬ 
koll, was bedeutet, daß der innerhalb von Makroaufrufen 
erzeugte Objektcode nicht gelistet wird. Besonders bei 
mehrfach aufgerufenen Makros dient dies zur Übersicht¬ 
lichkeit im Protokoll. 

Die Token für die Pseudo-Befehle sind in Tabelle 2 ange¬ 
geben. Angewendet werden diese Token bei den Editor-Be¬ 
fehlen F und R. Soll beispielsweise nach jedem Auftreten 
des Pseudo-Befehls .MACRO gesucht werden, so lautet 
der Befehl: F0,"<CBM K>". 

Für das Eingeben von Quelltextzeilen gilt folgende Son¬ 
derregelung: 

In der ersten Spalte hinter der Zeilennummer dürfen die 
Pseudo-Befehle auch als Token eingegeben werden. Steht 
jedoch in der betreffenden Zeile ein Label oder rückt man 
den Pseudo-Befehl durch ein Leerzeichen ein, so werden 
nur noch Token für Assembler-Befehle akzeptiert. 

Diese Sonderregelung ist notwendig wegen der Überlap¬ 
pung bei den Grafiksymbolen, die für je zwei unterschiedli¬ 
che Codes stehen. Dabei müssen die Token für Pseudo- 
Befehle stets am Anfang einer Zeile stehen. 

In der ersten Spalte hinter der Zeilennummer dürfen statt 
den normalen Token auch die sogenannten Zusatz-Token 
eingegeben werden. Bei diesen Token handelt ich aus¬ 
schließlich um geSHIFTete Tasten (Tabelle 2, Taste 2). 

Die Makro-Programmierung 


Makros sind meist kürzere Befehlsfolgen, die im Queiltext 
häufiqc' Vorkommen und deshalb zu einer Einheit zusam- 
mengetaßt werden. Zu jedem Makro gehört ein Name, mit 
dem es aufgerufen wird. An jedes Makro lassen sich be¬ 
liebig viele Parameter übergeben, deren aktueller Wert 
dann bei der Assemblierung eingesetzt wird. Makro- 
Definitionen sind an beliebiger Stelle im Quelltext erlaubt. 
Alle Makro-Namen sind global in dem Sinne, daß innerhalb 
eines Makros jedes andere aufgerufen werden kann. Alle 
Parameter und Makro-internen Label sind lokal. Das heißt, 
verschiedene Makros dürfen durchaus Label beziehungs¬ 
weise Parameter gleichen Namens verwenden. 

Sehen wir uns die prinzipielle Form einer Makro- 
Definition anhand eines Beispiels an: 

100.BASE $6000 
110.START $6000 

120.MACRO P0KE <SHIFT SPACE> ADR, VAL 
130.<SPACE> LDA #VAL 
140 < SPACE > STA ADR 
150.ENDMACRO 

160 <SPACE> P0KE <SPACE> 53280,0 
170 < SPACE > RTS 

Der .MACRO-Befehl wird gefolgt vom Makro-Namen und 
einer Parameterliste, wobei dazwischen ein »SHIFT 
SPACE« stehen muß. Man nennt diese Parameter auch 
»formale Parameter«. Mehrere solcher Parameter werden 
durch Kommata getrennt. Die Reihenfolge der formalen 
Parameter ist willkürlich und bleibt Ihnen überlassen, weil 
es sich um eine Definition handelt. Nur müssen Sie sich 
später bei der Verwendung des Makros auch daran halten. 
In unserem Beispiel ist der Makro-Name »POKE« und die 
Parameter sind »ADR VAL«. 

Die Quelltextzeilen, die direkt auf den .MACRO-Befehl 
folgen, definieren die Befehlsfolge, die bei jedem Makro- 
Aufruf im Objekt-Programm abgelegt wird. Innerhalb die¬ 
ser Befehlsfolge tritt jeder Parameter an beliebigen Stellen 
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auf, und zwar beliebig oft, jedoch mindestens einmal (sonst 
wäre der Parameter ja sinnlos). Abgeschlossen wird die 
Befehlsfolge durch den Pseudo-Befehl .ENDMACRO. 

Wir betrachten den Makro-Aufruf aus Zeile 160. 

POKE <SPACE> 53280,0 

Auf den Makro-Namen »POKE« folgt die Liste der soge¬ 
nannten »aktuellen Parameter« 53280 und 0. Zwischen 
Makro-Name und den Parametern muß im Gegensatz zu 
Assembler-Befehlen und deren Operanden ein Leerzei¬ 
chen stehen. Stößt der Assembler auf diesen Makro-Aufruf, 
so tut er folgendes: Er merkt sich die aktuellen Parameter 
53280 und 0. Darauf springt er an die Stelle des Quelltex¬ 
tes, wo sich die Definition des POKE-Makros befindet. Nun 
setzt er die aktuellen Parameter 53280 und 0 für die forma¬ 
len Parameter »ADR« und »VAL« ein: »ADR« wird auf 53280 
gesetzt und »VAL« auf 0. Damit ergibt sich die Befehlsfolge: 
LDA #0, STA 53280, die bekanntlich die Rahmenfarbe auf 
Schwarz setzt. Diese Befehlsfolge wird im Objekt¬ 
programm abgelegt. Danach stößt der Assembler auf 
.ENDMACRO und springt im Quelltext an die Stelle hinter 
dem Makro-Aufruf zurück. 

So »schachtelt« man Makros 


Dazu ein Beispiel (das POKE-Makro sei nach wie vor defi¬ 
niert): 

200.MACRO RAM 

210 <SPACE> POKE 1,$36 

220.ENDMACR 

300.MACR0 ROM 

310 <SPACE> POKE 1,$37 

320.ENDMACRO 


Das RAM-Makro blendet das Basic-ROM aus; an dessen 
Stelle tritt der RAM-Bereich von $A000 bis $BFFF. Das 
ROM-Makro macht es wieder rückgängig. 

Diese Makro-Definition nennt man »geschachtelt«, weil 
innerhalb eines Makros ein anderes Makro aufrufen wird. 
Die Schachtelungstiefe ist nur begrenzt durch die Größe 
des Prozessor-Stack. 

Zur Wahl der Makro-Namen 

Der Makroname sollte nicht zu lang gewählt werden, 
denn bei jedem Auruf muß man ihn so eintippen, wie man 
ihn definiert hat. Wichtiger ist jedoch, daß der Makro-Name 
nicht mit einem Mnemonic (also LDA, STA etc.) beginnt. 
Das ist zwar nicht verboten, hat aber trotzdem einen guten 
Grund. Ein Beispiel: Nehmen wir an, wir haben ein Makro 
»STATUS« definiert, das den Disk-Status ausgibt. Geben 
wir nun das Wort »STATUS« in eine Quelltextzeile ein, so 
vermag der Assembler prinzipiell nicht zu unterscheiden, 
ob es sich nun um ein Makro mit dem Namen »STATUS« 
handelt oder um den Assembler-Befehl STA mit »TUS« als 
symbolischem Operanden. 

Sicher erkennen Sie das Problem: Soll die Tokenwand¬ 
lung erfolgen oder nicht? Sie erfolgt, weil den Mnemonics 
immer der Vorrang eingeräumt wird. Trotzdem gibt es einen 
Weg, die Tokenwandlung zu unterdrücken: Man gibt vor 
dem Makro-Namen ein <SHIFT SPACE > ein. Dies ist das 
Token für den Pseudo-Befehl .CALL. Nur dann, wenn ein 
Makro-Name mit einem Mnemonic beginnt, muß es einge¬ 
geben werden, sonst ist es unnötig. 

Rechnungen im Quelltext 

Im Quelltext sind die vier Grundrechenarten Addition (+), 
Subtraktion (-), Multiplikation (*) und Division (/) sowie 


Programmierer aufgepaßt 


Mit dem Makro-Assem¬ 
bler »Giga-Ass« geht 
in diesem Sonderheft 
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nen-Programmierer 
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sem Sonderheft auf Seite 131 zu finden ist, erhalten 
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entwicklung. Beson¬ 
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Bei der Veröffentlichung Ihrer Konvertierprogramme 
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Schicken Sie Ihre Programme bitte unter dem 
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auch die Potenzierung (t) erlaubt. Daneben gibt es noch 
die drei Vergleichsoperatoren »<, =, >« sowie vier logi¬ 
sche Operatoren. Dies sind zunächst die beiden Operato¬ 
ren »N« für das Einerkomplement (NOT) und »-« für das 
Zweierkomplement sowie zwei binäre Operatoren: »A« für 
das logische »AND« und »O«, das logische »OR«. 

Für die Operatoren »N, A und O« gibt es eine Sonderrege¬ 
lung: Um diese Zeichen von Symbol-Zeichen zu trennen, 
müssen sie in Ausrufezeichen eingeschlossen werden. Bei 
NOT ist das obligatorisch, es muß immer als »INI« geschrie¬ 
ben werden. Für AND und OR gilt: Nur wenn die Operan¬ 
den Zahlen sind, kommt man ohne Ausrufungszeichen 
aus, beispielsweise ist: 

1 AI = 1. Eine logische UND-Verknüpfung zwischen den 
beiden Symbolen »X« und »V« erreicht man durch: X !A! Y. 

Die Vergleichsoperatoren liefern als Wahrheitswerte -1 
für wahr und 0 für falsch. Eine logische Negation (NOT) 
erreicht man durch den N-Operator. Es ist: IN! -1=0 und 
IN! 0 = -1. Damit lassen sich auch die Operatoren »< >«, 
»< =« und »= >« (ungleich, kleiner und größer gleich), die 
nicht direkt zur Verfügung stehen, realisieren: Es ist: 

A<>B = IN! A = B 

A<=B = !N!A>B 

A>=B = !N!A<B 

Beim Rechnen mit den Wahrheitswerten muß man dar¬ 
auf achten, daß man -1 und 0 zwar als Operanden für .IF 
und .ON verwenden, aber-1 nicht einem Symbol zugewei- 
sen darf. Um Wahrheitswerte in Variablen zu speichern, 
muß man ins Zweierkomplement wandeln und anstelle mit 
-1 und 0 mit +1 und 0 rechnen. Zum Beispiel wird durch 
den Befehl .EQUATE C = -(A=B) das Symbol C auf 1 
gesetzt, falls A=B gilt, und sonst auf 0. 

Das AdreBpegelsymbol »*« 

Das Symbol »*« liefert als Wert die Adresse zurück, an 
welcher der Assembler sich im Augenblick befindet. Diese 
Adresse nennt man auch den »Adreßpegel«. Sie gibt an, an 
welcher Adresse der Assembler das nächste Byte im Spei¬ 
cher ablegt. 

Zur Verdeutlichung ein Beispiel. Geben Sie einmal fol¬ 
gendes Program ein: 

10.BASE $6000 

20.START $6000 

30 < SPACE > LDX #0 

40 MARKE TXA 

50 <SPACE> STA $400,X 

60 <SPACE> INX 

70 <SPACE> BNE MARKE 

80 <SPACE> RTS 

Das Programm schreibt alle 256 Zeichen des Zeichen¬ 
satzes ins obere Viertel des Bildschirms. Betrachten wir 
nun den Wert des Symbols »*« im Verlauf der Assemblie¬ 
rung: 

30 *=$6000 

40 *=$6002, MARKE = * 

50 *=$6003 
60 *=$6006 
70 *=$6007 
80 *=$6009 

Man kann nun die hauptsächliche Verwendung des Sym¬ 
bols »*« erklären: Es dient zur Einsparung von Labein bei 
relativen Sprüngen. Im Beispiel hat das Label »MARKE« 
den Wert $6002. Zugegriffen wird auf das Label in Zeile 70. 
Dort gilt * =$6007. Aber es ist auch *-5 = MARKE = 
$6002. Also hindert uns nichts daran, in Zeile 70 das Label 
»MARKE« durch den Ausdruck »*-5« zu ersetzen! Damit ist 
das Label »MARKE« in Zeile 40 überflüssig geworden; man 
kann es bedenkenlos wieder entfernen. 
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Vorteilhaft wird diese Variante in längeren Programmen, 
wo man es irgendwann leid ist, sich für jede Schleife einen 
neuen Label-Namen zu überlegen. Allerdings hat die 
Sache einen Haken: Man muß anfangen zu zählen, und 
zwar die Anzahl der Bytes, die durch den relativen Sprung 
übersprungen werden sollen. Hierfür gibt es folgende 
Regeln: 

1. Bei Rückwärts-Sprüngen zählt man rückwärts die 
Anzahl der Bytes ab der Zeile direkt vor dem Sprungbefehl 
bis zur Zeile, in der das Sprungziel steht. In jeder Zeile zählt 
man dabei die Anzahl der Bytes, die der Befehl im Objekt¬ 
programm belegen wird. Aufpassen müssen Sie vor allem 
bei der Unterscheidung von 2- und 3-Byte-Befehlen! 

2. Bei Vorwärts-Sprüngen wird die Zeile, in der der 
Sprungbefehl steht, mitgezählt. Man zählt vorwärts bis zur 
Zeile unmittelar vor dem Sprungziel. 

3. Besondere Vorsicht ist geboten, wenn man »*« als 
Parameter bei Makro-Aufrufen verwendet! Es wird dann der 
Adreßpegel im ersten Byte des expandierten Makros 
genommen. Hierzu ein Beispiel: 

10.BASE $6000 
20.START $6000 

30.MACR0 EQB <SHIFT SPACE> A,B 

40 <SPACE> LDA A 

50 <SPACE> BEQ B 

60.ENDMACR0 

70 < SPACE > LDA # 0 

80 <SPACE> STA 198 

90 <SPACE> EQB <SPACE> 198,* 

99 <SPACE> RTS 

Dieses Programm wartet darauf, daß die Anzahl der 
gedrückten Tasten ungleich 0 wird. Der EQB-Makro-Aufruf 
entspricht der Befehlsfolge: 

LDA 98, BEQ *-2. 

Das »&«-Symbol 

Schließlich kommen wir noch zum Symbol »&«. Es gibt 
an, daß die darauf folgende Zero-Page-Adresse indirekt 
angesprochen wird. Damit wird die normale Notation, bei 
der die Zero-Page-Adresse eingeklammert wird, abge¬ 
kürzt. 

So kann man z.B. statt LDA (ADR,X) schreiben LDA 
&ADR.X und STA (ADR),Y abkürzen durch STA &ADR.Y. 

Fehlermeldungen von Giga-Ass 

Tritt während der Assemblierung ein Fehler auf, so wird 
die Assemblierung abgebrochen und eine Fehlermeldung 
sowie die fehlerhafte Zeile ausgegeben. Zur Fehlerbehe¬ 
bung ist die Symbol-Tabelle von Nutzen. Ferner lassen sich 
mit dem Befehl »/«, welcher den PRINT-Befehl aus dem 
Basic ersetzt, einzelne Symbol-Werte auf dem Bildschirm 
ausgeben. Wurde der Fehler innerhalb eines Makros ent¬ 
deckt, so stehen nur die Symbole innerhalb des Makros zur 
Verfügung. Geben Sie bitte 
P0KE $8B, 0: P0KE $8C, 0 
ein, um auf die globalen Symbole zuzugreifen. 

Eigene Fehlermeldungen 


SYNTAX ERROR 

Eine Quelltextzeile wurde nicht richtig gebildet. Beach¬ 
ten Sie bitte die richtige Reihenfolge Label, Assembler- 
Befehl, Operanden, Kommentar. 

ILLEGAL QUANTITY ERROR 

Ein Wert liegt außerhalb des zulässigen Bereichs. Byte- 
Werte liegen im Bereich $00 bis $FF, Wort- und Symbol- 
Werte im Bereich $0000 bis $FFFF. Alles, was darüber hin¬ 
ausgeht, führt zu dieser Fehlermeldung. 
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TERM EVALUATION ERROR 

Ein Ausdruck konnte nicht berechnet werden. Beachten 
Sie hierzu das Kapitel über Berechnungen im Quelltext. 

TOKEN ERROR 

Zulässige Token liegen im Bereich $A0 bis $B8 für die 
Pseudos und $C0 bis $F7 für die Mnemonics. Treten 
andere Byte-Werte größer oder gleich $80 Im Quelltext auf, 
so tritt dieser Fehler auf. Ausnahme: In der ersten Zeile 
steht ein SYS-Befehl mit dem Token $9£. In diesem Fall wird 
der Programmtext nicht assembliert, sondern als Maschi¬ 
nenprogramm betrachtet und mit dem SYS-Befehl gestar¬ 
tet. Damit lassen sich auch innerhalb des Assemblers 
Maschinenprogramme einladen und starten. 

INDEXING ERROR 

Ein Assembler-Befehl existiert nicht in der Kombination 
von gewählter Adressierungsart und gewähltem Register. 

LINE FORMAT ERROR 

Das Zeilenformat für Quelltextzeilen wurde nicht einge¬ 
halten. Beachten Sie, daß Kommentare am Schluß der 
Zeile mit Semikolon abgetrennt werden müssen. 

ADRESSING ERROR 

Ein Assembler-Befehl existiert nicht in der gewählten 
Adressierungsart. 

BRANCH ERROR 

Ein relativer Sprung führt über eine zu große Distanz 
(größer als 128 Byte). Ersetzen Sie diesen Branch-Befehl 
durch einen »Long Branch« mit Hilfe eines JMP-Befehls. 

UNDEFINED SYMBOL ERROR 

Ein Symbol wurde nicht vor seiner erstmaligen Verwen¬ 
dung definiert. Undefinierte Symbole haben den Wert 
$FFFF; dieser Wert darf also nie einem Symbol zugewie¬ 
sen werden. Der Fehler tritt auch dann auf, wenn innerhab 
eines Makros ein lokales Label außerhalb der Makro- 
Definition angesprochen wird. Definieren Sie hierzu dieses 
Label als global vor der Definition des Makros. 

ILLEGAL SYMBOL ERROR 

Dieser Fehler tritt dann auf, wenn ein Symbol nicht mit 
einem Buchstaben beginnt. Beachten Sie, daß Groß-/Klein- 
schreibung bei Symbolen nicht erlaubt ist. Als Trennzei¬ 
chen innerhalb von Symbolen kann < — > verwendet wer¬ 
den. 

SYMBOL TABLE FULL ERROR 

Die Symboltabelle ist mit 1170 Symbolen gefüllt, wenn 
dieser Fehler auftritt. Das passiert nur dann, wenn sehr 
viele Makros mit sehr vielen Parametern sehr oft aufgeru¬ 
fen werden - also praktisch nie. 

NO MACRO TO CLOSE ERROR 

Es kommt ein .ENDMACRO zuviel im Quelltext vor! Die¬ 
ser Fehler tritt auch dann auf, falls vor einem .MACRO- 
Befehl ein Label steht. Dies ist so nicht erlaubt. Schreiben 
Sie das Label allein in eine freie Zeile direkt vor dem 
.MACRO-Befehl! 

DOUBLE LABEL ERROR 

Sie haben versucht, einen Label-Namen zweimal zu defi¬ 
nieren. Geben Sie das zweite Mal einen anderen Namen 
ein. Kritisch ist es, wenn Sie innerhalb einer Assembler¬ 
schleife Label definieren. Dort ist es dann notwendig, mit 
dem »* *«-Symbol zu arbeiten. 

PARAMETER ERROR 

Die Anzahl der Parameter in einem Makro-Aufruf stimmt 
nicht mit der Definition überein. 

RETURN ERROR 

Diese Fehlermeldung wird nur dann erzeugt, wenn Sie 


mit einem Assembler-Sprung mitten in eine Makro- 
Definition hineinspringen. Kontrollieren Sie die Zeilenum¬ 
mern in Ihren Sprungbefehlen. 

UNDEFINED MACRO ERROR 

Bei einem Makro-Aufruf wurde die zugehörige Makro- 
Definition nicht gefunden. 

MACRO NOT CLOSED ERROR 

zeigt einen grundlegenden Fehler an. Sie haben verges¬ 
sen, Ihre Makro-Definition mit .ENDMACRO abzuschlie¬ 
ßen. Dieser Fehler tritt auch dann auf, wenn vor einem 
.ENDMACRO-Befehl ein Label steht. Dies ist nicht erlaubt. 
Schreiben Sie das Label allein in eine freie Zeile direkt vor 
dem .ENDMACRO-Befehl! 

IF-ELSE-ENDIF ERROR 

Achten Sie darauf, daß die Reihenfolge der Befehle .IF, 
.ELSE und .ENDIF stimmt und daß eine IF-ELSE-ENDIF- 
Konstruktion nicht geschachtelt werden darf. 

Dieser Fehler tritt auch auf, falls vor einem .IF, .ELSE 
oder .ENDIF-Befehl ein Label steht. Dies ist nicht erlaubt. 
Schreiben Sie das Label allein in eine freie Zeile direkt vor 
dem Befehl! 

.BASE MISSING ERROR 

Jeder Quelltext muß unbedingt eine Basis-Adresse ent¬ 
halten. Definieren Sie diese am besten direkt zu Beginn 
des Quelltextes. 


Die Synchronisation 


Es gibt eine Situation, in der der Assembler überfordert isV, 
und zwar dann, wenn Vorwärtsreferenzen auf Symbole 
erfolgen. Das bedeutet, daß ein Symbol verwendet wird, 
bevor es definiert wurde. Dieser Fall tritt dann ein, wenn ein 
Assembler-Befehl auf ein Symbol zugreift, aber dieses 
Symbol erst später im Quelltext definiert wird. In diesem 
Fall mußte eine Festlegung erfolgen, daß dieses zunächst 
unbekannte Symbol mit $8000 initialisiert wird. Ein 
Assembler-Befehl, der eine Vorwärtsreferenz beinhaltet, 
wird also prinzipiell als 3-Byte-Befehl interpretiert. (Eine 
Ausnahme ist die Immediate-Adressierung. Hier ist klar, 
daß es sich um einen 2-Byte-Befehl handelt. Die Initialisie¬ 
rung erfolgt dann mit $80.) Zum Glück gibt es nur eine ein¬ 
zige Situation, in der dieser Fehler auftritt: 

100.BASE $6000 
110 < SPACE > LDA A 
120 <SPACE> RTS 
130.EQUATE A=198 

Im ersten Pass nimmt der Assembler an, daß es sich in 
Zeile 110 bei LDA A um einen 3-Byte-Befehl handelt, denn 
er hat ja A=$8000 initialisiert. In Zeile 120 gilt dann 

* =$6003. 

Im zweiten Pass nimmt der Assembler an, daß es sich in 
Zeile 120 bei LDA A um einen 2-Byte-Befehl handelt, denn 
er hat ja A=198, also eine Zero-Page-Adresse, in der Sym¬ 
boltabelle eingetragen. In Zeile 120 gilt dann * =$6002. 

Diese Sitution, daß im ersten und im zweiten Pass unter¬ 
schiedliche Adreßpegel ermittelt werden, nennt man einen 
Synchronisationsfehler. Der Assembler selbst merkt davon 
nichts, er erzeugt auch keine Fehlermeldung. Nur der 
Objectcode wird fehlerhaft, weil die Lücke von einem Byte 
bei der weiteren Assemblierung katastrophale Folgen hat. 

Glücklicherweise tritt in Giga-Ass ein Synchronisations¬ 
fehler nur bei Vorwärtsreferenzen auf Zero-Page-Adressen 
auf, also wenn eine Zero-Page-Adresse erst hinter ihrer 
ersten Verwendung definiert wird. Man umgeht solche Vor¬ 
wärtsreferenzen dadurch, daß man ein für allemal festlegt, 
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daß Zero-Page-Adressen am Anfang des Quelltextes zu 
definieren sind. Dies sei Ihnen hiermit ans Herz gelegt und 
entspricht auch einem guten Programmierstil. 

Kompatibilität zum Hypra-Ass 


Um für Giga-Ass eine Kompatibilität zum Hypra-Ass sicher¬ 
zustellen, stellen wir Ihnen das Konvertierprogramm 
»Hypra-Konvert« zur Verfügung. Dessen Quellcode finden 
Sie in Listing 2. Listing 3 beinhaltet den Objekt-Code dieses 
Programms als Basic-Start-Version. Eine Konvertierung ist 
aufgrund der Tokenverarbeitung von Giga-Ass notwendig, 


da Hypra-Ass alle Befehle und Mnemonics im Klartext auf 
Diskette speicherte. 

Listing 4 (ebenfalls Quell-Code) verschiebt den Bild¬ 
schirmspeicher des C64 nach $CC00, so daß Sie ein weite¬ 
res KByte für Quelltexte zur Verfügung haben. 

Nun bleibt uns noch, Ihnen viel Erfolg und Spaß bei Ihren 
weiteren Programm-Projekten mit Giga-Ass zu wünschen. 
Sollten Sie Anregungen oder Verbesserungsvorschläge zu 
diesem Spitzen-Assembler haben, können Sie uns diese 
gerne zukommen lassen. Besonders interessiert sind wir 
an weiteren Konvertierprogrammen von anderen Assem¬ 
blern nach Giga-Ass (siehe Aufruf Seite 124). 

(Thomas Dachsel/sk) 
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20 

79 

e9 

9f OO 

: 

85 

38 

20 

44 

a6 

4c 

2 d 

9e 

fl 

9fb8 

X 

fe 

20 

15 

fd 

a9 

71 

a2 

9f 

bb 

9e50 

3 

93 

a9 

20 

20 

d2 

ff 

a9 

28 

eQ 

9f OB 

X 

20 

9b 

b7 

c9 

2 c 

dO 

12 

eO 

70 

9fcO 

X 

Be 

15 

03 

Bd 

14 

03 

ad 

00 

5b 

9e5B 

1 

20 

d2 

ff 

a5 

37 

38 

ed 

81 

86 

9f 10 

X 

02 

bO 

Oe 

B6 

21 

20 

9b 

b7 

bO 

9fcB 

X 

dd 

48 

20 

a3 

fd 

68 

Bd 

00 

9f 

9e60 

X 

02 

a5 

38 

ed 

82 

02 

4a 

4a 

f 7 

9f 1B 

X 

a4 

21 

8 a 

99 

3e 

03 

4c 

37 

be 

9fd0 

a 

dd 

ad 

18 

dO 

Oll 

20 

aO 

e5 

7B 

9e68 

3 

aa 

a9 

00 

20 

cd 

bd 

a9 

65 

27 

9f 20 

8 

85 

4c 

48 

b2 

a2 

00 

8 a 

48 

19 

9f dB 

a 

68 

Bd 

18 

dO 

a9 

00 

8 d 

91 

lb 

9e70 

X 

eO 

84 

20 

le 

ab 

a9 

50 

aO 

a9 

9f 28 

8 

a9 

51 

aO 

83 

20 

le 

ab 

68 

85 

9fe0 

8 

02 

85 

cf 

a9 

48 

a2 

eb 

Be 

34 

9e78 

8 

84 

20 

le 

ab 

a5 

2 c 

20 

79 

39 

9f 30 

1 

aa 

48 

eO 

Oa 

bO 

03 

20 

84 

24 

9feB 

8 

90 

02 

8 d 

Bf 

02 

a9 

04 

Sd 

67 

9oB0 

1 

93 

aS 

2 b 

20 

79 

93 

a9 

88 

al 

9f 38 

1 

94 

a9 

00 

20 

cd 

bd 

a9 

57 

c5 

9f f 0 

t 

Bb 

02 

a9 

Oa 

Bd 

89 

02 

Bd 

70 

9eBB 

X 

aO 

83 

20 

le 

ab 

a5 

2 e 

20 

97 

9f 40 

X 

aO 

83 

20 

le 

ab 

68 

aB 

48 

9f 

9f f 8 

8 

8 c 

02 

20 

34 

e5 

6 c 

02 

aO 

lf 

9e90 

t 

79 

93 

aS 

2 d 

20 

79 

93 

a9 

51 

9f 48 

1 

b9 

40 

03 

aa 

b9 

SO 

03 

20 

•2 












9e98 

I 

20 

20 

d2 

ff 

a9 

28 

20 

d2 

7f 

9f 50 

1 

cd 

bd 

a9 

2 d 

20 

d2 

ff 

68 

75 












9ea0 

a 

ff 

öS 

2 d 

•II 

e5 

2 b 

a5 

2 e 

6 f 

9f 58 

x 

aB 

48 

b9 

60 

03 

aa 

b9 

70 

ec 












9ea8 

s 

e5 

2 c 

4a 

4a 

aa 

a9 

00 

20 

b7 

9f 60 

S 

03 

20 

cd 

bd 

20 

d7 

aa 

6 B 

db 

Lfsting 1. 

»Giga 

Ass« (Schluß) 



10 ;.-. 

11 ; 

12 ;..- 

13; hypra-ass quelltext 
14; konvertierungsprogramm 

15;.. 

16; 

17; programmiert von thomas dachsei 

16; am 20, - 21. Juni 1987 

19; 

20; dieses Programm wandelt einen 
21; hypra-ass quelltext in einen 
22; giga-asa quolltext um, welcher 
23; direkt auf diskette geschrieben 
24; wird. 

26; 

26; starten sie dieses Programm mit 
27; <f3>. es werden dann alle not- 
28; wendigen eingaben abgefragt. 

29; 

30;- 

100.base $6000 

110,Start $6000 
120 ; 

130; - 

140; label- und makro-definltionen 

160; .—.. 

160; 

170.equate startadr=$801 
180; 

190.global cnt=aount 
200.global ip=inchars 
210.global op=outchars 
220.global inbuf=lib 
230.global outbuf=lob 
240; 

250.maoro readohar 
260 Jsr get 

270 ldx ip 

260 ata lnbuf.x 

290 ino ip 

300.endmacro 
310; 

320.macro key 


5**€H 


330 
340walt 
350 
360 
370 

380keytx 

3901eavo 

400.endmaoro 


prn keytx 
sto 198,0 
eqb 198,* 
cnq 631,*d,walt 
boq leave 
.text 
sto 198,0 


<roturn> druecken" 


410; 


1000; 


1010; 

hauptprogromm 

1020; 


1030; 


1040; 

1. oingnbo der file-i 

1050; 


1000 

Jar olnll 

1070 

prn stx 

1000 

rfn hqfn 

1090 

prn ntx 

1100 

rfn aqfn 

1110; 


1120; 

2. oeffnen dor flies 

1130; 


1140 

prn oltx 

1150 

prn hqfn 

1160 

prn o2tx 

1170 

oponfile 1,8, 

1100 

prn o3tx 


key 

prn oltx 
prn aqfn 
prn o4tx 

openfile 2,8,1,aqfn 

prn o3tx 

key 

prn mtx 
prn aqfn 
prn ttx 


1190 
1200 
1210 
1220 
1230 
1240 
1260 
1260 
1270 
1280 
1290; 

1300; 3. initialisiere count 
1320; 

1330 dst count,startadr 

1331 lda «$ff 

1332 sta lnr 

1333 sta lnr+1 

1340; 

1350; 4. schreibe neue startadresse 

a 

1300 jsr ckout 

1390 out <(startadr) 

1400 out >(startadr) 

1410; 

1420; 5. ueberlies alte startadresse 
1430; 

1440 ldx #1 

1460 Jsr chkin 

1460 jsr get 

1470 jsr get 

1480; 

1490; 6. erste koppeladresse einiesen 
1500; 

1601 sto ip,0 

1610 readohar 

1520 readohar 

1530; 

1540; 7. Zeilennummer (1/h) einlesen 
1560; 

1560contread readchar 
1570 readchar 

1580; 

1690; 8. rest der zelle einlesen 
1600; 

16101oop readohar 

1620 omp #0 

1630 bne loop 

1840; 

1650; 9. rufe convline auf 
1680; 

1670 ldx »2 

1'6B0 Jsr ckout 

1690 Jsr oonvline 

1700; 

1710;10. setze pufferzeiger auf 
1720; pufferanfang zurueck 

1730; 

1740 sto lp,0 

1760; 

1760;11. lios koppeladresse der 
1770; naochaton zolle ein 

1780; 

1790 ldx «1 

1800 Jar chkin 

1610 readohar 

1820 readchar 

1830; 

1840;12. cheak ob quelltext-ondo 
1850; 

1860 lda inbuf 

1870 bne contread 
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PROGRAMMIERHILFEN 


C64 


lda lnbuf« 
bne contread 


sohrelbo 00 00 fuer 
quelltext-endo 

ldx #2 

Jar ckout 
out 0 
out 0 

aohlioaae die (Hob, aotze 
oin-/ausgabo zurueak 

lda #1 
Jar cloao 
lda #2 
Jar cloao 
Jmp dreh 


1880 
1890 
1900; 

1910;13. 

1920; 

1930; 

1940 
1950 
1960 
1970 
1980'; 

1990;14. 

2000 ; 

2010; 

2020 
2030 
2040 
2060 
2060 
2070; 

2060; . 

2090; ende doa hauptprogramma 

2100 ; . 

2110 ; 

3000; . 

3010; mnomonias - texte 

3020; .. 

3030; 

3040mnemonics .text ''cpxopyldxldyompadcanddocoorlnaldaaalbltlsr 

3060 .text 'orarolrorsbcataatxatyjmpjartxataxtyataytax 

3060 .text 'txaphpplpphaplabrkrtirtBnopolaseaoliseiclv 

3070 .text "cldseddeytnydoxlnxbplbmlbvcbvabcobcsbnebeq 

3080; 

3090; —.—. 

3100; pseudo-befehls - texto 

3110: .-. 

3120; 

3130paeudoa 
3140 

3160endpaeudoa 
4000.maoro gtc' 

4010 ldx ip 

4020 lda lnbuf,x 

4030 inc ip 

4040.endmacro 
4050.macro pto 
4060 ldx op 

4070 ata outbuf.x 

4080 inc op 

4090 icd ent 

4100,endmacro 
4110.macro xfer 
4120 gtc 

4130 pte 

4140.endmaoro 
4150convline ato ip,2 


.text ”. .martgleqbywodatxobbaoo 
•text 'ongoifeleisyllenst 


apace, 


4160 
4170; 

4160; 

4190; 

4200 
4210 
4220: 

4230; 

4240; 

4250; 

4260; 

4270; 

4280; sonst: 
4290; 

4300 

4310 

4320 

4330 

4340nooomm 

4350 

4360nopad 
4370 
4380 
4390 


ato op,2 

zeilennummer transferieren 

xfer 

xfer 

erstes aeichen der zeile: 
Semikolon, dann kommentarzeile 
Punkt, dann pseudo 

dann ueberleaen 
und zum 2. feld gehen 
label ueberleaen 


gtc 

ebn 59,nocomm 
pte 

jmp rlop 
ebn ".",nopad 
Jmp ipso 
Pte 

cbe 32,aoofleld 


44001abolloop xfer 


ebn 0, *+7 
jmp endline 


4410 

4420 

4430 

4440; 

4460: 

4460; 

4470; 

4480; 

4490; 

4600; 

4610; 


obn 0,*+7 
jmp endline 


;end of 
;line 7 

;end of 
;line 7 


ebn 32,labelloop 
zweites feld: 

eventuell label, aber sicher 
oin apaoe bereits uebertragon 

jetzt entweder paeudo oder 
mnomonic 


4620aeofleid 

gto 


4530 

ebn 

".",*+7 

4540 

jmp 

ipac 

4560 

ldx 

ip ;x zeigt 

4560 

ldy 

#0 ;auf 2. 

4570 

sty 

mc ;Zeichen 

4580search 

lda 

inbuf-l,x 

4590 

emp 

mnemonioa.y 

4600 

bne 

noxtone 

4610 

lda 

lnbuf,x 

4620 

emp 

mnemonlcs*l,y 

4630 

bne 

nextone 

4640 

lda 

lnbuftl.x 

4650 

emp 

mnemonicst2,y 

4660 

boq 

found 

4670nextone 

lny 


4680 

iny 


4690 

lny 


4700 

. inc 

mc 


cpy llpseudos-mnemonics 
bcc aearch 

mnemonic nicht gefunden: 
fehlerhafte zelle, wird ganz 
ueberleaen 


4710 
4720 
4730; 

4740; 

4760; 

4760; 

4770; 

4780 

4790found 
4800 
4810 
4820 
4830 
4840 
5000; 

5010; — 

6020; lnaert paeudo-oode 
5030; 


jmp rlop 
lda ma 
ora HScO 
pto 
gtc 

gtc 

Jmp rlop 


imnemonic- 
;oode ab- 
;legen 
;3 seichen 
;akippon 


6040; 

5060; 

6060; 


ip zeigt auf daa erste der 
boiden paeudo-befehlaaeiohen 


60701pso 

ldy 

»0 

6080 

ldx 

ip 

5090comploop 

lda 

lnbuf,x 

6100 

omp 

paoudoa,y 

6110 

bne 

noxttoxt 

6120 

lda 

lnbuf+l,x 

5130 

emp 

paeudoa+l,y 

6140 

beq 

foundpad 

6150nexttoxt 

iny 


6160 

iny 


6170 

cpy 

Wendpaoudoa-paoudoa 

5180 

bcc 

oornploop 

6190; 



5200; paoudo nicht gefunden: 


6210; 

6220; 

6230; 
6240notfound 
5260 
6260 
5270 

6260foundpad 
5290 
5300 
5310 
5320 
5330; 

6340; 

6350; 

5360; 

6370; 


fehlerhafte solle, wird 
ganz ueberleaen 


lda 

pto 

jmp rlop 

gta 

gtc 

tya 

lar 

ora H$aO 


;paeudo- 
;code in 


nur speichern, falls kein 
macro call — ausser der makro- 
name beginnt mit mnemonic 


C1U 


5380 

ebn 

$a0 f storepac 

5390 

ldx 

ip 

541üoocurschk 

ldy 

lda 

«0 

lnbuf,x 

6420 

beq 

atorepsc-3 

5430 

emp 

mnemonica,y 

5440 

bne 

nextmnemo 

5450 

lda 

lnbuf+1,x 

6460 

emp 

mnemonioa+l,y 

5470 

bne 

nextmnemo 

6480 

lda 

inbuf+2,x 

5490 

emp 

mnemonic8+2,y 

5600 

bne 

nextmnemo 

6610 

lda 

#$a0 

6520 

bne 

atorepac 

5530nextmnemo 

iny 


6540 

iny 


6560 

iny 


6560 

cpy 

«paeudoa-mnemonica 

6570 

boc 

occuraohk 

5580 

Jmp 

11 

6690atorepac 

pto 



5600; 
6610; 
5620; 
6630; 
5640; 
6650 
5660tll 
6870 
6680 
5690 
6700 
6710tl2 
6720 
5730 
6740 
6760 
6760 
5770 
6780; 
5790; 
6800; 
6810; 
5820; 
5830; 
5840; 
6850; 
6860; 
6870; 
6880; 
5890akip 
5900 
591011 
5920 
6930 
6940 
5950 
5960 


falls .text-pseudo, eventuelles 
abachliessendea hochkomma ent¬ 
fernen 

obn $a8,akip 
gta 

obn 0,*+7 ;end of 

jmp putO ;line 7 

pto 

ebn 34,tll 

gto 

obn 0,#+7 ;end of 

jmp putO ;llno 7 

ebn 34,*+7 
Jmp rlop 
pte 

Jmp tl2 

falls makro-definltlon oder 
-aufruf, klammorn wandeln 

ea wird die erste klammer auf 
ln $a0 (ahift apace) gewandelt 
und die letzte klammer zu 
geloeacht (ayntaktisoh richtige 
klammorung der makro-parameter 
vorausgesetzt) 


emp «*a2 
bca rlop 
gtc 

obn 0,*47 
jmp putO 
cbe •■(•, 12 
pto 
Jmp 11 
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597012 
6900 
5990 
000013 
0010 
0020 
0030 
0040 
0060 
6060 
6070 
6000 
6090 
9000; 
9010; 
9020: 
9030rlop 
9040 


lda (I$aO 
ptc 

ato ma,0 
gto 

cb» O.putO 
obn "(",*+9 
inc ma 
bpi *+11 
obn ")",*+9 
doo mc 
bml rlop 
pto 
Jmp 13 

tranafer rest of line 


xfor 
omp #0 


1 . "C 

—> $a0 


;delete 
;laat ")" 


9060 


bne rlop 


0060; 





9070; 

fuogo null-byte an 


9000; 





9090 


lda 

»0 


9100put0 

Pto 



9110; 





9120; 

apoiohere koppeladroaao 

9130; 





9140endlino 

lod 

count 


9160 


mvd 

oount.outbuf 

9160; 





9170; 

ohock ob zolle aohon 

einmal 

9100; 

uobortrngon 



9190; 





9200 


lda 

outbuf+2 


9210 


cmp 

lnr 


9220 


bno 

oendline 


9230 


lda 

outbuf+3 


9240 


cmp 

lnr+1 


9260 


bne 

sendline 


9200 


rta 



9270aendline 

mvd 

outbuf+2 

lnr 

9280; 





9290; 

schicke 

zeile zur floppy 

9300; 





9310 


ldx 

ao 


9320aendlop 

lda 

outbuf,x 


9330 


jar 

ohrout 


9340 


inx 


;4 bytes 

9350 


cpx 

»5 

;always 

9360 


bcc 

sendlop 


9370 


cmp 

«0 


9300 


bne 

sendlop 


9390 


rts 



10000; 





10010; 

texte 





10020 ; — 

10030; 

10040atx 

10060 

10060 

10070 

10000 

10090 

10100 

10110 

10120ntx 

10130 
10140oltx 
10160 
10160o2tx 
10170o3tx 
10160o4tx 
10190mtx 
10200 
10210 


.byte $93 
.text "+•*- 
. text '*+-+ 
.text "+*■ 

. text "*■**■ 
. text 

• text "*■ 

■ text 

• text "**- 
.text 
•byte $93 
.text "** 
.text ''+*• 

. text 

■ text "++ 
•byte $93 
.text "*+• 
.text “<-*• 


10220ttx .text 

20000; 

20010 ; . 

20020; datenbereioh 

20030; . 

20040; 

20041count .da 2 

200421nr .da 2 

20043mo .da 1 

20050hqfn .da 21 

20060aqfn .da 21 

20070inohara .da 1 

2000011b .da 00 

20061outohara .da 1 

2OO021ob .da 00 

60000;. 

60010; 

60020; merge file »1; kernel Jump table 
60030; 

60040;. 

60050.global aoptr=$ffa5 
50060.global olout=$ffa0 
60070.global untelk=$ffub 
60000.global unll8ten=$ffao 
60090.global liaten=$ffbl 
60100.global talk=$ffb4 
50110.global BtatUB=$ffb7 
60120.global aotl£a=$£fba 
50130.global aetnam=$ffbd 
60140.global open=$ffc0 
50150.global oloae=$ffo3 
50160,global chkin=$ffc8 
60170.global okout=$ffo9 
50160.global olrch=9ffcc 
60190.global baain=$ffcf 


konvertierungaprogramm 
zum wandeln elnea hypra-aaa 
quelltextea in daa giga-aaa formet 
legen aie die dlakette mit dem 
hypra-aaa quelltext in daa laufwerk 
und geben aie den filenamen dea 
hypra-aaa quelltextea ein!*+- 
geben aie nun bitte den namen 
fuer den giga-aaa quelltext ein.** 

ea wird verauoht, daa file<-+ 
zum loaen zu oeffnen.**- 
daa oeffnen war erfolgreich." 
zum aohrelben zu oeffnen.**- 

der angegebene quelltext wird nun 
in einon giga-aaa quelltoxt mit**- 
dem namen " 
umgewandelt. 


50200.global chrout=$ffd2 
60210.global load=tf£d6 
60220.global aave=*£fd0 
50230.global aettlm=$£fdb 
50240.global gettlm=$ffde 
60250.global atopkoy=$ffel 
60260.global get=$ffe4 
60270.global olall=$f£e7 
50200.global udtim=$ffea 
50290.global acreen=$ffed 
50300.global curaor=$ff£0 

51000;...- 

61010; 

61020; morge file #2: low-level maoroa 
61030; 

61040;.—.-.. 

51050,maoro ato a.v 

61060 lda «v 

61070 ata a 

61000.endmooro 
61090.maoro dat a.dv 
51100 lda 0<(dv) 

61110 ata a 

61120 lda »>(dv> 

51130 ato o*l 

51140.endmaoro 
51160,maoro mov f.t 
61160 lda f 

61170 ata t 

51100.endmaoro 
61190.maoro mdi o,p 
51200 lda a 

51210 ato &p,y 

51220.endmaoro 
61230.maoro mid p,e 
51240 lda &p,y 

51260 ata a 

51260.endmaoro 
61270.maoro mvd f.t 

61200 lda f 

51290 ldx f*l 

51300 ata t 

51310 atx t+1 

61320.endmaoro 
61330.maoro obe v,a 
61340 omp »v 

51360 beq a 

51360.endmaoro 
51370.maoro obn v.a 
51300 omp Uv 

51390 bne a 

51400. endmaoro 
51410.maoro cnq a.v.b 
51420 lda a 

5143' 1 omp 0v 

51440 bne b 

51450.endmaoro 
51460.maoro eqb a.b 
61470 lda a 

51400 beq b 

61490.endmaoro 
51500.maoro nqb a.b 
51510 lda a 

51620 bne b 

51530.endmaoro 
61540.maoro ldw a 
51560 lda a 

61560 ldy a+1 

61670.endmaoro 
61600.maoro atw a 
61690 ata a 

51600 aty a*l 

61610.endmaoro 
51620.maoro icd a 
51630 ino a 

61640 bne end 

61650 Ino a+1 

61660end 
61670.endmaoro 
51600.maoro pah a 
61690 lda a 

51700 pha 

61710.endmaoro 
61720.maoro pll a 
51730 pla 

61740 ato a 

51760,endmaoro 

51760.maoro phx 

61770 txa 

61700 pha 

51790.endmaoro 

61600.maoro plx 

61010 pla 

51020 tax 

51030.endmaoro 

61640.maoro phy 

51060 tya 

51060 pha 

61070.endmaoro 

61000.maoro ply 

51690 pla 

61900 tay 

51910.endmaoro 

61920. maoro prn t 

51930 lda 0<(t> 

51940 ldy tl>(t) 

61950 dar $able 
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51960.endmacro 
51970.maoro out a 
61980 lda #a 

61990 Jar $ffd2 

62000.endmaoro 
62010.maoro mby nr.code 


.equate c=n 
.on o=0,620 
•byto ooda 
•equate c=o-l 

.goto 52030 


62020 
52030 
62040 
62060 
62060 

62070.ondmaoro 

66000;. 

65010; 

66020; morgo tllo »3: hlgh-level maoros 
65030; 

66040;. 

65050;********************************* 
56060; 

65070; relative load (rld) 

55080; . 

56090; ein flle wird rolatlv ln don 
65100; opoloher ab adreoae "adr" go- 
66110; laden, der namo doa flloo muaa 
55120; ab der adroaao "fllename" 

66130; lm Speicher atehon. 

55140; hinter dom lotsten Zeichen dea 
66160; namena muaa ein nullbyte folgen. 
66160; 

55170; benoetlgt daa morgo-fllo #1. 
55180; 

65190;***********»*****************»*** 
65200.macro rld fllename,adr 
56210 lda »1 ;lfn 

66220 ldx «8 ;dev 

56230 ldy #0 ;aa 

55240 Jar aetlfa 

66250; 

66260; laenge dea fllenamena beatimmen 
65270; 


65280 

ldx 

»0 

55290testchar 

lda 

fllename,x 

65300 

boq 

ootlen 

65310 

inx 


65320 

bne 

teatchar 

553303etlen 

txa 


65340 

ldx 

»<(filename) 

55350 

ldy 

#>(fllename) 

55360 

jar 

setnam 

55370 

lda 

ttO 

55380 

ldx 

#<(adr) 

56390 

ldy 

#>(adr) 

55400 

jmp 

load 


55410.endmacro 

55420;********************************* 
55430; 

55440; read fllename (rfn) 

55450; --- 

55460; ein fllename wird von der tasta- 
56470; tur elngeleaen und ab der adres- 
55480; ae "adr” in den apeloher abge- 
66490; legt. 

66500; hinter dem letzten Zeichen dea 
55510; namens wird ein nullbyte ange- 
65620; fuegt. 

55530; 

56540; benoetlgt merge-filea »1 und #2. 
55550; 

65660; ********************************* 

55570.macro rfn adr 

56580; 

55590; taatatur-fIle oeffnen 
56600; 

55610 
66620 
56830 
56640 
66650 
65660 
66670 
66680; 

55690; blldachirm-file oeffnen 
66700; 

66710 
55720 
65730 
65740 
55760 
66780 
55770 
55780; 

55790; prompt und input-zelle auageben 
65800; 

66810 
56820 

55B30prompt 
66840 
65860 
55860 

56870rovohar 
55680delohar 
56890; 

56900; maximal 16 Zeichen holen 
65910; 

55920getline ato ohara,0 
55930getohar jar get 

65940 boq *-3 

65950 and #$7f 

55960 cbn 20,ohockkey 

55970 ldx chera 

55960 beq getohar 


; lfn 
; dev 

; aa 


; lfn 
; dev 

; aa 


lda irt” 

ldx 110 
ldy #0 
Jar aetlfa 
Jar open 
ldx irt" 
Jar ohkin 


lda #"b" 
ldx 113 
ldy «0 
Jar aetlfa 
Jar open 
ldx ITb” 
jar ckout 


prn prompt 
Jmp getllno 
•text "fllename? 

•byte 32 
mby 16,$a4 
mby 16,$9d 

•byto $12,$20,$92,$9d,0 
.byto $a4,$9d,$9d,0 


65990 

cpx 

#16 

66000 

bac 

*+5 

66010 

deo 

chara 

66020 

deo 

chara 

66030 

prn 

delchar 

56040 

prn 

revchar 

66050 

jmp 

getchar 

66060chookkey 

cmp 

#32 

56070 

bcc 

nonprint 

56080 

ldx 

chara 

66090 

cpx 

#16 

66100 

bco 

**3 

56110 

dox 


56120 

ata 

adr,x 

66130 

Jar 

chrout 

68140 

ldx 

ohara 

66150 

cpx 

»16 

66160 

bCB 

*+5 

66170 

Ino 

chara 

66180 

cpx 

#16 

66190 

bca 

lastohar 

66200 

prn 

rovohar 

66210 

Jmp 

getohar 

662201aatchar 

out 

$9d 

66230 

Jmp 

getchar 

56240nonprint 

cmp 

»$d 

66260 

bno 

getohar 

58260 

ldx 

ohara 

56270 

cpx 

#16 

56280 

baa 

*+7 

58290 

out 

$a4 

66300 

lda 

#0 

56310 

ata 

adr,x 

56320; 



56330; flies achliessen 

56340; 



66350 

lda 

jrt" 

56360 

Jar 

cloae 

56370 

lda 

W"b" 

56380 

Jar 

cloae 

66390 

Jmp 

*+4 

66400chara 

. da 

1 


66440; 
56460; 
56460; 
66470; 
56480; 
66490; 
56500; 
56510; 
56520; 
565-f 
56540; 
56550; 
66660; 
56570; 
66580; 
56590; 


56410.endmacro 

56420;********************************* 

66430; 

get diak Status (gda) 


dieser makro holt den disk- 
atatus in don Speicherbereich, 
der durch adreaae "adr" spezi¬ 
fiziert lat. hinter daa letzte 
Zeichen wird ein nullbyte 
abgespeichert. 

ausserdem wird noch die nummer 
der fehlermeldung ln den akku 
geholt und daa zero-flag ge¬ 
setzt, falls diese 00 war. 

benoetlgt das merge-file #1. 


66600;********************************* 
56610.maoro gd3 adr 


56620 

ldx 

#0 

56630 

atx 

chara 

56640 

ato 

$ba, 6 

56650 

Jar 

talk 

68880 

ato 

$b9,$6f 

56670 

Jar 

$f f 96 

66680getchara 

Jar 

aoptr 

56690 

ldx 

chara 

66700 

ata 

adr.x 

66710 

ine 

chara 

66720 

cmp 

#$d 

66730 

bno 

gotchara 

56740 

Jar 

untalk 

56760 

ldx 

ohara 

66760 

lda 

#0 

68770 

ata 

adr, x 

66780 

ldx 

#0 

66790 

lda 

adr 

66800 

and 

»*1111 

56810 

tay 


66620 

php 


66630 

lda 

«0 

56640 

plp 


56860 

boq 

*♦8 

68860 

clc 


66870 

ade 

«10 

66880 

dey 


56890 

bne 

*-4 

56900 

ata 

ohara 

56910 

lda 

adr+1 

66920 

and 

»*1111 

68930 

ade 

chara 

66940 

omp 

#00 

66960 

Jmp 

*+4 

66960chara 

. da 

1 


56970. endmaoro 

66980;********************************* 
66990; 

67000; openfile (opf) 

67010; .— 

57020; 

67030; 

67040; 

57050; 

57060; 

67070; 

67080; 

57090; 


open <lfn>, <dev>, <aa>, 

"<(fnadr)>,<p/a>,<r/w>" 

ln abhaengigkelt von <aa> werden 
folgende Suffixe an den file- 
namon angehaengt: 


134 
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C64 


PROGRAMMIERHILFEN 


67100; <sa> = 

Os ",p,r" 

67450; 




67110; <sa> = 

l: -\p,w" 

57460 

lda Blfn 



67120; <aa> = 

2: ",3,r” 

57470 

ldx «dev 



67130; <aa> = 

3 r “ , a,w" 

67480 

ldy «aa 



67140; 


67490 

Jnr aetlffl 



57150 ; ********************************* 

57500 

pla 

; length 


57160,maoro oponfile lfn,dev,aa,fnadr 

67610 

ldx B<(fnadr) 



' 67170.lf oa=0 


67620 

ldy »(fnadr) 



57160.equate 

aufflx=praf 

67630 

Jar aetnam 



67190.ondlf 


67640 

Jar open 



57200.lf aa=l 


57660 

bcc openok 



57210.aquato 

aufflx.=pwaf 

57660 

prn oponerror 



57220.endlf 

57670 

rta 



57230,lf aa~2 


57500; 




67240,aquato 

auffix=oraf 

57600; holen dea dlalt-atatua. 

falle 


67250,ondlf 


57600; ungleich 0, auaatles! 



67260.lf ao=3 


676)0; 




57270.oquate 

aufflx=awof 

67620openok 

gda dabuf 



57260.ondlf 


57630 

php 



67290 

ldx «0 

57640 

prn dabuf 



67300 

lda fnadr,x 

57650 

pip 



67310 

baq *+6 

67660 

boq coritinue 



67320 

inx 

67670 

jmp clall 



67330 

bno *-B 

57680praf 

,toxt *' ,p,r" 



67340 

ldy B0 

67690pwaf 

.text ,p,w 



67360 

Ido aufflx.y 

57700araf 

.toxt ”,a,r" 



67360 

ata fnadr,x 

57710awaf 

.toxt ■, n, w' 



67370 

boq **G 

57720oponorror 

.text "open-bofohl meldet fehler!!!*" 


67360 

1 inx 

67730dabuf 

.da 40 



57390 

lny 

57740continue 




67400 

bno *-10 

57750.endmacro 




67410 

67420; 

phx ;longth 





57430; aetaon 
67440; aufruf 

der Parameter; 
dea open-befehls 

Listing 2. »HYPRA-KONVERT.SRC« (Schluß) 



Name 


hypra 

-cenvert 


OBOl 

1417 

09a9 


61 

20 

le 

ab 

4c 

59 

61 

c9 

cO 

Ob 61 

: 

fO 

03 

eB 

dO 

f 8 

aO 

00 

b9 

2f 












09b 1 






d8 


eO 

10 

b7 

0b69 



63 

9d 

32 

6b 

fO 

04 

eB 

b7 




















OBOl 

: 

Ob 

OB 

cl 

07 

9e 

32 

30 

36 

Oa 

09b9 

: 

90 

01 

ca 

9d 

32 

6b 

20 

d2 

d5 

Ob 71 

8 

cB 

dO 

f 4 

8a 

48 

a9 

02 

a2 

4f 

0B09 

: 

31 

00 

00 

00 

a9 

2c 

aO 

OB 

c9 

09c 1 

z 

ff 

ae 

dB 

61 

eO 

10 

bO 

03 

dl 

0b79 

Z 

OB 

aO 

01 

20 

ba 

ff 

6B 

a2 

aB 

OBI 1 

: 

85 

5f 

84 

60 

a9 

17 

aO 

14 

71 

09c9 


ee 

dB 

61 

eO 

Of 

bO 

Oa 

a9 

Ba 

ObSl 

: 

32 

aO 

6b 

20 

bd 

ff 

20 

cO 

cO 

OB 19 

• 

B5 

5a 

B4 

5b 

a9 

eb 

aO 

6b 

ab 

09dl 


4b 

aO 

61 

20 

le 

ab 

4c 

59 

ec 

0b89 

: 

ff 

90 

OB 

a9 

dd 

aO 

63 

20 

bB 

0B21 

z 

B5 

5B 

B4 

59 

20 

bf 

a3 

4c 

46 

09d9 

: 

61 

a9 

9d 

20 

d2 

ff. 

4c 

59 

Bb 

0b91 

: 

le 

ab 

60 

a2 

00 

8e 

ba 

63 

17 

0829 


00 

60 

00 

20 

b7 

ff 

a9 

de 

3c 

09el 


61 

c9 

Od 

dO 

9f 

ae 

dB 

61 

la 

0b99 

: 

a9 

OB 

B5 

ba 

20 

b4 

ft 

a9 

fa 

0831 

3 

aO 

68 

20 

le 

ab 

a9 

54 

a 2 

70 

09e9 


eO 

10 

bO 

05 

a9 

a4 

20 

d2 

84 

Obal 


6f 

85 

b9 

20 

96 

ff 

20 

a5 

7a 

0B39 

; 

00 

aO 

00 

20 

ba 

ff 

20 

cO 

3b 

09f 1 


ff 

a9 00 9d 32 6b .4 

46 

0ba9 


ff 

ae 

ba 

63 

9d 

fb 

63 

ee 

3f 

0841 


f f 

a2 

54 

20 

c6 

ff 

a9 

42 

42 

09f 9 


20 

c3 

ff 

a9 

42 

20 

c3 

ff 

64 

Obbl 


ba 

63 

c9 

Od 

dO 

fO 

20 

ab 

9d 

0B49 

c 

a2 

03 

aO 

00 

20 

ba 

ff 

20 

ad 

OaOl 

: 

4c 

d9 

61 

00 

a9 

ld 

aO 

6a 

6d 

0bb9 


ff 

ae 

ba 

63 

a9 

00 

9d 

fb 

33 

0B51 

: 

cO 

ff 

a2 

42 

20 

c9 

ff 

a9 

a5 

0a09 


20 

le 

ab 

a9 

ld 

aO 

6b 

20 

ld 

Obel 


63 

a 2 

00 

ad 

fb 

63 

29 

Of 

c9 

0BS9 

: 

36 

aO 

60 

20 

le 

ab 

4c 

69 

3f 

Oal 1 


le 

ab 

a9 

43 

aO 

6a 

20 

le 

f 2 

0bc9 

: 

aB 

OB 

a9 

00 

28 

fO 

06 

1B 

32 

0861 

! 

60 

46 

49 

4c 

45 

4e 

41 

4d 

27 

0al9 

: 

ab 

a 2 

00 

bd 

ld 

6b 

f 0 

03 

c4 

Obdl 

: 

69 

Oa 

BB 

dO 

f a 

Bd 

ba 

63 

49 

0B69 

S 

45 

3f 

20 

a4 

a4 

a4 

a4 

a4 

36 

0a21 


eB 

dO 

fS 

aO 

00 

b9 

B7 

62 

74 

Übd9 


ad 

fc 

63 

29 

Of 

6d 

ba 

63 

10 

0B71 


a4 

a4 

a4 

a4 

a4 

a4 

a4 

a4 

70 

0a29 

8 

9d 

ld 

6b 

fO 

04 

bB 

cB 

dO 

9a 

Obel 

8 

c9 

00 

4c 

bb 

63 

00 

OB 

a9 

df 

0879 

3 

a4 

a4 

a4 

9d 

9d 

9d 

9d 

9d 

c5 

Oa31 

: 

f 4 

8a 

48 

a9 

01 

a2 

OB 

aO 

30 

Obe9 

8 

fb 

aO 

63 

20 

le 

ab 

2B 

fO 

d3 

0881 


9d 

9d 

9d 

9d 

9d 

9d 

9d 

9d 

BO 

0a39 

z 

00 

20 

ba 

ff 

68 

a2 

ld 

aO 

49 

Obf 1 


5d 

4c 

e7 

ff 

2c 

50 

2c 

52 

09 

0BB9 

: 

9d 

9d 

9d 

12 

20 

92 

9d 

00 

ac 

0a41 

3 

6b 

20 

bd 

ff 

20 

cO 

ff 

90 

55 

Obf 9 

8 

00 

2c 

50 

2c 

57 

00 

2c 

53 

76 

0891 

: 

a4 

9d 

9d 

00 

a9 

00 

8d 

ed 

1B 

0a49 


OB 

a9 

9b 

aO 

62 

20 

le 

ab 

18 

OcOl 

z 

2c 

52 

00 

2c 

53 

2 c 

57 

00 

dO 

0899 

i 

60 

20 

b4 

ff 

fO 

fb 

29 

7f 

d5 

0a51 

z 

60 

a2 

00 

Be 

78 

62 

a9 

OB 

26 

0c09 

8 

4f 

50 

45 

4e 

2d 

42 

45 

46 

22 

08 a 1 

: 

c9 

14 

dO 

20 

ae 

ed 

60 

fO 

6a 

0a59 

: 

85 

ba 

20 

b4 

ff 

a9 

6f 

B5 

fO 

Ocll 

8 

45 

48 

4c 

20 

4d 

45 

4c 

44 

4a 

0Ba9 

z 

fO 

eO 

10 

90 

03 

ce 

ed 

60 

3f 

0a61 

: 

b9 

20 

96 

ff 

20 

a5 

ff 

ae 

5c 

0cl9 

8 

45 

54 

20 

46 

45 

4B 

4c 

45 

ac 

08b 1 

: 

ce 

ed 

60 

a9 

65 

aO 

60 

20 

eO 

0a69 

z 

7B 

62 

9d 

b9 

62 

ee 

78 

62 

f 5 

Oc21 

8 

52 

21 

21 

21 

Od 

00 

00 

00 

41 

08b9 

z 

le 

ab 

a9 

60 

aO 

60 

20 

le 

ed 

Oa71 

z 

c9 

Od 

dO 

fO 

20 

ab 

ff 

ae 

dö 

0c29 

8 

00 

00 

00 

00 

00 

00 

00 

00 

2 a 

OBcl 

: 

ab 

4c 

6e 

60 

c9 

20 

90 

2 e 

76 

0a79 

z 

78 

62 

a9 

00 

9d 

b9 

62 

a2 

03 

Oc31 

8 

00 

00 

00 

00 

00 

00 

oo 

00 

32 

0Bc9 

z 

ae 

ed 

60 

SO 

10 

90 

01 

ca 

cl 

OaOl 

8 

00 

ad 

b9 

62 

29 

Of 

aB 

OB 

dO 

0c39 

8 

00 

00 

00 

00 

00 

00 

00 

00 

3a 

08dl 

z 

9d 

ld 

6b 

20 

d2 

ff 

ae 

ed 

9f 

0aB9 


a9 

00 

20 

fO 

06 

1B 

69 

Oa 

35 

Oc41 

3 

00 

00 

00 

00 

00 

00 

00 

00 

42 

0Bd9 

3 

60 

eO 

10 

bO 

03 

ee 

ed 

60 

e4 

0a91 

: 

88 

dO 

fa 

Bd 

78 

62 

ad 

ba 

l)B 

0c49 

8 

00 

00 

00 

00 

00 

00 

a9 

63 

b7 

OBel 


eO 

Of 

bO 

Oa 

a9 

60 

aO 

60 

97 

0a99 

z 

62 

29 

Of 

6d 

70 

62 

c9 

00 

c3 

0c51 

3 

aO 

6a 

20 

le 

ab 

a9 

42 

aO 

45 

0Be9 

: 

20 

1b 

ab 

4c 

6e 

60 

a9 

9d 

58 

Oaal 

z 

4c 

79 

62 

00 

00 

a9 

b9 

aO 

30 

0c59 

1 

64 

20 

le 

ab 

a9 

00 

B5 

c6 

09 

OBf 1 

a 

20 

d2 

ff 

4c 

6e 

60 

c9 

Od 

2f 

0aa9 

z 

62 

20 

le 

ab 

20 

fO 

5d 

4c 

30 

0c61 

3 

a5 

c6 

fO 

fc 

ad 

77 

02 

c9 

77 

OBf 9 

z 

dO 

9f 

ae 

ed 

60 

eO 

10 

bO 

bl 

Oabl 

: 

e7 

ff 

2c 

50 

2c 

52 

00 

2 c 

5b 

0c69 

8 

Od 

dO 

fl 

fO 

17 

Od 

Od 

20 

c7 

0901 

: 

05 

a9 

a4 

20 

d2 

ff 

a9 

00 

de 

0ab9 

: 

50 

2 c 

57 

00 

2 c 

53 

2c 

52 

aB 

0c71 

8 

20 

20 

3c 

52 

45 

54 

55 

52 

ec 

0909 

t 

9d 

ld 

6b 

a9 

54 

20 

c3 

ff 

9a 

Oac 1 

8 

00 

2c 

53 

2 c 

57 

00 

4f 

50 

85 

0c79 

8 

4e 

3b 

20 

44 

52 

55 

45 

43 

e2 

0911 

8 

a9 

42 

20 

c3 

ff 

4c 

ee 

60 

3b 

0ac9 

: 

45 

4« 

2d 

42 

45 

46 

45 

48 

f 5 

0 c 81 

8 

4b 

45 

4b 

00 

a9 

00 

85 

c6 

41 

0919 

Z 

00 

a9 

dl 

aO 

69 

20 

lB 

ab 

de 

Oadl 

8 

4c 

20 

4d 

45 

4c 

44 

45 

54 

ce 

0c89 

8 

a9 

a9 

aO 

6a 

20 

le 

ab 

a9 

71 

0921 

: 

a9 

54 

a2 

00 

aO 

00 

20 

ba 

9d 

Oad9 

z 

20 

46 

45 

48 

4c 

45 

52 

21 

fi 

0c91 

8 

32 

aO 

6b 

20 

le 

ab 

a9 

04 

eO 

0929 

: 

ff 

20 

cO 

ff 

a2 

54 

20 

c6 

43 

Oael 

! 

21 

21 

Od 

00 

00 

00 

00 

00 

d6 

0c99 

8 

aO 

6b 

20 

le 

ab 

l9 

01 

Bd 

e2 

0931 

: 

ff 

a9 

42 

a2 

03 

aO 

00 

20 

5f 

0ae9 

8 

00 

00 

00 

00 

00 

00 

00 

00 

ea 

Ocal 

3 

1B 

6b 

a9 

08 

Bd 

19 

6b 

a9 

7d 

0939 

s 

ba 

ff 

20 

cO 

ff 

a2 

42 

20 

71 

Oaf 1 

8 

00 

00 

00 

00 

00 

00 

00 

00 

f 2 

Oca9 

I 

ff 

Bd 

la 

6b 

Bd 

lb 

6b 

a 2 

07 

0941 

: 

c9 

tf 

a9 

21 

aO 

61 

20 

le 

6a 

Oaf 9 

: 

00 

00 

00 

00 

00 

00 

00 

00 

fa 

Ocbi 

8 

02 

20 

c9 

ff 

a9 

01 

20 

d2 

fe 

0949 

: 

ab 

4c 

54 

61 

46 

49 

4c 

45 

c6 

ObOl 

8 
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Listing 3. (Schluß) 


10 ;********************************* 
li; 

12; bildschirmspeicher verschieben 

13; --—-- 

14; 

15; giga-ass hilfs-routine 
16; 

17; der bildschirmspeicher wird 
18; von $0400-$07ff nach SccOO- 
19; Scfff verschoben. 

20 ; 

21 ; danach ist der quelltextspeicher 
22; in $0400-$8000 (31 k). 

23' 

24 ;********************************* 
100.object "init 31 k,p,w" 

110.base $2c3 
120.global p=$fc 
130; 

140; 1. rom-zeichenaatz in ram 
150; umkopieren ($d000-$dfff) 

160; 


170start ldy 

80 

180 

sty 

P 

190 

lda 

8$d0 

200 

sta 

P+1 

210 

sei 


2201oop 

lda 

8$33 

230 

sta 

1 

240 

lda 

&p,y 

250 

sty 

1 

260 

sta 

&p.y 

270 

ino 

p 

280 

bne 

loop 

290 

ino 

P*1 

300 

ldx 

pH 

310 

cpx 

8$e0 

320 

bcc 

loop 

330 

lda 

8$37 

340 

sta 

1 

350; 



360; 2. 

alten bildaohirm-ram freigoban 

370; 



380 

lda 

84 

380 

sta 

$282 

400; 



410; 3. 

bildschirmspeicher auf SccOO 

420; 



430 

lda 

*dd00 

440 

and 1 

8X11111100 

450 

sta 

*dd00 

460 

lda 

8$36 

470 

sta 

$d018 

480 

lda 

8$cc 

490 

sta 

$288 

500; 

510; 4. 
520; 

glga-ass 

re-lnitialisleren 

530 

Jmp 

($8009) 


540; 

550; 5. auto-start adresao setzen 
560; 

570 .word 0,Start 

Listing 4. »SCOURCE-INIT« ver¬ 
schiebt den Bildschirm nach $CC00 
und schafft so ein weiteres KByte 
Speicherplatz für Quellcode 


33 ® 
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C64 


PROGRAMMIERHILFEN 


Paradoxon-Basic neue Befehle 
und mehr Speicherplatz 


Durch die Verwendung von Basic-Erweiterungen 
wird der Arbeitsspeicher meist eingeschränkt. 
Mit Paradoxon-Basic ist das anders. Neben 14 
neuen Befehlen stehen nun 12 KByte RAM mehr 
für die Basic-Programmierung zur Verfügung. 

D arauf haben schon viele gewartet: Eine Programmier¬ 
hilfe, die vor allem das Schreiben umfangreicher Pro¬ 
gramme erleichtert und bereits existierende Befehle 
verbessert, um Ihnen umständliche Programmiertricks zu 
ersparen. 

Der Programmname »Paradaxon-Basic« (Listing 1) 
kommt daher, daß es paradox erscheint, wenn sich Basic 
plus Erweiterung im RAM unter dem Kernel befinden, das 
heißt, gleicher Adreßraum, aber verschiedene Ebenen. 
Normalerweise ist im C64 der Bereich von $0800 bis $9FFF 
als Basic-Speicher vorgesehen. Im Bereich von $A000 bis 
$FFFF bleiben so jedoch 24 KByte für Basic ungenutzt, da 
an diesen Stellen der Basic-Interpreter, der Input-Output- 
Bereich und das Kernel eingeblendet werden. 

Der erweiterte Basic-Speicherplatz wird nun dadurch 
gewonnen, daß der Basic-Interpreter unter den Input- 


Output-Bereich und das Kernel verschoben wird. Dabei 
bleiben noch rund 3 KByte frei, die für die Befehlserweite¬ 
rung und die neuen Umschaltroutinen genutzt werden. 


12 KByte mehr 


Folgende Speicherbereiche müssen immer gleichzeitig 
zur Verfügung stehen: 

1. Basic-RAM + Basic-Interpreter, oder 

2. Basic-RAM + I/O-Bereich + Kernel. 

Da der I/O-Bereich nicht verschoben werden kann, 
diente er als Ansatzpunkt für die Speicheraufteilung. Der 
Basic-Interpreter mußte daher unter den I/O-Bereich und 
das Kernel: 

1. Basic-RAM plus Basic-Interpreter $0800 bis $CFFF 
$D000 bis $F4C0 

2. Basic-RAM plus I/O-Bereich plus Kernel $0800 bis 
$CFFF, $D000 bis $DFFF und $E000 bis $FFFF. In Bild 1 
haben wir dies noch einmal grafisch veranschaulicht. 

Da die Kernel-Routinen für die Arbeit des Basic- 
Interpreters unverzichtbar sind, waren Umschaltroutinen 
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Bild 1. Die neue Speicheraufteilung von Paradoxon Basic: 
Der Basic-Interpreter wurde verschoben. 


notwendig, um zwischen den beiden Speicherkonfiguratio¬ 
nen hin- und herzuschalten. Insgesamt werden vier 
Umschaltroutinen benötigt: 

- die Umschaltung zur Nutzung von Kernel-Routinen, 

- die Interrupt-Behandlung, 

- die NMI-Behandlung, 

- die Reset-Behandlung. 

Generell gilt: Die Umschaltung zwischen den beiden 
Speicheraufteilungen darf nur von einem Speicherbereich 
aus erfolgen, der selbst außerhalb des betroffenen Berei¬ 
ches liegt, also beispielsweise aus ungenutzten Speicher¬ 
stellen der ersten Pages. Die Speicherstellen $02A7 bis 
$02FF sind ungenutzt und können dafür verwendet wer¬ 
den. Alle vier Umschaltroutinen arbeiten nach dem glei¬ 
chen Prinzip: Sie legen eine Rücksprungadresse auf den 
Stack, schalten auf das Kernel um und starten die benötigte 
Routine. Der Rücksprung erfolgt nun auf die Umschaltrou¬ 
tine, die wieder ins RAM verzweigt. Der NMI wird in das 
RAM umgeleitet, wo auf <RUN/STOP> bzw. <CTRL 
CBM RESTORE> getestet wird, um gegebenenfalls einen 
Warmstart oder einen Reset auszuführen. 

Die NMI- oder Reset-Routinen im Kernel können wegen 
der Basic-Verschiebung nicht mehr verwendet werden, 
denn sie würden abstürzen. Da hinter den Umschaltrouti¬ 
nen und dem Basic-Interpreter noch etwa 2 KByte Spei¬ 
cherplatz überbleiben, wurde hier die neue Befehlserweite¬ 
rung eingebaut. Sie verbessert auch vorhandene Befehle, 
enthält Diskettenkommandos, Programmierhilfen und eine 
Funktionstastenbelegung. Zusammen füllen diese Befehle 
den gesamten verbliebenen Speicher bis auf ein paar Byte 
aus. 

So wird der gesamte Speicher des C64 optimal genutzt 
und die Einschaltmeldung verkündet: 

51199 BASIC BYTES FREE 

Die neue Speicheraufteilung finden Sie in Tabelle 1 noch 
einmal sehr detailliert. Wen die Funktionsweise des Pro¬ 
gramms noch genauer interessiert, der findet auf der 
Programmservice-Diskette zu dieser Ausgabe ein ausführ¬ 
lich dokumentiertes Sourcecode-Listing (4 Vizawrite- 
Files), das für Einsteiger ebenso interessant sein dürfte wie 
für Profis. 

Viele neue Befehle 


Paradoxon-Basic ist mit einem Basic-Lader ausgestattet 
und wird nach LOAD "PARADAXON-BASIC'',8 und RUN 
installiert. Nach zirka sieben Sekunden ist das Programm 
generiert und gibt seine Einschaltmeldung aus. 

Neben dem erweiterten Basic-Speicherplatz von 50 
KByte hat man eine Befehlserweiterung zur Verfügung, die 
sich in mehrere Teile gliedert: 


Die LOAD- und SAVE-Befehle verwenden automatisch 
die Sekundäradresse 1. Das heißt, es wird - sofern nicht 
anders angegeben - absolut geladen (LOAD" NAME " ,8,1). 

Durch Drücken von <CTRL CBM RESTORE> wird ein 
Reset ausgeführt, durch den Paradoxon-Basic neu gestar¬ 
tet wird. 

Die Funktionstasten <F1> bis <F8> können jeweils 
mit bis zu 31 Zeichen Text und Steuerzeichen belegt wer¬ 
den. Um sie zu programmieren, drückt man <CTRL> 
zusammen mit der entsprechenden Funktionstaste. Dar¬ 
aufhin verdoppelt sich die Blinkgeschwindigkeit des Cur¬ 
sors. Alle Tastatureingaben werden jetzt in den Speicher 
übernommen. Die Eingabe wird durch Drücken einer belie¬ 
bigen Funktionstaste oder bei Überschreitung der maxima¬ 
len Länge beendet. 


Programmierbarer Reset 


Nach jedem Reset wird die Funktion der Taste < F8 > aus¬ 
geführt. Es ist also beispielsweise möglich, automatisch 
ein weiteres Programm in den Computer zu laden und zu 
starten, indem die entsprechenden Befehle für »F8« einge¬ 
geben werden. Sie können auf diese Weise Paradoxon- 
Basic auch direkt in eigene Programme einbauen. 


0000 

- 07FF 

erste Pages und Bildschirm 

02A7 

- 02FF 

Umschaltroutinen 

0800 

- CFFF 

BASIC-Speicherbereich 

D000 

- FFFF 

I/O-Bereich und Kernal 

D000 

- F4BF 

BASIC-Interpreter 

F4C0 

- F5BA 

eingebundene Befehle 

3B 

- F6D0 

Diskettenbefehle 

F6D2 

- FBFF 

zusätzliche Befehle 

FC00 

- FCFF 

Funktionstasten-Belegung 

FD00 

- FDD6 

Funktionstasten-Routinen 

FDD7 

- FFFF 

Umschaltroutinen 


Tabelle 1. Die Speicheraufteilung von Paradoxon-Basic 
unterscheidet sich deutlich von der Normalkonfiguration 


Einige bereits vorhandene Basic-Befehle sind verbes¬ 
sert worden: 

GOTOX 

So ist es möglich, nach den Befehlen GOTO und GOSUB 
einen beliebigen numerischen Ausdruck (Variable oder 
Formel) anzugeben. Zum Beispiel: 

GOTO (A*2)/B. 

An der daraus berechneten Zeilennummer wird das Pro¬ 
gramm dann fortgesetzt. 

Um bei einem <RENUMBER> Fehler zu vermeiden, 
sollte der zu berechnende Ausdruck jedoch nicht mit einer 
Zahl beginnen. Falsch wäre beispielsweise: GOTO 2*A. 
Richtig muß es heißen: GOTO A*2. 

RESTORE X 

Der Zeiger auf das nächste DATA-Element läßt sich auf 
jede Zeilennummer (X) einstellen, die über einen numeri¬ 
schen Ausdruck vorgegeben wird. Existiert die Zeilennum¬ 
mer nicht, werden die DATAs aus der nächsten Programm¬ 
zeile gelesen. 

PRINT(X,Y) 

Nach dem PRINT-Befehl kann man in Klammern die 
Bildschirmposition angeben, an der der Ausdruck stattfin¬ 
den soll. Die linke obere Ecke des Bildschirms ist die Posi¬ 
tion (0,0). Die Maximalwerte für die Cursorposition sind also 
39 und 24. Achtung: Ein numerischer Ausdruck nach 
PRINT darf nicht mit »(« beginnen ! 
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DIM X(N) 

Man kann ein Array beliebig oft neu dimensionieren. Das 
alte Array wird dabei gelöscht und das neue generiert. Wird 
ein Array nicht mehr gebraucht, wird es mit (0) dimensio¬ 
niert; es belegt dann fast keinen Speicherplatz mehr. 

DEFF1= bis DEFF8= 

Die Funktionstasten lassen sich auch vom Programm 
aus definieren, wobei ein beliebiger String-Ausdruck Ver¬ 
wendung findet. Es lassen sich sogar mehr als 31 Zeichen 
pro Taste speichern, wenn man dafür eine andere Taste 
nicht belegt. 


Allgemeine Änderungen 

1. Paradoxon-Basic laden (nicht starten I) 

2. POKE 5333, Rahmenfarbe 
POKE 5338, Hintergrundfarbe 
POKE 5343, Zeichenfarbe 

POKE 2755, Geräteadresse für LOAD ... 

POKE 2758, Sekundäradresse für LOAD ... 

POKE 3033, Geräteadresse für Diskettenbefehle 
POKE 5297, Nummer der Funktionstaste, die nach 
einem RESET ausgeführt wird (1 bis 8) 

POKE 5301, Wert dieser Funktionstaste für: 

F1=0, F3=32, F5=64, F7=96, 

F2=128, F4=160, F6=192, F8=224 

3. Paradoxon-Basic speichern (unter anderem Namen!) 

Funktionstastenbelegung 

1. Paradoxon-Basic laden und starten 

2. Funktionstasten nach Belieben programmieren 

3. Paradoxon-Basic erneut laden 

4. Gegebenenfalls obige allgemeine Änderungen durchführen 

5. FOR I = 0 TO 255 

POKE 4616 + I, PEEK (64512 + I) 

NEXTI 

in einer Direktmodus-Zeile ausführen. 

6. Paradoxon-Basic speichern (hinter anderem Namen!) 

Arbeiten mit dem 64'er DOS 

1. Original-Kernel einsetzen 

2. Paradoxon-Basic laden 

3. FOR I = 0 TO 1280:POKE 5632 + I, PEEK (57344 + 
l):NEXT I in einer Direktmodus-Zeile ausführen und 
POKE 2468, 22 

POKE 2472, 27 
POKE 45, 192 
POKE 46, 26 
CLR 

eingeben. 

4. Paradoxon-Basic speichern (anderer Name!) 

5. 64’er DOS wieder einbauen 


Tabelle 2. Tips für die Anpassung an eigene Bedürfnisse 


Diskettenbefehle können sowohl im Direkt-Modus als 
auch im Programm-Modus verwendet werden. Sie werden 
alle mit dem Symbol »@« und der Gerätenummer eingelei¬ 
tet. Wird keine Nummer angegeben, so bezieht sich der 
Befehl auf die Geräteadresse 8. Es ist allerdings darauf zu 
achten, daß kein File mit der logischen Filenummer 15 
geöffnet ist. 

Der Fehlerkanal der Floppy wird ausgelesen und auf 
dem Bildschirm angezeigt. 

@$: Das Inhaltsverzeichnis einer Diskette wird auf dem 
Bildschirm ausgegeben. Dabei kann die Ausgabe durch 
< RUN/STOP > unterbrochen oder durch Drücken einer 
beliebigen Taste angehalten werden. 

Außerdem kann ein Diskettenbefehl zur Floppy gesendet 
werden, indem man ihn hinter »@« anhängt. 

Die folgenden Befehle können Sie nur im Direktmodus 
verwenden: 


MERGE "Filename" 

Ein Programm wird hinter das bereits im Speicher ste¬ 
hende Programm geladen und mit diesem zu einem einzi¬ 
gen größeren Programm verbunden. Das im Speicher ste¬ 
hende Programm muß kleinere Zeilennummern als das 
nachgeladene haben, da sonst kein lauffähiges Programm 
entsteht. Für die Gerätenummer gilt das gleiche wie bei 
LOAD. 

DELETE Anfangszeile - Endzeile 

Der angegebene Bereich eines im Speicher stehenden 
Programms wird gelöscht. Falls Sie ein ganzes Programm 
löschen wollen, sollten Sie jedoch »NEW« verwenden. 
DELETE -70 löscht vom Anfang bis Zeile 70 
DELETE 80- löscht von Zeile 80 bis Ende 

OLD 

Ein durch NEW oder Reset gelöschtes Programm wird 
wieder hergestellt. 

Ein mit DELETE gelöschter Bereich beziehungsweise 
gelöschtes Programm kann leider nicht zurückgeholt wer¬ 
den, da DELETE Speicherbereiche umkopiert und somit 
endgültig löscht. 

RENUMBER Startzeile, Abstand 

Die Zeilennummern eines Programms werden entspre¬ 
chend den Angaben neu numeriert. Dabei werden auch 
alle Adressen hinter GOTO, GOSUB, THEN, RESTORE, 
ON GOTO und ON GOSUB aktualisiert. Werden keine 
Angaben zur Einteilung gemacht, so wird RENUMBER 
100,10 angenommen. 

AUTO Startzeile, Abstand 

Automatische Zeilennumerierung bei der Programmein¬ 
gabe. Werden keine weiteren Werte angegeben, wird mit 
Zeile 300 begonnen, und in Zehnerschritten weitergezählt. 
Man kann während der Eingabe eine bereits eingegebene 
Zeile korrigieren, ohne die AUTO-Funktion abzubrechen, 
da die nächste Zeilennummer stets aus der zuletzt ausge¬ 
gebenen berechnet wird. Unterbrochen wird die AUTO- 
Funktion, wenn nach einer Zeilennummer < RETURN > 
eingegeben wird. 

VAR 

Dieser Befehl gibt alle bisherigen Variablen in der Rei¬ 
henfolge ihrer Definition auf dem Bildschirm aus. Die Aus¬ 
gabe kann mit < RUN/STOP > unterbrochen beziehungs¬ 
weise durch Drücken einer beliebigen Taste angehalten 
werden. Mit OPEN 1,4:CMD 1:VAR wird die Ausgabe auf 
den Drucker geleitet. 

ARRAY 

listet sämtliche Arrays mit ihren Inhalten auf. Arrays mit 
mehr als sieben Dimensionen werden nicht ausgegeben. 
Falls man solche Arrays benötigt, sollten diese ganz am 
Ende definiert werden, da sonst die folgenden Arrays eben¬ 
falls nicht ausgegeben werden. 

FIND Ausdruck 

sucht einen beliebigen Ausdruck in einem Programm und 
gibt die entsprechende Programmzeile aus. Will man einen 
String suchen, ist es zweckmäßig, auf die Anführungszei¬ 
chen am Ende zu verzichten. Zu suchende Basic-Befehle 
dürfen nicht abgekürzt werden. 

Änderung der Standard-Werte: 

In Tabelle 2 finden Sie noch einige wichtige Adressen zur 
Anpassung des Programms an individuelle Bedürfnisse. 
So ist es durchaus möglich, Paradoxon-Basic zusammen 
mit dem 64’er DOS, das in Ausgabe 3/86 und 4/86 veröffent¬ 
licht wurde, zu betreiben. Neue Befehle und eine schnelle 
Floppystation bilden so eine gutes Gespann. 

(Robert Bartz/Stefan Willmeroth) 



140 


SONDERHEFT 21 












C64 


PROGRAMMIERHILFEN 


Die Modit der Rekursion 


Manche Programmprojekte lassen sich mit dem 
Basic 2.0 des C64 nur schwer durchführen. 
»Rekursiv-Basic« heißt das Zauberwort, das bis 
zu 2454 Verschachtelungen von sich selbst aufru¬ 
fenden Prozeduren erlaubt. Auch strukturiertes 
Programmieren wird auf diese Weise unterstützt. 

U m mit »Rekursiv-Basic« zu arbeiten, müssen Sie 
Listing 1 mit dem MSE abtippen und speichern. Das 
nur sieben Blöcke lange Programm wird mit RUN 
gestartet. Die weiteren Listings sind Demonstrations- und 
Hilfsprogramme, die Ihnen die erstaunlichen Fähigkeiten 
dieser Basic-Erweiterung aufzeigen. Sie werden später 
noch genauer erläutert. 

Mit Rekursiv-Basic sind auch eigene Basic- 
Erweiterungen in Form von namentlich aufrufbaren Proze¬ 
duren (Unterprogramme) ohne weiteres in Basic realisier¬ 
bar. Durch die Definition von lokalen Variablen, die nur in 
dem Unterprogramm gültig sind, stören sich das Hauptpro¬ 
gramm und die Prozeduren nicht. Die Variablen werden 
unter dem Kernel-ROM zwischengespeichert und verbrau¬ 
chen somit keinen Basic-Speicher. Um auch umfangreiche 
Rekursionen (eine rekursive Prozedur ist eine Prozedur, die 
sich selbst aufruft) durchführen zu können, wurde der 
Stack, wo die Rücksprungadressen der Prozeduren abge¬ 
legt werden, stark vergößert, so daß jetzt maximal 2454 
Prozedur-Verschachtelungen auftreten können. Die Ver¬ 
größerung des Stack führt auch dazu, daß bis zu 681 FOR- 
NEXT-Schleifen ineinander verschachtelt werden können. 
Auch der Stack verbraucht keinen Basic-Speicherplatz. 

Gut strukturierte Programme 


Nach dem Start von Rekursiv-Basic mit RUN stehen die 
neuen Befehle zur Verfügung. Sie sind in Tabelle 1 aufge¬ 
führt. Falls Sie mit den veschiedenen Klammern in den 
Befehlsbezeichnungen Probleme haben sollten, finden Sie 
in Tabelle 2 eine kurze Erläuterung dieser Zeichen. 

EPROC »Name« [»Parameterliste«] 

Der PROC-Befehl deklariert eine Prozedur mit dem 
Namen »Name«, dem optional eine Parameterliste folgen 


Befehl 

Erläuterung 

EPROC »Name« [»Parameterliste«) 

Prozedur-Deklaration 

EVAR »Parameterliste« 

Lokale Variablen definieren 

EEND 

Prozedur-Ende 

l»Name« [»Parameter«] 

Prozedur-Aufruf 


Tabelle 1. Die Prozedur-Befehle von Rekursiv-Basic 


Parameter 

Bedeutung 

»Name« 

Steht für einen beliebigen Nameh, der bis auf 
Leerzeichen alle Zeichen enthalten darf. 

»Parameterliste« 

Eine Aufzählung von Variablen, die mit einem 
Komma voneinander getrennt werden müssen. 

(...) 

Alle Ausdrücke, die in eckigen Klammern ([...]) 
stehen, sind optional. Der Ausdruck muß nicht 
unbedingt folgen, dies hängt von der Art der Pro¬ 
zedur ab. 


Tabelle 2. Erklärung der in Tabelle 1 verwendeten Para¬ 
meter zur Handhabung von Prozeduren 


kann. Zwischen PROC und dem Namen muß ein Leerzei¬ 
chen gesetzt werden; falls eine Parameterliste folgt, muß 
diese ebenfalls durch ein Leerzeichen vom Namen 
getrennt werden. Einzelne Parameter werden durch Kom¬ 
mata getrennt. 

Wichtig: PROC darf nur am Anfang einer Zeile stehen 
und nie direkt angesprungen oder ausgeführt werden, das 
heißt, daß Prozeduren nur durch den Prozedurenaufruf- 
Befehl (siehe unter 4.) ausgeführt werden können. Ein Bei¬ 
spiel dazu: 

10 EPROC Test 
20 EEND 

Nach der Eingabe von RUN käme sofort die Fehlermel¬ 
dung »CANT EXECUTE PROC«. Richtig muß es lauten: 

10 GOTO 100 
20 EPROC Test 
30 EEND 

100 REM Hier kann das Programm folgen 

Übergabe von Parametern an Prozeduren 

Die Paramterliste besteht aus einer Auflistung von Varia¬ 
blen, die vom Hauptprogramm oder einer übergeordneten 
Prozedur übergeben werden sollen. Die Variablen werden, 
wie in allen entsprechenden Befehlen von Rekursiv-Basic 
durch Kommata getrennt. Dabei kann die Tabelle sich aus 
allen Variablentypen (Fließkomma, Integer, String) zusam¬ 
mensetzen. Beispiel: 

1000 EPROC Test A,B#,C$ 

1010 ’ ivlD 

Bei dem Aufruf dieser Prozedur werden die Variablen A, 
B% und C$ (sofern sie schon existieren) auf einen speziel¬ 
len Stack (Heap) gelegt und erhalten dann anschließend 
die Werte, die in der Parameterliste des Aufrufs stehen. 
Wichtig ist hierbei, daß die Variablentypen der Parameter 
im Prozedur-Aufruf mit den Variablentypen in der Parame¬ 
terliste des PROC-Befehls übereinstimmen. Beispiel: 

5 A=1.2 :C$= "C-64" 

10 GOTO 100 

20 EPROC Test A, B%, C$ 

30 PRINT A; B%; C$ 

40 EEND 

100 ITest 3-14, 10, "Hallo" 

110 END 


Steckbrief Rekursiv-Basic 


- Prozedur-Aufrufe mit Parameterübergabe 

- Lokale und globale Variablen 

- Große Verschachtelungstiefen und Rekursion werden möglich 

- Prozeduren können als Funktionsersatz dienen (Fakultät etc.) 

- Prozeduren sind auch im Direktmodus ausführbar 

- Prozedur-Aufrufe sind an jeder Stelle im Programm möglich. 
Jede Prozedur kann jede andere oder auch sich selbst aufrufen 

- Pascal-ähnliche Strukturen werden möglich 

- Pseudo-Stack (Heap) mit 12 oder wahlweise 24 KByte 

- Weder Stack noch Rekursiv-Basic belegen den Basic-Speicher 

- Bis zu 2454 Prozedur-Hierarchien (Verschachtelungen) bei 
12 KByte Stack 

- Bis zu 681 Verschachtelungen bei FOR-NEXT-Schleifen 
(12 KByte Stack) 

Anwendungen 

•Strukturiertes Programmieren 

• Eigene Befehlserweiterungen 

• Programme mit künstlicher Intelligenz 
•Schnelle Sortierverfahren (Quicksort etc.) 
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Nach der Prozedur-Ausführung werden die ursprüngli¬ 
chen Variablen wieder hergestellt (im Beispiel die in Zeile 
5 definierten Variablen A und C$). Rekursiv-Basic kehrt 
danach ins Hauptprogramm oder in die Prozedur zurück, 
welche die gerade ausgeführte aufgerufen hat. Diese Art 
von »Übergabevariablen« (im Beispiel: A, B%, C$) nennt 
man Werteparameter, das heißt, daß diese Variablen am 
Anfang einer Prozedur Werte erhalten, diese aber nach der 
Ausführung nicht an das Hauptprogramm oder die überge¬ 
ordnete Prozedur zurückgeben. Die in der Prozedur 
benutzten Variablen werden wieder »vergessen«. Dazu ein 
Beispiel: 

10 A=15: B=10 
20 ITest A 
30 PRINT A, B 
40 END 

100 EPR0C Test B 
110 B= B+5: PRINT B 
120 EEND 

Dieses Programm liefert die Bildschirmausgabe 20, 15 
und 10. Es funktioniert folgendermaßen: Zuerst werden den 
Variablen A und B die Werte 15 und 10 zugewiesen, dann 
wird die Prozedur »Test« aufgerufen, wobei in der Prozedur 
eine neue Variable B angelegt und dieser der Wert von A 
zugewiesen wird. Nachdem die Prozedur abgearbeitet ist, 
wird die neue Variable B vergessen, die alte Variable B wird 
wieder vom Heap (erweiterten Stack) geholt und das 
Hauptprogramm fährt an der Stelle nach dem Prozedur- 
Aufruf fort. 


Variablenübergabe an Prozeduren 


Bisher können Sie allerdings nur Variablen an die Prozedu¬ 
ren übergeben und nicht umgekehrt. Dieses Problem wird 
durch die sogenannten Variablenparameter gelöst. Sie 
ermöglichen nämlich die Rückgabe von Werten oder 
Ergebnissen aus der ausgeführten Prozedur an das Haupt¬ 
programm oder die übergeordnete Prozedur. Eine Variable 
in der Parameterliste der Prozedur-Deklaration wird als 
Variablenparameter gekennzeichnet, indem ihr ein Dop¬ 
pelkreuz (»#«) vorangestellt wird. Der Wert dieser Varia¬ 
blen wird nach der Ausführung der Prozedur nicht wieder 
vergessen, sondern der Variablen in der Parameterliste des 
Aufrufs zugewiesen. Ein Beispiel zu den Variablenparame¬ 
tern: 

10 ILies A 
20 PRINT A 
30 END 

100 EPR0C Lies #B 
110 INPUT B 
120 EEND 

Die Prozedur »Lies« hat die gleiche Funktion wie der 
Basic-Befehl INPUT »numerische Variable«. 

£VAR »Parameterliste« 

Der VAR-Befehl wird in Prozeduren dazu verwendet, 
lokale Variablen zu schaffen. Alle in einer Prozedur benutz¬ 
ten Variablen sollten hier aufgeführt werden, damit nicht 
irgendwelche Variablen des Hauptprogramms oder einer 
übergeordneten Prozedur verändert werden. Sollten nicht 
alle Variablen hinter einen VAR-Befehl passen, so ist es 
auch möglich, in der Folgezeile einen weiteren VAR-Befehl 
anzubringen. 

Wichtig: Feld-Elemente oder gar ganze Felder können 
nicht als lokale Variablen deklariert werden. Wenn Sie in 
Prozeduren also Felder benötigen, können Sie diese zwar 
mit dem DIM-Befehl schaffen, doch bestehen sie auch 
nach der Rückkehr aus dieser Prozedur immer noch, das 


PROC NOT 
DECLARED 

Es wurde eine nicht vorhandene Prozedur aufge¬ 
rufen 

CAN’T EXECUTE 
PROC 

Es wurde versucht, einen PROC-Befehl auszu¬ 
führen 

STACK 

OVERFLOW 

Es wurden entweder zu viele Prozeduren ver¬ 
schachtelt oder zu viele lokale Variablen geschaf¬ 
fen 

STACK EMPTY 

Der END-Befehl wurde ohne vorhergehenden 
Prozedur-Aufruf ausgeführt 


Tabelle 3. Die Fehlermeldungen von Rekursiv-Basic 


heißt, Sie können dann nicht noch einmal ein Feld gleichen 
Typs und Namens in irgendeiner anderen Prozedur dekla¬ 
rieren. Ein Beispiel zum VAR-Befehl: 

10 A = 100: B$ = "TEST" 

20 ITest 
30 PRINT A, B$ 

40 END 

100 EPR0C Test 
110 EVAR A, B$ 

120 A = 33: B$ = "64'ER" 

130 PRINT A,B$ 

140 EEND 

Dieses kurze Programm liefert die Bildschirmausgaben 
»33«, »64'ER«, »100« und »Test«. 

EEND 

Der Befehl END wird dazu verwendet, eine Prozedur- 
Ausführung zu beenden. Sämtliche Variablen, die mit dem 
VAR-Befehl geschaffen wurden sowie alle Werteparameter 
werden wieder »vergessen«. Bei Variablenparametern 
erfolgt nun die Zuweisung der jeweiligen Werte an die Auf¬ 
rufvariablen. Anschließend wird das Programm hinter dem 
Prozedurenaufruf fortgeführt. 

!»Namc (»Parameter 1«], [»Parameter 2«] 

Dieser Befehl führt die Prozedur mit dem Namen »Name« 
aus, die an einer beliebigen Stelle im Programm stehen 
kann. Wichtig ist hierbei, daß die aufgeführten Parameter 
jeweils gleichen Typs wie die Variablen im Prozedur-Kopf 
(hinter dem PROC-Befehl) sind. Wenn Variablenparameter 
verwendet werden, ist darauf zu achten, daß an der ent¬ 
sprechenden Position im Aufruf ebenfalls eine Variable 
steht und nicht eine Zahl oder ein String-Ausdruck, damit 
der richtige Wert der Prozedur-Variablen nach der Ausfüh¬ 
rung zugewiesen werden kann. Die Funktionsweise des 
»!«-Befehles läßt sich auch an dem vorangegangenen Bei¬ 
spiel ersehen. 

Rekursiv-Basic stellt eine Reihe eigener Fehlermeldun¬ 
gen bereit. Diese finden Sie in Tabelle 3. Zusätzlich sollten 
Sie einige Punkte beachten: 

1. Nach einem THEN-Befehl sollte grundsätzlich ein 
Doppelpunkt»:«folgen, da es sonst eventuell bei manchen 
Basic-Befehlen zu verschiedenen Fehlermeldungen kom¬ 
men kann. Der Grund hierfür ist der »verbogene« Vektor 
des Betriebssystems, der für die Abarbeitung der Basic- 
Befehle zuständig ist. 

2. Bei der Verwendung von Variablenparametern ist dar¬ 
auf zu achten, daß der Variablenname im Prozedur-Aufruf 
nicht gleich dem Variablennamen im Prozedur-Kopf ist. 
Wählen Sie aus diesem Grund für Variabenparameter in 
Prozeduren möglichst seltene Namen, wie z.B. ZQ$ oder 
QJ°/o, um nicht bei jedem Prozedur-Aufruf einen Blick auf 
die Parameterliste der Prozedur werfen zu müssen. 

3. Da die Parameter bei einem Prozedur-Aufruf schritt¬ 
weise nacheinander übergeben werden, ist darauf zu ach¬ 
ten, daß eine Variable, die im Prozedur-Kopf am Anfang 
sind, im Aufruf an der entsprechenden Stelle steht. 

Zum besseren Verständnis der Punkte 2. und 3. sehen 
Sie sich bitte das folgende Beispiel an: 
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5 A = 10: B = 17 
10 !Test A, B 
20 END 

100 EPROC Test B, A 
10 PRINT B, A 
120 EEND 

Die Bildschirmausgabe ist »10,10«, da beim Einsprung in 
die Prozedur (Zeile 100) zuerst die Variable B gesichert und 
ihr der Wert von A zugewiesen wird. Anschließend wird die 
Variable A gesichert und ihr der Wert von B zugewiesen, 
der aber mittlerweile schon geändert worden ist. Um dieses 
Problem nun zu umgehen, sollte man einfach eine Hilfsva¬ 
riable benutzen: 

5 A = 10: B = 17 
10 C = B: ITest A, C 
20 END 

100 EPROC Test B,A 
110 PRINT B,A 
120 EEND 

Bildschirmausgabe: 10, 17. 

Die Speicherbelegung von Rekursiv-Basic 

Rekursiv-Basic belegt den Speicher von $C000 is $C7FF 
mit der eigentlichen Basic-Erweiterung und das RAM unter 
dem I/O-Bereich und dem Kernal ($D000 bis $FFFF) mit 
Daten und dem Pseudo-Stack. Folgende Speicherstellen 
der Zeropage werden verwendet: 


CLS 

COLOR Rahmen¬ 
farbe, Hinter¬ 
grundfarbe 
CLREOL 
CURSOR X, Y 
PRTAT X, Y, A$ 


LINIE I 

WAITKEY A$, B$, 
Modus 


POSITION 
Such$, Quell$, 
POS 

CENTER Text$ 
FETCH A$, I 

LPRINT Sekun- 
däradr., Text® 
STATUS Er, Er$, 
Tr, Se 
BEEPH.L 

CATALOG 


Bildschirm löschen 
Bildschirmfarben setzen 


Rest der aktuellen Bildschirmzeile löschen 
Cursor an die Position X, Y setzen 
Den Text-String A$ an der Position X, Y aus¬ 
geben. Anstelle A$ kann auch Text in Anführungs¬ 
zeichen eingegeben werden 
Eine horizontale Linie (CHR$(192) mit der Länge 
»I« ab der momentanen Cursorposition zeichnen 
Ein Zeichen, das in B$ vorkommt, von Tastatur als 
A$ einiesen. Sollen alle Charakter einlesbar sein, 
so muß B$ leer ("") sein. Ist Modus ungleich 0, so 
wird der Cursor nicht blinkend eingeschaltet. 
Suche nach einem String: POS enthält die Posi¬ 
tion ab der Such® in Quell® beginnt. Ist Such® 
nicht in Quell® vorhanden, ist POS gleich 0. 

Text (Text®) zentrieren 

String A$ mit der maximalen Länge »I« von der 
Tastatur einiesen 

Den String Text® mit gewünschter Sekundär¬ 
adresse auf den Drucker ausgeben 
Holt den Floppystatus in die Variablen Er, Er®, Tr, 
Se. Nur im Programmodus ausführbar. 

Spielt einen Ton der Höhe H mit der Länge L. Für 
H können Werte bis 65535 eingegeben werden. 
Directory ausgeben 


Tabelle 4. Die Befehle der »Library« 


$F9/FA 

Stackpointer 

$FB/FC 

Hilfszeiger 

$02 

Hilfsregister 


Ferner wurden noch die ersten acht Byte des Kassetten¬ 
puffers für Hilfszwecke gebraucht ($033C bis $0343). 

Das Programm »Türme von Hanoi« (Listing 2) löst nach der 
Eingabe der Scheibenanzahl das bekannte Türme-von- 
Hanoi-Problem (Bild 1), bei dem es darum geht, einen aus 
verschieden großen Scheiben bestehenden Turm abzu¬ 
bauen und diesen auf einem anderen Platz wieder zusam¬ 
menzusetzen. Dabei müssen jedoch die folgenden Regeln 
beachtet werden: 



Bild 1. Das Programm »Türme von Hanoi« bei der Arbeit 


1. Es darf niemals eine größere Scheibe auf eine kleinere 
gelegt werden. 

2. Man hat nur drei Ablageplätze für die Scheiben. 

Die Hauptprozedur »Hanoi« ist rekursiv, die Rekursions¬ 
tiefe wird während des Programmablaufs auf dem Bild¬ 
schirr:: angezeigt. Bitte beachten Sie bei der Eingabe des 
Programms, daß die Befehle CLRSCR, COLOR, WAITKEY 
und CURSOR zusammengeschrieben werden müssen, da 
sonst ein SYNTAX ERROR auftritt. 

Eine Basic-Erweiterung: Die Library 

Die Library (Listing 3) stellt eine Basic-Erweiterung dar, 
die Sie an Ihre selbstgeschriebenen Programme anhän- 
gen können, sofern die Zeilennummern ab 50000 unbe¬ 
nutzt sind. Eine Übersicht der neuen Befehle finden Sie in 
Tabelle 4. 

Wenn Sie diese,neuep. Befehle henutzen wollen, können 
Sie die Library mit dem Programm »MERGER« (Listing 4) 
an Ihr Programm anhängen. Dazu muß die letzte Zeilen¬ 
nummer Ihres Programms allerdings kleiner als 5000p 
sein. »MERGER« ist ein kleines Maschinenprogramm, das 
mit dem MSE abgetippt wird. Es ist einfach zu bedienen: 

Nach dem Laden von »MERGER« können Sie Ihr Haupt¬ 
programm laden und dann mit 
SYS 704, "Name'',Geröteadresse 
däs gewünschte Programm anhängen. 

(Thomas Kolbe/Andreas Lietz) 


Name 

■ 

rekursiv- 

-baslc 


0801 0ee4 

0801 

, 

lb 

OB 

c2 

07 

9. 

32 

30 

38 

5f 

0009 

I 

30 

20 

42 

59 

20 

54 

48 

4f 

69 

0811 


4d 

41 

33 

20 

4b 

4f 

4c 

42 

bd 

0819 

3 

45 

00 

00 

00 

ff 

ff 

ff 

a9 

b2 

0821 

: 

4a 

a 0 

00 

85 

fb 

84 

fc 

a9 

99 

0829 

: 

cO 

05 

fe 

aO 

00 

B4 

fd 

bl 

ff 

0031 

i 

fb 

91 

fd 

c8 

dO 

■f 9 

e6 

fc 

00 

0B39 

X 

e6 

f e 

a5 

fe 

c9 

c7 

dO 

ef 

e5 

0841 

: 

20 

00 

cO 

? J 

44 

a6 

4c 

ae 

9d 

0849 

: 

a7 

ad 

09 

03 

c9 

cO 

fO 

ld 

Oa 

0051 

3 

a9 

43 

aO 

c6 

20 

le 

ab 

ad 

9b 

0B59 

1 

00 

03 

0 d 

2 d 

cO 

ad 

09 

03 

0 * 

0861 

: 

Bd 

2 e 

cO 

a9 

2 f 

aO 

cO 

Bd 

01 


0B69 ! OB 03 Bc 09 03 a9 00 aO f6 
0B71 i dO B5 <9 84 fa 60 c3 e4 9e 
0879 l 20 73 00 fO ld c9 21 fO f7 
OBB1 l 33 c9 5c «0 22 c9 81 dO OB 
0BB9 i 03 4c 46 c2 c9 82 dO 03 96 
0B91 : 4c bS c2 c9 8a dO 03 4c 75 
0899 i a3 c3 c6 7a a5 7a c9 ff 74 
08a1 : dO 02 c6 7b 6c 2d cO 20 07 
08a9 i 73 00 c9 BO dO 03 4c 72 da 
OBbl t cl c9 56 dO 17 20 73 00 47 
0Bb9 l c9 41 dO 10 20 73 00 c9 8a 
08c1 l 32 dO 09 20 73 00 20 dB 2b 
08c9 s c4 4c ae a7 a9 f7 aO c5 bc 
08dl ! 20 le ab 4c 62 a4 a5 2b ad 
08d9 l a4 2c 8d fc 03 8c fd 03 29 


08el 

1 

20 

05 

C4 

bO 

Oa 

a9 

09 

aO 

le 

O0e9 

1 

c6 

20 

1 B 

ab 

4c 

62 

a4 

b6 

f5 

OBf 1 

1 

fb 

dO 

02 

q6 

fc 

20 

30 

c4 

cd 

0Bf9 

1 

90 

e6 

aO 

01 

bl 

fb 

c9 

20 

a7 

0901 

| 

fO 

10 

c9 

3a 

fO 

Oc 

c9 

00 

4a 

0909 

| 

fO 

08 

dl 

7a 

dO 

d2 

cB 

4c 

20 

0911 

| 

b3 

cO 

20 

73 

00 

b6 

fb 

dO 

64 

0919 

8 

02 

b6 

fc 

88 

dO 

f 4 

20 

ae 

71 

0921 

1 

c4 

a5 

7a 

Bd 

3c 

03 

a5 

7b 

72 


Listing 1. »Rekursiv-Basic«, bitte mit 
dem MSE (Seite 159) eingeben 
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0929 


Bd 

3d 

03 

*3 

+ b 

85 

7a 

*5 

eb 

0bl9 


84 

c4 

85 

49 

20 

84 

c4 

83 

ce 

0d09 

1 

20 

56 

c4 

a9 

01 

20 

56 

c4 

af 

0931 


+ c 

85 

7b 

20 

dB 

c4 

a5 

+ b 

15 

0b21 


4a 

•4 

49 

4c 

f 9 

c 2 

20 

Bb 

»6 

Odl 1 

1 

60 

a3 

f 9 

c9 

00 

dO 

OB 

*5 

ed 

0939 


B5 

7a 

aS 

+ c 

85 

7b 

20 

79 

ac 

0b29 


bO 

B5 

49 

84 

4a 

20 

84 

c4 

cO 

Odl 9 

1 

f* 

c9 

dO 

dO 

02 

38 

60 

18 

da 

0941 


00 

dO 

03 

4c 

5d 

cl 

c9 

23 

45 

0b31 


*0 

20 

84 

c4 

c3 

4a 

+ 0 

03 

lb 

0d21 

I 

60 

20 

79 

00 

dO 

01 

60 

c9 

i* 

0949 


dO 

03 

20 

*+ 

c3 

20 

Bb 

bO 

66 

0b39 


4c 

9b 

c3 

c4 

49 

fO 

03 

4c 

9d 

0d29 

1 

23 

dO 

03 

20 

73 

00 

20 

Bb 

48 

0951 


B5 

49 

B4 

4a 

20 

79 

00 

+ 0 

95 

0b41 


9b 

C3 

Bd 

41 

03 

Bc 

40 

03 

e5 

0d31 

1 

bO 

38 

B9 

02 

bO 

01 

00 

85 

fB 

0959 


03 

20 

+ d 

ae 

*5 

7a 

85 

♦ b 

fa 

0b49 


*2 

05 

20 

a+ 

C3 

20 

cO 

c5 

58 

0d39 

1 

bb 

84 

bc 

«0 

00 

bl 

bb 

20 

36 

0961 


■5 

7b 

B5 

+c 

ad 

3c 

03 

83 

99 

0b51 


20 

d4 

c5 

*2 

06 

20 

•+ 

c5 

4d 

0d41 

1 

36 

c4 

cB 

cO 

03 

dO 

f 6 

Bd 

fl 

0969 


7a 

ad 

3d 

03 

83 

7b 

aS 

0* 

50 

0b59 


*0 

00 

bl 

22 

B5 

66 

*5 

49 

5f 

0d49 

1 

3a 

03 

*5 

Od 

dO 

32 

*5 

Oe 

65 

0971 


48 

a5 

Od 

4B 

20 

9* 

ad 

68 

37 

Oböl 


*4 

4a 

20 

ca 

c3 

20 

67 

bB 

fB 

0d51 

1 

dO 

25 

bl 

bb 

20 

56 

c4 

cB 

fl 

0979 


2a 

20 

90 

ad 

dO 

Of 

68 

10 

d4 

0b69 


20 

dO 

bb 

*2 

Ob 

20 

af 

c3 

30 

0d39 

1 

cO 

07 

dO 

f 6 

*2 

02 

aS 

bb 

fB 

09B1 


06 

20 

c4 

*9 

4c 

48 

Cl 

20 

4c 

0b71 


•0 

04 

20 

cO 

c5 

*2 

00 

bl 

08 

0d61 

1 

20 

56 

c4 

«3 

bc 

20 

36 

c4 

42 

09B9 


d6 

*9 

4c 

4B 

cl 

6B 

20 

2c 

B0 

0b79 


22 

9d 

00 

c7 

bB 

8B 

10 

+ 7 

66 

0d69 

1 

8a 

20 

56 

c4 

20 

79 

00 

fO 

ul 

0991 


aa 

20 

79 

00 

fO 

03 

20 

+ d 

4d 

Ob81 


20 

ca 

c5 

*9 

00 

*0 

c7 

20 

11 

0d71 

1 

b5 

20 

fd 
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Listing i. 

(scniuu) 







0 REM >>> TUERME VON HANOI <<< 


<162> 

149 PRINT " REKURSIONSTIEFE:"REK 

<012> 

1 REM 


<063> 

150 'HANOI AN,1,2,3,REK 

< 177> 

2 REM DEMO ZUM REKURSIV-BASIC VON: 

< 134> 

160 ICURS OR 16,6:PRINT "FERTIG I" 

<044> 

3 REM 


<065> 

170 IWAIT KEY:GOTO 20 

<062> 

4 REM ***** THOMAS KOLBE ***** 


<0B7> 

180 : 


<156> 

5 REM 


< 067 > 

190 t 


< 166> 

6 REM DEMO PROBRAMM VON: 


<01 1> 

10000 

REM PROZEDUREN ZUM PROGRAMM 

< 160> 

7 REM 


< 069 > 

10010 

: 

<000 > 

B REM *** ZUHEIR URWANI *** 


<214> 

10020 

fPROC CLR SCR 

< 179> 

9 REM 


<071 > 

10030 

PRINT " {CLR,LIG.BLUE5" 

<007> 

10 : 


<242> 

10040 

£END 

<251 > 

20 ! CLR SCR: ! COL OR 0 


<033> 

10050 

: 

< 120 > 

30 ICURS OR 12,1:PRINT"TUERME VON HANOI" 

<220> 

10060 

3 

< 130> 

40 ICURS OR 12,2:PRINT" - 

-II 

< 206 > 

10070 

£PROC COL OR FARBE 

< 129> 

50 I EINGAE'E: FOR 1=0 TO 2 


<232> 

100B0 

POKE 532B0.FARBE : POKE 532B1,FARBE 

<160> 

60 ICURS OR 1*13,22: PRINT " HHJJUUI11J 

DD D D " 

< 212 > 

10090 

£END 

<045> 

70 ICURS OR 1*13+3,23:PRINT "TURM 1 

; i+i; 

<1B1 > 

10100 

: 

< 170> 

00 NEXT I:PRINT "{CYAN}"; 


< 105> 

10110 

: 

< 180} 

100 TU <1,0 ) =AN 


<047 > 

10120 

fPROC SCHEIBE X,Y,N 

<100> 

110 TU (2,0)=0 


< 162> 

10130 

£VAR J 

<243> 

120 TU (3,0)=0 


<204> 

10140 

ICURS OR X,Y 

< 104 > 

125 FOR 1=1 TO AN 


<053> 

10145 

IF N=12 THEN 10160 

<072> 

130 TU ( 1 ,1 ) = ( AN+1 - 1 ) *2 


<06B> 

10150 

FOR J=1 TO 6-N/2:PRINT " ";:NEXT 

< 151 > 

140 ISCHEIBE 0,22-1,(AN+l-I ) *2:NEXT 

i 

<125> 

10160 

FOR J=1 TO N:PRINT " {RVSON>T{RVOFF>' 


145 ZUS=0:ICURS OR 0,4:PRINT "ZUG:" 

ZUG 

<0B3> 


;: NEXT 

<10B> 

147 REK=1:ICURS OR 20,4 


< 130> 

10170 

£END 

< 125> 


144 
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C64 


PROGRAMMIERHILFEN 


10180 


<250> 

10490 

_ 

<050> 

10190 

. 

<004 > 

10500 

: 

<062> 

10200 

fPROC HANOI N,A,B,C,R 

<123> 

10510 

fPROC LOESCHE X,Y 

<072> 

10205 

fVAR D,E,F 

< 137> 

10520 

[CURS OR X,Y:PRINT "<12SPACE>" 

<030> 

10207 

!CURS OR 36,4:PRINT R 

<240> 

1 0530 

fEND 

<233> 

10210 

IF N<1 THEN:fEND 

< 148> 

10540 

: 

< 102> 

10215 

D=A:E=B:F=C 

< 120> 

10550 

3 

<112> 

10220 

[HANOI N-1,D,F,E,R+1 

<220> 

10560 

fPROC CURS OR X,Y 

<047> 

10240 

[VERSETZE A,B 

<203> 

10570 

POKE 781,Y:POKE 782,X 

<215> 

10250 

[HANOI N-1,F,E,D,RH 

<219> 

10580 

POKE 7B3,PEEK(783 > AND 254 

<002> 

10255 

[CURS OR 36,4:PRINT R 

<034> 

10590 

SYS 65520 

<120> 

10260 

fEND 

<217> 

10600 

fEND 

<047> 

10270 


<086> 

10610 

: 

<172> 

10320 

: 

< 136> 

10620 

3 

<182> 

10330 

fPROC WAIT KEY:fVAR A* 

<096> 

10630 

fPROC EINGABE:fVAR A* 

<076> 

10340 

BET A*:1F A*="" THEN 10340 

<074> 

10635 

A*="C28SPACE>" 

<250> 

10350 

fEND 

<051 > 

10700 

'CURS DR 0,4 

<223> 

10360 

s 

< 176> 

10710 

PRINT"ANZAHL DER SCHEIBEN (1-6)?" 

< 1B6> 

10370 


<186> 

10720 

[CURS OR 9,6:INPUT AN 

<232> 

10380 

fPROC VERSETZE VO,NA 

<046> 

10730 

IF AN>0 AND AN<7 THEN 10750 

< 177> 

10390 

fVAR V,N,B 

< 193> 

10740 

'CURS OR 9,6:PRINT A*:GOTO 10720 

<093> 

10395 

ZUB=ZUS+1:[CURS OR 4,4:PRINT ZUG 

<022> 

10750 

[CURS OR 0,4:PRINT A*;A*;A*;A* 

<211 > 

10400 

10410 

10420 

V=TU (VO,0) 

N=TU (NA ,0)4-1 

B=TU (VO,V) 

<17B> 

<090> 

<015> 

10760 

fEND 

<209> 

10430 

TU (NA,N)=B 

<054> 

Listing 2. »Türme von Hanoi«; Achtung: Die Befehle 

10440 

[LOESCHE (VO—1)*13,22-V 

< 053 > 

CURSOR, CLRSCR, WITKEY und COLOR müssen 

10450 

[SCHEIBE (NA-1 )* 13,22—N,B 

<030> 

< 128> 
<245> 

< 1B1 > 

zusammengeschrieben werden (ohne < SPACE >)! 

10460 

10470 

10480 

TU (VO,0)—TU (VO,0)—1 

TU (NA,0)=TU <NA,0>+1 
fEND 

Bitte mit dem Checksummer (Seite 159) ohne Rekursiv- 
Basic eingeben. 


50000 

50010 

50020 

50030 

50040 

50050 

50060 

50100 

50110 

50150 

50160 

50170 

50180 

50200 

50210 

50220 


50230 

50235 

50240 

50245 

50250 

50260 

50300 

50310 

50320 

50330 

50340 

50350 

50360 

50370 

50380 

50400 

50410 

50450 

50460 

50500 

50510 

50520 

50550 

50560 


REM ******************** <209 > 

REM * LIBRARY V 1.0 * <011> 

REM * ZUSAMMENBESTELLT * <023> 

REM * VONs • * <172> 

REM * tHOMAS KOLBE 4 <0B5> 

REM ******************** <003> 

: 

£PROC CLS:PRINT"<CLR1";:£END 
£PROC CURS OR X,Y 

POKE 781,Y:POKE 7B2,X:P0KE 7B3,PEEK< 

783»AND 254:SYS 65520 
£END 

£PROC PRTAT X,Y,AT:!CURS OR X,Y:PRIN 
T A*j:£END 

fPROC WAIT KEY «ZQ»,ER*,MODUS:fVAR I 
:IF MODUS THEN PRINT"IRVSON,SPACE,RV 
OFF,LEFT>"; 

GET ZOi:IF ZB*=""THEN 50230 
IF ER*=""THEN 50245 

'POS ITI ON ZO*,ER*,I:IF 1=0 THEN 50 

230 

IF MODUS THEN PRINT ZO*s 
£END 
: 

£PROC POS ITI ON A*,B$,«ZO 
FOR ZQ=1 TO(LEN <B*>-LEN <A*> + 1) 

IF A*<>MID*(Bf,ZO,LEN(AS>)THEN:NEXT 
ZG:ZO=0 
£END 

£PROC CLR EOL:fVAR I 
I=40—PEEK <211» 

PRINT LEFT*("C40SPACE >",I);:£END 

fPROC LINIE A:FOR A=A TO 1 STEP-1:PR 
INT"{?";:NEXT A:£END 
: 

fPROC COL OR RA,HI:POKE 53280,RA:POK 
E 53281,HI:£END 

fPROC CENTER A* 

•PRTAT INT< (40-LEN(A*>)/2),PEEK(214) 

,AS: fEND 

fPROC FETCH «ZY*,L:fVAR I,T*:ZY*=“" 

[LINIE L:FOR 1=1 TO L:PRINT”<LEFT>"; 

:NEXT I 


<002 
<045> 
< 010 > 

< 110 > 

<246> 

< 117 > 

< 124> 

< 14 7 > 


< 022 > 
<23B> 
< 062 > 

<19B> 

<0B6> 

<072> 

< 197> 
<007> 
<032> 

<055> 

<152> 

< 021 > 
<140> 
<250> 

< 136> 
<061 > 

< 100 > 
<091 > 

<214> 

<143> 

<243> 

<067> 

<203> 

<054> 

< 116> 


50570 

50575 

50580 

50590 


5060*. 

50610 

50620 

50630 

50650 

50660 

50670 

50680 

.50690 

50700 


PRINT"<RVSON,SPACE,RVOFF,LEFT >"; <17B > 

!WAIT KEY T*,"",0 <235> 

IF T*>=" "AND T*<="*"AND L>LEN (ZYS)T 
HEN PRINT TS;:ZY*=ZY*+TS:GOTO 50570 <213> 

IF T*=CHR*-(20) AND LEN(ZY*>>0 THEN ZY 
*=LEFT*(ZYS,LEN(ZY*>-1):PRINT"CLEFT, 
SPACE>g£2LEFT>"; <074> 

IF T*=CHR*(20)THEN 50570 <132> 

IF T*<>CHR*(13>THEN 50575 <026> 

PRINT"@":fEND <136> 

: <057> 

fPROC L PRINT SEK,A*:OPEN 1,4,SEK:PR 
INT«1, A*:CLOSE IsfEND <174> 

. <087> 

fPROC STATUS «EN,#QE*.«ET,«OS:CLOSE 
15:OPEN 15,8,15 <053> 

INPUT«15,EN,OE*,QT,OS:CLOSE 15:fEND <101> 

: <119> 

fPROC BEEP H,L:fVAR I:POKE 54296,15: 

POKE 54295,0:POKE 54272,H-INT(H/256) 

*256 <137> 

50710 POKE 54273,H/256:POKE 54277,26:POKE 

54278,230:POKE 54276,33 <099> 

50720 FOR 1=1 TO L:NEXT I:POKE 54276,32:£E 

MD <075> 

50730 : <159> 

50740 fPROC CATA LOB:£VAR A*,B*:CLOSE 3 <231> 

50750 OPEN 3,8,0,"*":GET«3,A*,A* <078> 

50760 BET«3,A*,A*:IF ST=64 THEN CLOSE 3:fE 

MD <063> 

50770 GET«3,AS,B*:PRINT MID*(STR*(ASC(A*+C 

HR*<0)>+256*ASC(B*+CHR*(0))),2)" "j <201> 
50780 BET«3,AS:PRINT AS;:IF A*< >""THEN 507 

00 <245> 

50790 PRINT:GOTO 50760 <165> 

Listing 3. »LIBRARY« Auch hier müssen die neuen Befehle 
CURSOR, WAITKEY, POSITION, CLREOL, COLOR LPRINT 
und CATALOG zusammengeschrieben werden. Bitte mit dem 
Checksummer (Seite 159) ohne Rekursiv-Basic eingeben. 


Name 


merger 


Listing 4. 

»MERGER« 
zum Einbinden 
der Library von 
Rekursiv-Basic in eigene Programme 


OZcO 02d8 


02cQ 

02c8 

02d0 


20 fd ae 20 d4 el a4 2e da 
a5 2d 38 e9 02 aa bO 01 89 
88 a9 00 85 0a 4c 75 el 7a 
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PRORGRAMMIERHILFEN 


C64 


Maschinenroutinen 
in Basic-Zeilen 


Die Verbindung von Basic-Programmen mit Rou¬ 
tinen in Maschinensprache ist eine der reizvoll¬ 
sten Programmiertechniken auf dem C64. Mit 
einem neuartigen Hilfsprogramm zeigen wir 
Ihnen eine interessante Alternative zum Nach¬ 
laden von Maschinenroutinen. 

• • 

Ü blicherweise werden Maschinenprogramme, die von 
Basic-Programmen aufgerufen werden, nachträglich 
geladen. Dieses »Nachladen« von Maschinenrouti¬ 
nen hat jedoch einige Nachteile: 

- Der Start der Routinen liegt fast immer bei 828 ($033C) 
oder 49152 ($C000). Will man mehrere Routinen gleichzei¬ 
tig verwenden, müssen sie oftmals auf andere Adreßberei- 
che umgeschrieben werden. 

- Bei einem Reset verschwinden Programme aus dem Kas¬ 
settenpuffer ($033C - 03FB). Sie müssen nachgeladen 
werden, selbst wenn das Basic-Programm durch einen 
OLD-Befehl, wie manche Basic-Erweiterungen ihn besit¬ 
zen, gerettet werden kann. 

- Das Nachladen der Routinen ist eine Prozedur, die 
zusätzliche Zeit in Anspruch nimmt und das Programmie¬ 
ren einengt. 

- Wird eine Routine vergessen oder durch POKEs gestört, 
kann es zu Abstürzen kommen, die unter Umständen stun¬ 
denlange Arbeit unwiederbringlich vernichten. 

Diesen Ärger gibt es nicht mehr, wenn die Unterroutinen, 
die für ein Programm benötigt werden, am Anfang des 
Basic-Programms stehen und infolgedessen mit ihm gela¬ 
den werden. Mit »SYS Variable« und gegebenfalls weiteren 
Parametern erreichen Sie diese Routinen jederzeit. 

Das Programm »MPRG IM BASIC« übernimmt diese Ein¬ 
bindung beliebiger kurzer Maschinenroutinen in Basic- 
Zeilen. Dabei sind jedoch einige Vorgaben zu beachten: 

REM-Zeilen machen's möglich 


Der Basic-Interpreter des C64 verarbeitet beim Program¬ 
mieren, Laden und Listen jeweils Zeilen mit bis zu 255 Zei¬ 
chen. Darin enthalten sind zwei Byte als Zeiger auf den 
Beginn der nächsten Zeile, zwei Byte für die Zeilennummer 
und das Schlußbyte ($00). 

Beim Ablauf eines Basic-Programms wird bei REM die 
nächste Zeile angesprungen. Folglich können hinter einem 
REM, das am Anfang einer Zeile steht, 249 beliebige Bytes 
stehen, die nicht vom Basic-Interpreter ausgeführt werden 
und somit auch nicht der üblichen Basic-Syntax des C64 
entsprechen müssen. Anstelle der üblichen Bemerkungen 
im Klartext können diese Bytes folglich auch zu einem 
Maschinenprogramm gehören. Dieser Trick wurde durch 
den Basic-Einzeiler-Wettbewerb im 64’er-Magazin sehr 
beliebt. 

Mit solchen mehr oder weniger langen REM-Zeilen, die 
Maschinenprogramme anstelle von Kommentaren enthal¬ 
ten, wäre also der Platz für Routinen im Basic-Programm 
geschaffen. Für diese Routinen müssen aber noch zwei 
Regeln beachtet werden: 


1. Es darf kein Null-Byte Vorkommen, da eine Null das 
Zeilenende markiert und bei Einbindung oder Löschen 
anderer Zeilen die REM-Zeile hier abgeschnitten wird. 
Durch INC, DEC oder Laden aus der Zeropage läßt sich das 
Auftreten von Null-Bytes jedoch mit vertretbarem Aufwand 
umgehen. 

2. Wer die REM-Zeilen wahlweise einsetzen will, der darf 
- abgesehen vom Aufruf der ROM-Routinen - nur bedingte 
Verzweigungen (Branches) verwenden. 

Eine direkte Änderung dieser REM-Zeilen auf dem Bild¬ 
schirm ist nicht allein wegen einer möglichen Überlänge, 
sondern auch wegen der eigenartigen Ausgabe unmöglich 
(Bild 1). Wenn nämlich der Interpreter beim Listen das 
momentane Byte keinem Zeichen zuordnen kann, behan¬ 
delt er es als Token und druckt das entsprechende Basic- 
Befehlswort aus. Zum Teil führt er sogar Steuerzeichen aus 
(zum Beispiel setzt der Wert 31 die Schriftfarbe auf Blau). 

Programmbeschreibung 


Verwirrende optische Effekte, die teilweise wie Systemab¬ 
stürze wirken, sind die Folge. < RUN/STOP RESTORE> 
bringt ?"es wieder in einen geordneten Zustand. 

Wer nmgegen einen Listschutz vortäuschen will, kann 
das Resultat dieser Pseudo-Abstürze so stehen lassen und 
ab der ersten Basic-Programmzeile listen. Eleganter ist es 
aber, eine »KORREKTURZEILE« (siehe unten) anzuhän¬ 
gen, die den Bildschirm »aufräumt«. Beim Wert 204 ($CC) 
jedoch stoppt das Listen aufgrund eines kleinen Fehlers im 
Betriebssystem des C64 unweigerlich und es erscheint die 
Meldung SYNTAX ERROR. 

Das Basic-Programm »MPRG IM BASIC« (Listing 1) ver¬ 
ändert sich während des Ablaufs selbständig. Daher darf 
es nicht geändert werden. Jede unbedachte Änderung 
führt zur Fehlfunktion! Der Originalzustand im Speicher 
besteht nur vor dem ersten Start. 

Deshalb muß dieses Programm mit dem MSE eingege¬ 
ben werden, so daß es aufs Byte genau stimmt. Dies gilt 
auch für die weiteren Hilfsprogramme: 

»MERGE« (Listing 2) ist eine Routine zum Anhängen 
eines Basic-Programms an das im Speicher befindliche 
Programm. Diese Routine eignet sich hervorragend zu 
einem ersten Test von »MPRG IM BASIC« und wird im weite¬ 
ren für alle folgenden Operationen als Hilfsroutine benötigt. 

»STARTADRESSEN« (Listing 3) ist ein Basic-Programm 
zur Ermittlung der Einsprungadressen mehrerer Routinen 
in REM-Zeilen. Es beginnt mit der Zeile 60000 (Start mit 
RUN 60000), numeriert die Zeilen fortlaufend ab 1, gibt die 
Adressen dezimal auf dem Bildschirm und Drucker (Ge¬ 
räteadresse 4) aus und vermag sich nach geleisteter Arbeit 
selbst zu löschen. Dieses Programm muß ebenfalls mit 
MSE abgetippt werden, weil sonst aufgrund einer unter¬ 
schiedlichen Programmlänge Fehler auftreten könnten. 
Änderungen sind also ausgeschlossen. 

»KORREKTURZEILE« (Listing 4), ein Einzeiler, enthält 
hinter einem REM die Bytes, die nach dem Listen der REM- 
Zeilen den Normalzustand des Bildschirms wieder her¬ 
steilen. 
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C64 


PROGRAMMIERHILFEN 


Die Anwendung der Programme 

Nach dem Start mit RUN gibt »MPRG IM BASIC« eine 
Kurzinformation aus und möchte wissen, ob sich das in 
eine Basic-Zeile umzusetzende Maschinenprogramm, 
dessen Startadresse beliebig ist, auf der Diskette im Lauf¬ 
werk befindet. Es wird dann nach dem Programmnamen 
gefragt. Sie können diesen mit den von Floppy-Befehlen 
zugelassenen Jokern (»*« und »?«) abkürzen. Nach der Ein¬ 
gabe wird das Programmfile geöffnet. Der Status der Dis- 


>t J STEPFN+ JJSPCCSTOPUSVSCL 
[JR IGHTS1FT OJ R16HT$RE ITO^RIG 
TAB<-INPUTftSNgi>«-INPUT>Ö v l5I 


2 REM >t •’STEPFt 
1 *-T OER IGHTSIFI 

inputmTab<-ihpui 

T$> AND l"NPUTHAÄDS3PRy NT Ü~yißRREM8r N^CMD NP 

UT-ORjjASC . T0 jjSTFP : ON+-CLg|E«fLEFT$>ANDÜN>L 
EFTS I ifPUTtl/CUNl ORCONT =8FN . UALORORNEU VSP 

3 ( REMCLOSe|fNUNPUTANDFN, INPUTORONAND 3F 

INPUTSTOPUJCONTDIMTOAND LüSYSCONT = ASCOR I NP 

G U REM >1 RUN/ LISTLOGFN-INPUTLlJFN-INPUTU 
T AB < NOT — 


OPdiCONT 


VSCLOSE'JjLEF 
^RIGHTSGOTO 
ÖnWINPUTAND 
DkULOSEivI EF 




Bild 1. So sehen die REM-Zeilen mit den Maschinen¬ 
programmen nach einem LIST-Befehl aus 

kette wird angezeigt. Bei Fehlermeldungen ist die Leertaste 
zu drücken. Bei der darauf folgenden Eingabe können Sie 
eine Zeilennummer von 1 bis 99 wählen. 

Erst jetzt wird das Maschinenprogramm geladen und 
überprüft. Es erscheint ein Vorschlag für den Namen der 
REM-Zeile, der sich aus Zeilennummer und eingegebe¬ 
nem File-Namen zusammensetzt. Diesen Vorschlag kön¬ 
nen Sie unverändert übernehmen oder eigene Eingaben 
tätigen. 

Vor dem Speichern ist Gelegenheit zum Diskettenwech¬ 
sel. Es wird auch hier der Diskettenstatus angezeigt, so daß 
ein irrtümliches Überschreiben eines Programms verhin¬ 
dert wird. Das Speichern ist mehrmals möglich. Nun kön¬ 
nen Sie die nächste Routine bearbeiten lassen oder erst 
das Umwandlungsergebnis in eine REM-Zeile ansehen. 
Entschließen Sie sich zu letzterem, wird das Programm 
gelöscht und die neue REM-Zeile geladen. Die Start¬ 
adresse für den SYS-Aufruf liegt bei 2054. 


Zum Einbinden einer REM-Zeile mit Maschinenpro¬ 
gramm in Ihr Basic-Programm gehen Sie wie folgt vor: 

1. Wandeln Sie zunächst die MERGE-Routine (Listing 2) 
wie gerade beschrieben in eine REM-Zeile um und spei¬ 
chern Sie diese. Anschließend laden Sie diese REM-Zeile 
und starten sie mit SYS 2054. Es erscheint die Frage nach 
dem Namen des noch zu ladenden Programms. 

2. Nacheinander die gewünschten Routinen mit Hilfe von 
MERGE laden, wobei die Reihenfolge hier beliebig ist. 

3. Wenn man alle gewünschten REM-Zeilen für sein Basic- 
Programm geladen hat, hängt man mit MERGE die REM- 
Zeile »Korrekturzeile« (umgewandeltes Listing 4) an. Nun 
merken Sie sich bitte die Anzahl aller REM-Zeilen inklusive 
MERGE und Korrekturzeile. 

4. Das Basic-Hauptprogramm mit MERGE nachladen. Die 
erste Zeilennummer muß größer als die Anzahl der zuvor 
geladenen Zeilen sein. Die höchste Zeilennummer hat klei¬ 
ner als 60000 zu sein. 

5. Die Hilfsroutine »STARTADRESSEN« mit MERGE 
anhängen und mit RUN 60000 starten. Nach dem Aus¬ 
druck der neu ermittelten Einsprungadressen können Sie 
dieses Programm löschen. Prüfen Sie jedoch zuvor, ob Sie 
die MERGE-Routine noch benötigen. Sie steht jetzt in 
Zeile 1. Sobald Sie eine REM-Zeile gelöscht haben, müs¬ 
sen Sie die Routine »STARTADRESSEN« erneut mit RUN 
60000 starten. 

6. Den REM-Zeilen sollte eine Zeile folgen, in der Basic- 
Variablen als Einsprungadressen (wie mit »START¬ 
ADRESSEN« ermittelt) für die Routinen definiert werden, 
zum Beispiel ME=2054 für MERGE. SYS ME ruft dann die 
MERGE-Routine auf. 

Auf der Programmservice-Diskette befindet sich neben 
den Listings 1 bis 4 noch eine Auswahl von zwölf weiteren 
nützlichen Routinen in Maschinensprache. Zusätzlich wur¬ 
den diose gleich in Basic-Zeilen umgesetzt und sind außer¬ 
dem in einem eigenen Demonstrationsprogramm enthal¬ 
ten, welches auch die Anwendung jeder Routine inklusive 
der eventuell nötigen Parameter aufzeigt. 

Wir haben Ihnen hier eine praktikable und interessante 
Programmiertechnik zur Verbindung von Basic und 
Maschinensprache aufgezeigt und sind auf Ihre Reaktio¬ 
nen und vor allem auf die mit dieser Methode entwickelten 
Programme gespannt. 

Sollten Sie also Gefallen an dieser Programmiertechnik 
finden und eigene kleine Routinen entwickeln, können Sie 
uns diese jederzeit zusenden. 

(Axel Hohlfeld/Florian Müller) 


Name i raprg im basic 0801 lOba 


0801 

44 

08 

0a 

00 

8d 

35 

34 

30 

80 

0809 

3a 

99 

22 

11 

11 

20 

45 

53 

88 

0811 

20 

57 

45 

52 

44 

45 

4o 

20 

60 

0819 

50 

52 

4f 

47 

52 

41 

4d 

4d 

4e 

0821 

45 

20 

49 

4e 

20 

4d 

41 

53 

ab 

0829 

43 

48 

49 

4o 

45 

4o 

53 

50 

61 

0831 

52 

41 

43 

48 

45 

20 

4d 

49 

lb 

0839 

54 

20 

42 

49 

53 

20 

5a 

55 

al 

0841 

22 

3b 

00 

91 

08 

14 

00 

99 

87 

0849 

22 

20 

32 

34 

39 

20 

42 

59 

df 

0851 

54 

45 

53 

20 

49 

4e 

20 

42 

2d 

0859 

41 

53 

49 

43 

2d 

5a 

45 

49 

4c 

0861 

4c 

45 

4e 

20 

20 

20 

20 

56 

18 

0869 

45 

52 

50 

41 

43 

4b 

54 

20 

34 

0871 

55 

4e 

44 

20 

41 

55 

54 

4f 

bl 

0879 

4d 

41 

54 

49 

53 

43 

48 

20 

56 

0881 

41 

55 

46 

20 

44 

49 

53 

4b 

75 

0889 

45 

54 54 45 

20 

22 

3b 

00 

b6 

0891 

d6 

08 

le 

00 

99 

22 

20 

20 

5e 

0899 

47 

45 

53 

50 

45 

49 

43 

48 

9e 

08 al 

45 

52 

54 

2e 

22 

2c 

2 c 

2c 

77 

08a9 

22 

11 

20 

49 

48 

52 

20 

53 

c3 

08bl 

54 

41 

52 

54 

20 

4c 

49 

45 

d9 


08b9 

: 

47 

54 

20 

4a 

45 

37 

45 

49 

32 

08 cl 


4c 

53 

20 

42 

45 

49 

20 

81 

29 

08c9 


53 

59 

53 

32 

30 

35 

34 

9a 

97 

08dl 


2e 

20 

20 

22 

00 

00 

09 

28 

dO 

08d9 

t 

00 

99 

22 

11 

11 

11 

20 

42 

ef 

08 el 

i 

49 

54 

54 

45 

20 

9t 

53 

40 

ef 

08e9 

j 

49 

46 

54 

9a 

20 

44 

52 

55 

d6 

08f 1 

J 

45 

43 

4b 

45 

4e 

2e 

22 

3a 

a7 

08f 9 

i 

92 

36 

35 

33 

2 c 

31 

00 

43 

2d 

0901 

i 

09 

64 

00 

8d 

35 

34 

30 

3a 

18 

0909 


99 

2c 

22 

11 

4d 

41 

58 

49 

36 

0911 

t 

4d 

41 

4c 

20 

32 

34 

39 

20 

00 

0919 

s 

5a 

45 

49 

43 

48 

45 

4e 

22 

fd 

0921 

i 

a6 

32 

32 

29 

22 

53 

54 

41 

23 

0929 

j 

52 

54 

20 

4d 

49 

54 

20 

53 

b5 

0931 


59 

53 

32 

30 

35 

34 

11 

11 

22 

0939 

: 

22 

3a 

9f 

32 

2c 

38 

2c 

31 

3o 

0941 

t 

35 

00 

7c 

09 

6e 

00 

99 

22 

48 

0949 


20 

49 

53 

54 

20 

44 

41 

53 

3d 

0951 

i 

20 

50 

52 

47 

20 

41 

55 

46 

05 

0959 


20 

44 

49 

53 

4b 

45 

54 

54 

31 

0961 

: 

45 

20 

28 

4a 

2t 

4e 

•29 

3f 

92 

0969 

: 

22 

3a 

8d 

35 

30 

30 

3a 

0b 

37 

0971 

: 

41 

24 

b2 

22 

4e 

22 

a7 

35 

b4 

0979 

j 

32 

30 

00 

b2 

09 

78 

00 

85 

79 


0901 i 

22 

20 

4e 

41 

4d 

45 

20 

44 

77 

0909 i 

45 

53 

20 

50 

52 

4f 

47 

52 

ab 

0991 ! 

41 

4d 

4d 53 

22 

3b 

4e 

41 

ee 

0999 i 

24 

3a 

9f 

31 

2 c 

38 

2 c 

38 

0 a 

09al ! 

; 2c 

4e 

41 

24 

aa 

22 

2 c 

50 

d6 

09 a9 : 

! 2c 

52 

22 

3a 

8d 

35 

36 

30 

8a 

09bl 

: 00 

de 

09 

82 

00 

0b 

41 

b2 

79 

09b9 ! 

: 36 

32 

a7 

97 

31 

39 

30 

2 c 

fb 

09cl : 

: 30 

3a 

92 

31 

39 

38 

2c 

31 

42 

09c9 : 

: 3a 

8d 

35 

39 

30 

3a 

8d 

35 

b4 

09dl : 

: 39 

30 

3a 

a0 

31 

3a 

89 

31 

32 

09d9 : 

: 32 

30 

00 

0a 

0a 

0C 

00 

99 

9d 

09el : 

; 3a 

99 

3a 

8b 

c9 

28 

4a 

41 

01 

09e9 

: 24 

2 c 

31 

29 

b2 

22 

2 a 

22 

be 

09fl : 

: a7 

41 

b2 

c3 

20 

4e 

41 

24 

aO 


Listing 1. »MPRG IM BASIC« ist 
zwar ein Basic-Programm, muß 
jedoch mit dem MSE (Seite 159) 
eingegeben werden und darf 
keinesfalls geändert werden 



SONDERHEFT 21 


147 














PROGRAMMIERHILFEN 


C64 


09f9 : 29 ab 31 

OaOl : c8 28 4e 

Cla09 : 00 4b Oa 

Oal1 : 20 42 41 

0al9 1 45 49 4c 

0 a21 : 4d 45 52 

Oa29 : 9d 9d 9d 

0a31 : 3a 8b c6 

0a39 : bl 35 37 

Oa41 : 24 29 b3 

0a49 : 30 00 65 

0a51 r b2 c5 28 

Oa59 i 8b 5a 4e 

0a61 : 31 38 30 

Oa69 : 99 22 91 

Oa71 : 48 34 20 

0a79 : 53 45 52 

0a81 i 39 39 21 

0a89 i 20 20 20 

0a91 : 22 3a 97 

0a99 i 3a 92 31 

Oaal : 89 31 35 

0aa9 : 00 53 56 

Oabl i 5a 4e 24 

Oab9 i 4e 41 24 

Oacl : 00 f9 Oa 

0ac9 i 32 30 35 

Oadl : 32 33 30 

0ad9 : 34 39 2c 

Oael : 35 30 2c 

0ae9 : 35 31 2c 
Oaf1 : 30 35 33 

Oaf9 : 20 Ob c8 

ObOl : 41 24 3a 

0b09 ; 24 3a 99 
Obll : 4f 41 44 

Obl9 : 4e 41 24 

Ob21 r Ob d2 00 

0b29 i a4 4e 32 

0b31 : 41 24 3a 

Ob39 : 24 aa c7 

Ob41 : 97 49 2c 

0b49 : 30 a7 49 

0b51 : 89 32 34 

0b59 : 00 8b 53 

0b61 : 00 9b Ob 

0b69 : 22 11 20 

0b71 : 52 41 4d 

0b79 : 4c 41 4e 

0b81 : 97 31 39 

0b89 : 31 39 38 

0b91 : b2 22 4a 

0b99 : 30 00 db 

Obal : b2 49 3a 

0ba9 : 11 20 53 

Obbl : 45 52 4a 

0bb9 : 44 49 53 

Obel : 20 22 2c 

0bc9 : 53 9f 20 

Obdl : 9a 20 28 

0bd9 : 22 00 f8 

Obel ; 30 30 3a 

Obe9 : b2 22 4a 
Obf1 : 22 3a 89 
Obf9 : Oc Oe 01 
OcOl : 34 3a 85 
0c09 : 45 52 20 
Ocll : 41 4d 4d 
0cl9 : 20 22 3b 
0c21 i 39 2c 30 
0c29 : c8 28 41 
0c31 ! 3a 99 22 
0c39 : 01 99 22 
Oc41 : 45 54 54 
Oc49 I 47 45 4c 
0c51 i 55 4e 44 
0c59 ! 46 54 9a 
0c61 i 35 33 2c 
Oc69 : 30 00 8 a 
0071 i 24 b2 53 
0c79 : 33 34 29 
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30 

31 

dO 

0ab9 

: 33 

30 

00 

e5 

Oa 

ec 

ea 

99 

a8 

Oacl : 

: 22 

11 

20 

41 

44 

52 

45 

53 

2f 

0ac9 

: 53 

45 

4e 

20 

41 

55 

43 

48 

b3 

Oadl : 

: 20 

41 

55 

53 

44 

52 

55 

43 

04 

0ad9 

: 4b 

45 

4e 

3f 

20 

28 

4a 

2f 

Od 

Oael : 

: 4e 

29 

22 

00 

fb 

Oa 

£6 

ea 

Oe 

0ae9 

i al 

41 

24 

3a 

8b 

41 

24 

b2 

34 

Oaf 1 : 

: 22 

4e 

22 

a7 

36 

30 

32 

30 

c6 

Oaf 9 

: 30 

00 

Oe 

Ob 

00 

eb 

8b 

41 

le 

ObOl : 

: 24 

b3 

bl 

22 

4a 

22 

a7 

36 

70 

0b09 

: 30 

31 

35 

30 

00 

4b 

Ob 

Oa 

cO 

Obll 

: eb 

99 

22 

20 

57 

45 

4e 

4e 

cb 

0bl9 

: 20 

44 

52 

55 

43 

4b 

45 

52 

e3 

0b21 

: 20 

42 

45 

52 

45 

49 

54 

2c 

46 

0b29 

: 20 

44 

41 

4e 

4o 

20 

05 

53 

26 

0b31 

: 48 

49 

46 

54 

9a 

22 

3a 

92 

03 

0b39 

: 36 

35 

33 

2c 

31 

3a 

5a 

b2 

10 

0b41 : 

i 30 

3a 

9f 

34 

2c 

34 

3a 

9d 

85 

0b49 

: 34 

00 

6f 

Ob 

14 

eb 

99 

2c 

la 

0b51 : 

: 3a 

81 

49 

b2 

31 

&4 

36 

3a 

7a 

0b59 

: 8b 

53 

41 

28 

49 

aa 

5a 

29 

89 

0b61 : 

: a7 

99 

53 

41 

28 

49 

aa 

5a 

f e 

0b69 

: 29 

22 

9d 

22 

3b 

00 

89 

Ob 

3f 

0b71 

: 19 

eb 

82 

3a 

Sa 

b2 

5a 

aa 

62 

0b79 

: 36 

3a 

99 

3a 

8b 

5a 

b3 

41 

57 

0b81 : 

: 5a 

a7 

36 

30 

31 

38 

30 

00 

d8 

0b89 

: 93 

Ob 

le 

eb 

98 

34 

3a 

aO 

fc 

0b91 

: 34 

00 

de 

Ob 

28 

eb 

99 

22 

ea 

0b99 

: 11 

20 

45 

49 

4e 

20 

54 

49 

ff 

Obal 

: 50 

3a 

20 

41 

44 

52 

45 

53 

dl 

0ba9 

: 53 

45 

4e 

20 

49 

4e 

20 

52 

63 

Obbl 

: 45 

4d 

2d 

5a 

45 

49 

4c 

45 

8e 

0bb9 

: 4e 

20 

46 

41 

53 

53 

45 

4e 

53 

Obel 

: 20 

20 

42 

5a 

57 

20 

56 

41 

20 

0bc9 

: 52 

49 

41 

42 

4c 

45 

4e 

20 

cl 

Obdl 

: 5a 

55 

4f 

52 

44 

4e 

45 

4e 

5c 

0bd9 

: 21 

22 

00 

lb 

Oc 

32 

eb 

99 

a4 

Obel ! 

; 22 

11 

20 

53 

4f 

4c 

4c 

20 

c7 


0be9 : 

44 

49 

45 

53 

45 

53 

20 

53 

a4 

Obf 1 : 

i 55 

43 

48 

50 

52 

4f 

47 

52 

65 

0bf9 i 

41 

4d 

4d 

20 

22 

2c 

2c 

22 

bl 

OcOl ! 

; 20 

47 

45 

4c 

4f 

45 

53 

43 

93 

0c09 ! 

48 

54 

20 

57 

45 

52 

44 

45 

fl 

Ocl 1 ! 

: 4e 

20 

28 

4a 

2f 

4e 

29 

3f 

4b 

0cl9 i 

: 22 

00 

2d 

Oc 

3c 

eb 

al 

41 

34 

0 c 21 ! 

: 24 

3a 

8b 

41 

24 

b2 

22 

4e 

6a 

0c29 i 

; 22 

a7 

80 

00 

40 

Oc 

46 

eb 

94 

Oc31 

: 8b 

41 

24 

b3 

bl 

22 

4a 

22 

76 

0c39 : 

; a7 

36 

30 

32 

32 

30 

00 

71 

d5 

Oc41 

: Oc 

50 

eb 

41 

b2 

c 2 

28 

34 

e3 

Oc49 : 

; 35 

29 

aa 

c 2 

28 

34 

36 

29 

65 

0c51 : 

i ac 

32 

35 

36 

ab 

31 

31 

37 

a2 

0c59 ! 

: 38 

3a 

97 

32 

35 

31 

2c 

41 

eb 

0c61 . 

: af 

32 

35 

35 

3a 

97 

32 

35 

bl 

Oc69 : 

: 32 

2c 

41 

ad 

32 

35 

36 

00 

5d 

0c71 

: 9b 

Oc 

5a 

eb 

97 

41 

ab 

32 

bd 

0c79 : 

: 2 c 

30 

3a 

97 

41 

ab 

31 

2c 

cd 

0c81 

: 30 

3a 

97 

34 

35 

2 c 

c2 

28 

4b 

0c89 ; 

: 32 

35 

31 

29 

3a 

97 

34 

36 

65 

0c91 

: 2c 

c2 

28 

32 

35 

32 

29 

3a 

6d 

0c99 : 

: 9c 

00 

00 

00 

4e 

56 

3a 

97 

e5 


Listing 3. ..STARTADRESSEN« ist 
ebenfalls mit dem MSE einzugeben 
und darf nicht geändert werden 


Name ! korrekturzelle 0801 0810 


0801 : Oe 08 63 00 8f 22 Od 9a 60 
0809 : 8e 93’92 09 00 00 00 52 ob 

Listing 4. ..KORREKTURZEILE«: 
Auch diese einzelne Basic-Zeile 
wird mit dem MSE eingegeben 



T fFfrrrfrfftli fr fff ff ff ff 


'' *. ■>;> V/v V 1 '’-’v’:, 1 1 

■■■ ■ 

*>??/ "'/{.* W:\ rt; 


■ ■ ■ . 
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TABELLEN 


C64 


Der Befehls¬ 
satz des 6510 


Hier finden Sie, alphabetisch geordnet, eine aus¬ 
führliche Auflistung aller bekannten Befehle des 
C64-Prozessors. Dazu gehören auch die »illega¬ 
len Opcodes«. 

Z uerst ein Wort zu den illegalen Opcodes, die in Tabelle 
1 enthalten sind: 

Seit Erscheinen des C64 sind einige verschiedene 
Versionen des Prozessors 6510 gebaut worden. Diese sind 
untereinander voll kompatibel, was den normalen Befehls¬ 
satz aus Tabelle 2 anbetrifft. Die illegalen Opcodes jedoch 
laufen nicht auf allen Versionen der CPU 6510. Welche 
Befehle auf welchem Computer eine korrekte Ausführung 
bewirken, läßt sich nur durch Ausprobieren feststellen. 
Äußerst hilfreich dabei ist der SMON: Er zeigt einen illega¬ 
len Opcode nicht wie die meisten Maschinensprachmoni- 
tore durch drei Fragezeichen an, sondern disassembliert 
den Befehl mit den in Tabelle 1 genannten Abkürzungen. 
Ein vorangestelltes Sternchen (*) kennzeichnet bei SMON 
(Sonderheft 8/85) den Befehl als illegalen Opcode (zum 
Beispiel *AXS). 

In Tabelle 3 finden Sie eine Übersicht über die in den bei¬ 
den anderen Tabellen verwendeten Abkürzungen. (sk) 

_ 5W 


■ AU : AND register with *11 

Das. X- bezi ehungsweise Y-Reqister wird mit *11 AND- 
verknüpft und das Ergebnis X- beziehungsweise y- 
indiziert abgelegt 

Addressierungsarteo.! 

Assembler: Hex-Code: Abkürzung: Byte: 


All 0P,X 
All OP,Y 


9C 

9E 


ABX 

ABY 


■ AAX : AND akku with X-Register and störe akku 
Entspricht bef ehlsf olqe: . 

AND zwischen Akku und X-Reqister 
STA 


Addceasi.erungsarten, 


Assembler: 

Hex-Code: 

Abkürzung: 

AAX «OP 

BB 

IM 

AAX 0P 

07 

ZP 

AAX 0P,Y 

97 

ZPY 

AAX OP 

BF 

ABB 

AAX (OP,X> 

03 

<ap,x) 


Byte: 

2 

2 

2 

3 

2 


■ ASR : AND with akku and ahift right 
Entspricht Befehlsfolge: 

AND 

LSR 

öSdressigrunasarteQ!. 

Assembler: Hex-Code: Abkürzung: Byte: 


ASR DOP 


6B 


IM 


■ ARR : AND with akku and rotate riqht 
Entspricht Befehlsfolge: 

AND 

ROR 

Ad dr es si_erungc arten: 

Assembler: Hex-Code: Abkürzung: Byte: 


ARR »OP 


IM 


■ AXS : AND akku and X-reqister and subtract from data 
Der Wert wird van dem Ergebnis der AND-Verknüpfung 
zwischen Akku und X-Register subtrahiert und in das X- 
Register geschrieben. 

A d d r e s s i e r u n g s a r; ton:. 

Assembler: Hex-Code: Abkürzung: Byte: 


AXS «OP 


CB 


IM 


■ DCP : decrement and compare with akku 
Entspricht Befehlsfolge: 

DEC 

CMP 

Address! erungtäart.eal 


Assembler: Hex-Code: 

Abkürzung: 

Byte: 

DCP 0P 

C7 

ZP 

2 

DCP OP,X 

D7 

ZPX 

2 

DCP OP 

CF 

ABS 

3 

DCP OP,X 

DF 

ABX 

3 

DCP OP,Y 

DB 

ABY 

3 

DCP (0P,X> 

C3 

<ZP,X> 

2 

DCP (0P1,Y 

D3 

(ZP),Y 

2 

■ DGP fl double NÜP 




Folgende Codes wirken 

wie der NÜP- 

-Befehl, sind 

zwei Byte lang. 

DaB zweite 

Byte wird 

übersprungen. 




0«, 14, 34, 44, 54, 

64, 

74, D4, F4, 

80, 89, 93 

■ISC : increment and subtract with carry 

Entspricht Befehl Bf olge 



INC 




SBC 




Addressierungsarten. 




Assemblers Hex-Code: 

Abkürzung: 

Byte: 

ISC 0P 

E7 

ZP 

2 

ISC OP,X 

F7 

ZPX 

2 

ISC 0P 

EF 

ABS 

3 

ISC np.x 

ISC C- 7 

FF 

FB 

ABX 

ABY 

3 

3 

ISC <OP,X> 

E3 

(DP,X) 

2 

ISC (0P),Y 

F3 

(QP),Y 

2 


dabei 


■ KIL : killer Codes 

Folgende Codes bewirken einen Absturz des Prozessors, 
dem auch mit einem RUN/STOP-RESTORE nicht mehr 
beizukommen ist. 

02, 12, 22, 32, «2, 52, 62, 72, 92, B2, D2, F2 


■ LAR : load akku, AND with stackregister, 
result to akku, X-reqister and Stackregister 
Entspricht Befehlsfolge: 

LDA 
AND 
TAX 
TXS - 

öddcesBLecungsartBoi 


transf er 


Assembler: 

Hex-Code: 

Abkürzung: 

Byte: 

LAR 0B,Y 

BB 

ABY 

3 

■ LAX : load to akku and 

X-reqlster 


Entspricht 

LDA 

Befehlsfolge: 



TAX 




AdtdrgH sI bCUQQBBC t pn 1 



Assembler: 

Hex-Codei 

Abkürzung: 

Byte: 

LAX OP 

A7 

ZP 

2 

LAX 0P,Y 

B7 

ZPY 

2 

LAX OP 

AF 

ABS 

3 

LAX OP,Y 

BF 

ABY 

3 

LAX (0P,X) 

A3 

<OP,X> 

2 

LAX (0P),Y 

B3 

(0P),Y 

2 


- - - 

■ NÜP « no Operation 

Folgende Codes haben wie der Code *EA die NOP-Funktion: 
1A, 3A, 5A, 7A, DA, FA 

Tabelle 1. Die »illegalen Opcodes« des 6510-Prozessors 
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C64 


TABELLEN 


RLA ! rotate left, AND with akku and störe akku 
Entspricht Befehl Bfolge: 


ROL 

AND 

STA 


addressigcuogsacteoi 


Byte: 

Assembler: 

Hex-Code: 

Abkürzung: 

RLA OP 

27 

ZP 

2 

RLA OP,X 

37 

ZPX 

2 

RLA OP 

2F 

ABS 

3 

RLA OP,X 

3F 

ABX 

3 

RLA OP,Y 

3B 

ABY 

3 

RLA (OP,X) 

23 

<OP,X> 

2 

RLA (OP),Y 

33 

(OP),Y 

2 


■ RRA : , rotate right and add with carry 
Entspricht Befehlsfolgei 

ROR 

ADC 


Agd.rBssi.BcuagoaEteQi 

Assembler! Hex-Code: 


RRA OP 
RRA OP,X 
RRA OP 
RRA OP,X 
RRA OP,Y 
RRA (OP,X) 
RRA (OP),Y 


67 

77 

6F 

7F 

7B 

63 

73 


AbkUrzung! Byte! 

ZP 
ZPX 
ABS 
ABX 
ABY 
<OP,X> 

(OP),Y 


I SLO 


shift left and OR with akku 


Entspricht Befehlsfolgei 

ASL 

ORA 

Addressiecunggarteru 


Assembler: 

Hex-Code: 

Abkürzung: 

SLO OP 

07 

ZP 

SLO DP,X 

17 

ZPX 

SLO OP 

0F 

ABS 

SLO OP,X 

IF 

ABX 

SLO OP,Y 

1B 

ABY 

SLO (OP,X> 

13 

<OP,X) 

SLO (OP),Y 

03 

(OP) ,Y 


Byte! 


■ SRE : shift right and EQR with akku 

Entspricht Befehlsfolgei 

LSR 

EOR 

eädr-gSStBOUngBarteDi 


Assembler: 

Hex-Codei 

Abkürzung: 

SRE OP 

47 

ZP 

SRE OP,X 

57 

ZPX 

SRE OP 

4F 

ABS 

SRE OP,X 

5F 

ABX 

SRE OP,Y 

SB 

ABY 

SRE <OP,X> 

43 

<OP,X> 

SRE (OP),Y 

53 

<OP>,Y 


Byte: 


■ TOP i triple NOP 

Folgende Codes wirken wie der NOP-Befehl, sind aber 
drei Byte lang. Das zweite und das dritte Byte wird 
dabei übersprungen. 

0C, IC, 3C, 5C, 7C, DC, FC 

Tabelle 1. Die »illegalen Opcodes« des 6510-Prozessors 
(Schluß) 


■ ADC ! add with carry 

addiere AdreBseninhalt plus Carry-Flag zum Akkumulator 
Elsas! N Z C 1 D V 


AddressierungsärSeot 
Assembler! Hex-Code! 


Abkürzung! Byte: Takte! 


ADC OOP 
ADC OP 
ADC OP,X 
ADC OP 
ADC OP,X 
ADC OP,Y 
ADC (OP,X> 
ADC (OP),Y 


6? 

65 

75 

6D 

7D 

79 

61 

71 


IM 
ZP 
ZPX 
ABB 
ABX 
ABY 
(ZP,X> 
(ZP),Y 


■ AND ! AND akku 

verknüpfe Speicher mit Akku durch logische UND 


Flagsi N Z C I D V 
+ + 

AddresBisrungsarSen 


Assembler: 

Hex-Code: 

Abkürzunqi 

Byte! 

Taktei 

AND DOP 


29 

IM 

2 

2 

AND OP 


25 

ZP 

2 

3 

AND OP,X 


35 

ZPX 

2 

4 

AND OP 


2D 

ABS 

3 

4 

AND OP,X 


3D 

ABX 

3 

4 

AND OP,Y 


39 

ABY 

3 

4 

AND (OP,X> 


21 

(ZP,X> 

2 

6 

AND (OP),Y 


31 

(ZP),Y 

2 

5 

■ ASL i arithmetic 
schiebe Bits eineB 

shift left 
Speichers um eine 

Stelle 

nach links 


Eiagsi N Z C I D V 


Adressier unasarteni 
Assembler! Hex-Codei 


ASL 
ASL OP 
ASL OP,X 
ASL OP 
ASL OP,X 


0A 

06 

16 

0E 

IE 


Abkürzung! Byte: Takte! 

Akku 1 2 

ZP 2 5 

ZPX 2 6 

ABB 3 6 

ABX 3 7 


■ BCC ! branch if carry clear 

verzweige, falls das Übertragsbit gelöscht ist 


Flagii N Z C I D V 
keine 

Addressierungsarten! 
Assembler: Hex-Code! 


BCC OP 


90 


Abkürzung! 

REL 


Byte! 


Takte: 

2 


I BCS i branch if carry set 

ver. •-< ge, falls das Ubertragsbit gesetzt ist 

Flagsi N Z C I D V 
keine 


AddressietuQgsartegi 

Assembler! Hex-Code: 


BCS OP 


B0 


Abkürzung: 

REL 


Byte: 


Takte: 

2 


■ BEQ : branch if equal (to zero) 

verzweige, falls das Ergebnis der letzten Operation 
gleich (Null) war 

EUqbl N Z C I D V 
keine 


AddrgssierungsacJgn.:. 
Assembler: Hex-Codei 


BEQ OP 


F0 


Abkürzung! 

REL 


Byte! 

2 


Taktei 


■ BIT : test bits 

verknüpfe Speicher und Akku durch AND, setze 
entsprechende Flags (Akku wird nicht verändert !) 

Ei.es»* n z c i d v 
+ + + 


öädcMsiscyngsar.fceot 

Assembler! Hex-Code: 


BIT OP 
BIT OP 


2*1 

2C 


Abkürzung: Byte: Takte: 

ZP 2 3 

ABS 3 4 


■ BMI ! branch If minus 

verzweige, falls das Ergebnis der letzten Operation 
kleiner Null war 

Eiaau n z c i d v 

kei ne 


Qddrgssjerungsacten: 

Assembler! Hex-Code: Abkürzung: 

30 REL 


Byte: 


BMI OP 

Tabelle 2. Die Befehle des 6510-Prozessors 


Taktej 
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TABELLEN 


C64 


■ BNE i branch if not equal <to zero) 

verzweige, falls das Ergebnis der letzten Operation 
ungleich (Null)' war 

Elaasi N Z C I D V 

keine 

eädCBSsiBcyogsactsoi 

Assembler! Hex-Code: Abkürzung! Byte: Taktei 

BNE OP D0 REL 2 2 


■ BPL i branch if plus 

verzweige, falls das Ergebnis der letzten Operation 
grüßer Null war 

Elaasi n z c i d v 

keine 

öctElcBsslBcyagsflctBOA 

Assembler! Hox-Codei Abkürzung! Byte! Takte! 

BPL OP 10 REL 2 2 


■ BRK i break 

ProgrammBtop und Bprunq Uber Breakpointer 

Elsas! N Z C 1 D V 
+ 

AddcssgigrungsactsD! 

Assembler! Hex-Codei Abkürzung! Byte! Takte: 
BRK 00 - 1 7 


■ BVC : branch lf overflow clear 

verzweige, falls das Uberlaufsbit gelöscht ist 

E1«3S! N Z C I D V 
keine 

eääCSSsierungsarteni 

Assembler: Hex-Code: Abkürzung: Byte: Takte: 
BVC OP 50 REL 2 2 


■ BVS : branch if overflow set 

verzweige, falls das Überlaufsbit gesetzt ist 

Fl§g9i N Z C I D V 
kei ne 

AddressierungsacfceQi 

Assembler: Hex-Code: Abkürzung: Byte: Takte: 
BVS OP 70 REL 2 2 


■ CLC : clear carry 
lösche das Übertragsbit 

EUflll N Z C I D V 
+ 

OddrgBsieryngsäctgni 

Assembler! Hex-Codei Abkürzung! Byte! Takt»! 
CLC 1B i 2 


■ CLD : clear decimal mode 

lösche das Bit für den Dezimalmodus 

E193B1 N Z C I D V 

+ 

eöäcBsslscyog@actgoi 

Assembler! Hex-Codei -Abkürzung! Byte! Taktei 
CLD DB - 1 2 


■ CLI i clear Interrupt flag 

lösche das Interruptbit (Interrupts nun erlaubt) 

ElSBS! NICI'DV 


eädrggsiecyngsacSgQi 

Assembler! Hex-Codei Abkürzung: Byte! Takte! 
CLI SB - 1 2 


■ CLV ! clear overflow flag 
lösche das Überlaufbit 


Elagsi N Z C 1 D V 


öddcBssiscyDaBscteDi 


nasLBssts'-ai 

Assembler: 

jaae'-isui 

Hex-Code: 

Abkürzung: 

Byte: 

Taktei 

CLV 

B8 

- 

1 

2 


■ CMP i compare with akku 
vergleiche Speicher mit Akkuinhalt 

Elsasi N Z C I D V 
+ + + 


8ddcBS8iBcyDg»*ctsoi 


Ässembleri 

Hex-Codei 

Abkürzung! 

Byte! 

Takte: 

CMP «OP 

C9 

IM 

2 

2 

CMP OF 

CS 

ZP 

2 

3 

CMP 0P,X 

D3 

ZPX 

2 

4 

CMP OP 

CD 

ABS 

3 

4 

CMP 0P,X 

DD 

ABX 

3 

4 

CMP OP,Y 

D7 

ABY 

3 

4 

CMP (0P,X> 

CI 

(ZP,X> 

2 

6 

CMP (OP),Y 

Dl 

(ZP),Y 

2 

5 


■ CPX » compare with X-regioter 
vergleiche Bpeicherinhalt mit X-Register 

Elaasi n z c i d v 

+ + + 

Addressierungsarten: 


Assembleri 

Hex-Code: 

Abkürzung! 

Byte! 

Taktei 

CPX #0P 

EO 

IM 

2 

2 

CPX OP 

E4 

ZP 

2 

3 

CPX OP 

EC 

ABS 

3 

4 


■ CPY i compare with Y-register 
vergleiche Speicherinhalt mit Y-RegiBter 

Flagg! N Z C I D V 


Addressierungsactgoi 

Assem 11 ''": Hex-Code: Abkürzung: Byte: Takte: 


CPY 

»OP 

C0 

CPY 

OP 

C4 

CPY 

OP 

CC 


IM 2 2 

ZP 2 3 

ABS 3 4 


■ DEC : decrement 

subtrahiere Eins von Speicherinhalt 

E1.83»! N Z C I D V 
+ + 


SddCBSsiecyogsarteD! 


Assembler: 

Hex-Codei 

Abkürzung: 

Bytei 

Taktei 

DEC OP 

C6 

ZP 

2 

3 

DEC 0P,X 

D6 

ZPX 

2 

6 

DEC OP 

CE 

ABS 

3 

6 

DEC 0P,X 

DE 

ABX 

3 

7 


■ DEX : decrement X-register 

subtrahiere Eins vom Inhalt des X-Registers 

Elsasi N Z C I D V 
+ + 

MdCSSSlBCUDaSSCSiRD! 

Assembleri Hex-Code: Abkürzung! Byte! Takte! 
DEX CA 1 2 


■ DEY i decrement Y-register 

subtrahiere EinB vom Inhalt des Y-Registers 

Elsa»! N Z C 1 D V 
+ + 

öddCSSSiSCyngsarteo! 

Assembler: Hex-Codei Abkürzung! Byte: Takte: 
DEY SB - 1 2 


■ EOR : exclusive-or 

verknüpfe Akku und Speicher durch Ionisches EXKLUSIV¬ 
ODER 

Elaggi N Z C I D V 
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C64 


TABELLEN 


Addres.BierHngsarten: 

Assembler: Hex-Code: Abkürzung: Byte: Takte: 


EOR #0P 

49 

IM 

2 

2 

EOR OP 

45 

ZP 

2 

3 

EOR OP,X 

55 

ZPX 

2 

4 

EOR OP 

4D 

ABS 

3 

4 

EOR OP,X 

5D 

ABX 

3 

4 

EOR OP,Y 

59 

ABY 

3 

4 

EOR (OP,X) 

41 

(ZP.X) 

2 

6 

EOR (OP),Y 

51 

< ZP),Y 

2 

S 


■ INC s increment 

addiere Eins zu Speicherinhalt 


E1.99S! N Z C I D V 
■f + 

ßdäcBssiscuDgssctaoi 

Assembler: Hex-Code: 

INC OP E 6 

INC OP,X F 6 

INC OP EG 

INC OP,X FE 


Byte: Takte: 

ZP 2 3 

ZPX 2 6 

ABS 3 6 

ABX 3 7 


Abkürzung: 


■ INX : increment X-register 
addiere Eins zu X-Regiaterinhalt 

E1#0B1 N Z C I D V 


AddressigcyDgsarten! 
Assembler: Hex-Codei 

Abkürzung: 

Byte: 

Takte 

INX ES 

- 

1 



■ INY : increment Y-register 
addiere Eins zu Y-Registerinhalt 

Flagsi. N Z C I D V 
+ + 

Addressigrungsarten! 

Assembler: Hex-Code: Abkürzung: Byte: Takte: 


INY CB - 1 2 



■ JMP : jump 
springe zu Adresse 


Flags* N Z C I D V 
kei ne 


Addressiecungsarten: 
Assembler: Hex-Code: 

Abkürzung: 

Byte: 

Takte: 

JMP OP 

4C 

ABS 

3 

3 

JMP (OP) 

6 C 

IND 

3 

5 


■ JSR : jump subroutine 
Springe in Unterprogramm 

Flags.?. n z c i d v 
keine 

0ä5).c9s»iscaoa»sc*Bni 

Assembler: Heil-Code: Abkürzung: Byte: Takte: 

JSR OP 20 ABS 3 6 


rn LDA : load akku 
schreibe Wert in Akku 

E 1.991! N Z C I D V 
+ + 


AddrssBiBCWngssrten.: 


Assembler: 

Hex-Code: 

Abkürzung: 

LDA «OP 

A9 

IM 

LDA OP 

A5 

ZP 

LDA OP,X 

B5 

ZPX 

LDA OP 

AD 

ABS 

LDA OP,X 

BD 

ABX 

LDA OP,Y 

B9 

ABY 

LDA (OR,X) 

Al 

(ZP,X) 

LDA (OP),Y 

Bl 

(ZP),Y 


■ LDX : load X-reqister 
schreibe Wert ins X-Register 


Byte: Takte: 


2 

2 

2 

3 

3 

3 

2 

2 


2 

3 
<1 

4 
4 

4 
6 

5 


E199S- N Z C I D V 


O 


Addressierungsarten: 


Assembler: 

Hex-Code: 

Abkürzung: 

Byte: 

Takte: 

LDX «OP 

A2 

IM 

2 

2 

LDX DP 

A 6 

ZP 

2 

3 

LDX QF‘, Y 

B 6 

ZPY 

2 

4 

LDX OP 

AE 

ABS 

3 

4 

LDX OP,Y 

BE 

ABY 

3 

4 

■ LDY : load 

Y-register 





schreibe Wert ins Y-Register 


Flagg? N Z C I D V 


0 ddrgs 8 i»cuogs#ctPDJ 
Assembler: Hex-Code: 

Abkürzung: 

Byte: 

Takte: 

LDY »OP 

OM 

IM 

2 

2 

LDY OP 

A4 

ZP 

2 

3 

LDY QP.X 

B4 

ZPX 

2 

4 

LDY OP 

AC 

ABS 

3 

4 

LDY QP,X 

BC 

ABX 

3 

4 


■ LSR : logical shift right 

bitweises Rechtsschieben eines Bpeicherinhalts 

(Bit 0 wird ins Carry-Flag geschoben, Bit 7 wird aut 

Null gesetzt) 

E1S9S1 N Z C I D V 
+ + + 

eädreBglecuQgsarten: 


Assembleri 

Hex-Code: 

Abkürzung: 

Byte: 

Takte: 

LSR 

4A 

Akku 

i 

2 

LSR OP 

46 

ZP 

2 

5 

LSR OP,X 

56 

ZPX 

2 

6 

LSR OP 

4E 

OBS 

3 

6 

LSR OP,X 

5E 

OBX 

3 

7 

■ NOP : no 

Operation 





keine Ausführung (Dummy-Befehl) 


Flags! N Z C I D V 
kei ne 


Addr . :i erungsarten: 
Assembler: Hex-Code: 

NOP EA 

Abkürzung: 

Byte: 

1 

Takte: 

2 

■ ORO : OR akku 




verknüpfe Speicherinhalt und Akku durch logisches ODER 

Elä99i N Z l 

: I D V 




+ + 





ßddressleryngsarten: 




Assembler: 

Hex-Code: 

Abkürzung: 

Byte: 

Takte: 

ORA »OP 

09 

IM 

2 

2 

ORA OP 

05 

ZP 

2 

3 

ORA ÜP,X 

15 

ZPX 

2 

4 

ORA OP 

0D 

ABS 

3 

4 

ORA OP,X 

ID 

ABX 

3 

4 

ORA OP,Y 

19 

ABY 

3 

4 

ORA (OP,X) 

01 

(ZP,X) 

2 

6 

ORA (OP),Y 

11 

(ZP),Y 

2 

5 

■ PHA : push akku 




Bchiebe Akkuinhalt auf Stack 



Eiagss n z i 

D I D V 




kei ne 




ßddrgssieruogsSCtBnl 




Assembler: 

Hex-Code: 

Abkürzung: 

Byte: 

Takte» 

PHA 

40 

- 

1 

3 


■ PHP : push processo:—Status 
schiebe Statusregister auf Stack 

Elagsi X Z c i D V 

kei ne 

eddrgssie c ungsar;teQi 


Assembler! 

Hex-Code: 

Abkürzung: 

Byte: 

Takte: 

PHP 

0S 

- 

1 

3 


Tabelle 2. Die Befehle des 6510-Prozessors 
(Fortsetzung) 
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TABELLEN 


C64 


■ PLA : pull akku 

lade Akku mit oberstem Stackbyte 

Eiaaw. n z c i d v 
+ + 

eddcesgiecuogsSCSSDi 

Assembleri Heii-Codei Abkürzung: Byte! Taktei 
PLA 68 1 3 


■ PLP x pul 1 processor-status 

lade Statusregister mit oberstem Stackbyte 

Flagsj. N Z C I D V 
+ + + + + + 

6 ädt:*s*l*cyag»»cS«Di 

Assembler! Hex-Code: AbkUrzungi Bytei Taktei 
PLP 28 1 *1 


■ ROL i rotate left 

rotiere Speicherinhalt um ein Bit nach links 
(Bit 7 kommt ins Carryflag, Inhalt des Carry-Fl ags 
kommt ins Bit 0) 

Elsaai n z c i d v 

+ + + 


Agdressierungsar.teDi 
Assemblers Hex-Code: 

Abkürzung: 

Byte! Takte 

ROL 

2A 

Akku 

1 

ROL OP 

26 

ZP 

2 

ROL OP,X 

36 

ZPX 

2 

ROL ÜP 

2E 

ABS 

3 

ROL OP,X 

3E 

ABX 

3 


■ ROR i rotate right 

rotiere Spei eherinhalt um ein Bit nach rechts 

(Bit 0 kommt ins Carryflag, Inhalt des Carryflags kommt 

ins Bit 7) 


Elagsi n z c i d v 
+ + + 

«Mi 


Addressietungsartgn: 
Assembler: Hex-Code: 

Abkürzung: 

Byte: 

Takte: 

ROR 

6A 

Akku 

1 

2 

ROR OP 

66 

ZP 

2 

5 

ROR OP,X 

76 

ZPX 

2 

6 

ROR OP 

6E 

ABS 

3 

6 

ROR OP,X 

7E 

ABX 

3 

7 


■ RTI ! return from interrupt 

nach Ausfuhren eines Interupt normales Programm weiter 
abarbeiten 

E1.SBE1 N Z C I D V 

wie vor Ausführung des Interrupts 

A d d r §s sie r u n g s a r t e r): 

Assembler! Hex-Codei Abkürzung: Byte! Takte! 

RTI 10 - 1 , 6 . 


■ RTB : return from subrautine 
RÜckoprung aus Unterprogramm 

Elton N Z C 1 D V 
keine 

ÖSldeSMltEUngaACSBDI 

Assembleri Hex-Code: Abkürzung! Byte! Takte! 
RTB 60 - 1 6 


■ SBC : subtract with darry 

subtrahiere Speicherinhalt vom Akku unter Berücksichti¬ 
gung des Vorzeichens 

ELeaai n z c i d v 
+ + + + 

edäcgBBlecyogssc.tgfni. 


Assembler: 

Hex-Code: 

Abkürzung: 

Byte: 

Takte: 

SBC OOP 

E9 

IM 

2 

2 

SBC OP 

ES 

ZP 

2 

3 

SBC OP,X 

F5 

ZPX 

2 

4 

SBC OP 

ED 

ABS 

3 

4 

SBC OP,X 

FD 

ABX 

3 

4 


SBC OP,Y 

F9 

ABY 

3 

4 

SBC (QP,X> 

El 

(ZP,X) 

2 

6 

SBC (OP),Y 

Fl 

(ZP),Y 

2 

5 


■ SEC i set carry 

setze das Libertragsflaq auf Eins 

Elagsi n z c i D' v 

+ 

öddressigcyngsacStCU 

Assembler! Hex-Code: Abkürzung! Byte: Taktei 
SEC 38 - 1 2 


■ SED i set decimal mode 

setze das Dezimal-Modus-Flag auf Eins 

Elagsi n z c i d v 

+ 


öflöcssiiBcuDassctaDi 

Assembler! Hex-Code: Abkürzung! Byte! Takte! 


3ED 


F8 


1 2 


■ SEI : set Interrupt 

setze das Iriterrup tf 1 ag auf Eins (es werden keine 
Interrupts mehr erlaubt) 

Elagsi n z c i d v 
+ 


□S“US”iSLW 

Assembler s 

JÜ3aLi6U.t 

Hex-Code b 

Abkürzung: 

Byte: 

Takte 

SEI 

78 

- 

1 



■ STA s störe akku 

schreibe Akkuinhalt in Speicher 

Elagsi N Z C I D V 
kei ne 


Addressieruogsarteni 
Asse-' 1 '' »r: Hex-Code: 

Abkürzung: 

Byte: 

Takte: 

STA OP 

85 

ZP 

2 

3 

STA OP,X 

95 

ZPX 

2 

4 

STA OP 

8D 

ABS 

3 

4 

STA OP,X 

9D 

ABX 

3 

5 

STA OP,Y 

99 

ABY 

3 

5 

STA (OP,X> 

81 

(ZP,X) 

2 

6 

STA (OP),Y 

91 

(ZP),Y 

2 

6 


■ BTX s störe X-register 

schreibe X-Registerinhalt in Speicher 

FiS9§J. N Z C I D V 
keine 


Adgrgggi.scyngsar.lBoi 

Assembler: Hex-Code: 

Abkürzung: Byte 

: Takte 

STX OP 

86 

ZP 

2 

STX OP,Y 

96 

ZPY 

2 

STX OP 

SE 

ABS 

3 


■ BTY : störe Y-reqister 

schreibe Y-Registerinhalt in Speicher 

Elagsi n z c i d v 

kei ne 

ödäCBBBlBCuoaiacSBDi 


Assembler: 

Hex-Codei 

Abkürzung: 

Byte: Takte: 

STY OP 

84 

ZP 

2 3 

STY OP,X 

94 

ZPX 

2 4 

8TY OP 

SC 

ABS 

3 4 


■ TAX ! transfer akku to X-register 
schreibe Akkuinhalt ins X-Register 

Elagsi N Z C I D V 

•f + 


AddregsierungsactgDl 

Assembler! Hex-Code: Abkürzung: Byte! Takte: 


TAX 


AA 


1 2 
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C64 


TABELLEN 


■ TAY.: transfer akliu to Y-register 
schreibe Akkuinhalt ins Y-Reqister 


Elaas} 


N Z C I D V 


edäcsssiBcyngsscteni 

Assembler: Heu-Code: Abkürzung: Byte: Takte: 


TAY 
-V_ 


AB 


■ TBX I transfer stackregister to X-register 
schreibe Stackregisterinhalt ins X-Register 

Flags» N Z C I D V 


0äöcsssi.@cwngBäCtBBi , „ . _ . . 

Assembler: Hex-Code: Abkürzung: Byte: Takte: 


TSX 


BA 


■ TXA : transfer X-reglater to akku 
ELSAS). N Z C I D Y 


aääCSSSiSCUDBSflCtBDI 

Assembler: Heu-Code: Abkürzung: Byte: Takte: 


TXA 


BA 


■ TXB : transfer X-register to stackregister 
schreibe X-Reqisterinhalt ins Stackregister 

Elags» N Z C I D V 
keine 

Addressiecyoggarten: 

Assembler: Hex-Code: Abkürzung: Byte: Takte: 


TXS 


9A 


■ TYA : transfer Y-register to akku 
schreibe Y-Registerinhalt in Akku 

Flggs» N Z C I D V 


0 ddressi§rungsar;tgo: 

Assembler: Hex-Code: Abkürzung: Byte: Takte: 

TYA 98 - 1 2 


Tabelle 2. Die Befehle des 6510-Prozessors (Schluß) 


■ ABS : absolute (absolut! 

Der Operand ist eine vierstellige, 
Adresse. 


BeieelBLi 

LDA *C000 

Der Inhalt der Adress 


*C000 wird in den Akku geladen. 


■ ABY : absolut Y-lndiziert 

Der Operand ist eine vierstellige hexadezimale Zahl. 
Der Inhalt des Y-RegisterB wird zum Operanden addiert 
und ergibt die Arbeits-Adresse. 

Bfii.SGiSl.1 
LDY 44*10 
LDA *0000,Y 

Der Inhalt der Bpeicherstel1e *C010 (*C000 + *0010) 

wird in den Akku geladen. 




hexadezimale 


■ ABX : absolut X-iridiziert 

Der Operand ist eine vierstellige hexadezimale Zahl. 
Der Inhalt dos X-Registers wird zum Operanden addiert 
und ergibt die ArbeitB-Adresse. 

Beispiel» 

LDX 11*10 
LDA *0000,X 

Der Inhalt der Speicherstel1e *C010 (*C000 + *0010! 

wird in den Akku geladen. 


»Byte<< : In den Tabellen 2 und 3 gibt diese Spalte 
die jeweilige Länge des kompletten Befehls mit 
Operand an. 


»Flags<< : einzelne Bits des Statusregisters 

N : negative flag. Zeigt an, daß bei einer Operation 
einer der beiden Operanden zwischen *80 (12B) und *FF 
(255! liegt, also das letzte Bit gesetzt ist. 


Ergebnis einer 


Z : zero flag. Zeigt an, daß das 
Operation im Akku gleich Null ist. 

C : carry flag. Zeigt an, daß bei einer Operation Bin 
Übertrag entstanden ist. 

I : Interrupt flag. Durch Setzen dieses Bit lassen sich 
Interrupts unterbinden. 

D : decimal flag. Durch Betzen dieses Bit wir der 
Prozessor in den Dezi malmodus geschaltet. Das bedeutet, 
daß zum Beispiel das Ergebnis der Addition von *09 und 
*01 nicht *0A, sondern *10 ergibt. 


V : overflow flag (Überlauf). Zeigt an, daß 
Ergebnis einer Operation größer *FF (=255) war. 


das 


■ IM : immediate (unmittelbar) 

Die Adressierungsart »immediate<< bedeutet, daß der 
Operand unmittelbar als Wert weiterverarbeitet wird. 


BeisaigL» 

LDA 41*00 

Die hexadezimale 
geladen. 


Zahl *00 wird direkt in den Akku 


■ OP : Operand 

Je nach Adressierungsart besteht der Operand eines 
Befehls aus einem (Adressierung >>immediate<< und 
»zeropage«) oder zwei Byte (>>absolute<<). 


■ ZP : zeropage 

Der Operand besteht aus einem Byte und gibt eine 
0drc;~= in der Zeropage (Speicherbereich *0000 bis 


an. 


ggisEieli 

LDA *2B 
Der Inhalt 
geladen. 


der Speicherstelle *002B wird in den Akku 


■ ZPX : Zeropage X-indiziert 

Der Inhalt des X-Registers wird zum zweistelligen, 
hexadezimalen Operanden addiert. Das Ergebnis ist eine 
Adresse in der Zeropage (Speicherbereich *0000 bis 
*00FF). 

BeiseleL» 

LDX 44*05 
LDA *43,X 

Der Inhalt der Adresse *0048 (*0043 + *0005) wird in 
den Akku geladen. 


■ ZPY : Zeropage Y-indiziert i 

Der Inhalt des Y-Registers wird zum zweistelligen, 
hexadezimalen Operanden addiert. Das Ergebnis ist eine 
Adresse in der Zeropage (Speicherbereich *0000 bis 
*00FF>. 


B«L»Bi.tl» 

LDY 44*05 
LDA *43,Y 

Der Inhalt der Adresse *0048 (*0043 
den Akku geladen. 


+ *0005) wird in 


■ (ZP,X> : indiziert indirekt 

Der Inhalt des X-Registers wird zum zweistelligen, 
hexadezimalen Operanden addiert und ergibt eine Adresse 
in dBr Zeropage (Speicherbereich *0000 bis *00FF>. 
Deren Inhalt und der Inhalt der darauffolgenden Adresse 
ergibt in der Form Lo-Byte/Hi-Byte die ArbeitBadresse. 

BeiSßigl» 

Adresse *20 hat den Inhalt *00 
Adresse *21 hat den Inhalt *C0 
LDX 44*0E 
LDA (*12,X) 

Tabelle 3. Diese Abkürzungen werden in den Tabellen 1 
und 2 verwendet 
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TABELLEN 


C64 


Der Inhalt der Zeropaqe-Adressen *0020 <*000E + *0012) 
und *0021 ergibt die Arbeits-Adresse *C000. Deren 
Inhalt wird in den Akku geladen. 


■ <ZP),Y s indirekt indiziert 

Der zweistellige, hexdeziMale Operand ergibt eine 
Adresse in der Zerapage (Speicherbereich *0000 bis 
*00FF>. Deren Inhalt und der Inhalt der darauffolgenden 
Speicheratelle ergibt in der Form Lo-Byte/Hi-Byte eine 
Adresse, zu der der Inhalt des Y-Registers addiert 
wird. DaB Ergebnis ist die Arbeitsadresse. 


ROM-Routinen 
in eigenen 
Programmen 

Das Rad ist schon erfunden! Ähnlich verhält es 
sich mit verschiedenen Routinen, die ein 
Assembler-Programmierer immer wieder benö¬ 
tigt. Aber warum soll man sich die Arbeit des Pro- 
grammierens machen, wenn das Betriebssystem 
viele ständig benötigte Routinen schon enthält 
und man nur noch zu wissen braucht, ab welcher 
Adresse sie stehen? 

A ngenommen, Sie möchten in Assembler einige kom¬ 
plexe Dinge programmieren wie beispielsweise eine 
neue mathematische Funktion (wie wäre es mit dem 
Kotangens) und diese auf dem Bildschirm ausgeben. Das 
ist eine große Aufgabe, zu der zunächst einmal die Über¬ 
nahme des Arguments in das Maschinenprogramm, dann 
einige Fließkomma-Rechenoperationen und schließlich 
die Ausgabe auf dem Bildschirm geschrieben werden müß¬ 
ten, wenn da nicht schon fast alles an verborgener Stelle 
als fertige Programm-Module im Computer vorhanden 
wäre! 

Sowohl im unteren (von $A000 bis $BFFF) als auch im 
oberen ROM-Bereich (von $E000 bis $FFFF) liegt die Firm¬ 
ware (Software, die hardwaremäßig integriert ist) fest ver¬ 
schachtelt vor. Der untere ROM-Abschnitt wird Basic- 
Interpreter, der obere ROM-Bereich Betriebssystem 
genannt, wobei diese Einteilung aber den Kern der Sache 
nicht genau trifft, denn Interpreter, Editor und Betriebssy¬ 
stem führen ein gemischtes Dasein, quer durch alle 
genannten ROM-Bereiche. 

Mindestens fünf Informationen braucht ein Assembler- 
Programmierer, wenn er das breite Programmangebot des 
ROMs nutzen möchte: 

1. Einsprungadresse 

2. Format der Eingabeparameter 

3. Adressen der Eingabeparameter 

4. Adressen der Ausgabeparameter 

5. Format der Ausgabeparameter 
Nicht alle Routinen, die man benutzen kann, erfordern 
alle fünf Informationen, manche weniger, einige auch mehr, 
und schließlich gibt es noch Programmroutinen, die den 
Aufruf einer oder sogar mehrerer anderer Routinen not¬ 
wendig machen. 


BetSBiaii 

Adresse *20 hat den Inhalt *00 
Adresse *21 hat den Inhalt *C0 
LDY #*10 
LDA <*20>,Y 

Der Inhalt der Adresse *C010 (*C000 + *0010) wird in 
den Akku geladen. 


Tabelle 3. Diese Abkürzungen werden in den Tabellen 1 
und 2 verwendet (Schluß) 


In der Tabelle 1 sind - nach Anwendungen sortiert - die 
wichtigsten Firmware-Möglichkeiten mit den erforderlichen 
Ein- und Ausgabeparametern aufgeführt. Das sind natür¬ 
lich beileibe nicht alle. Die Auswahl erfolgte subjektiv! Es 
sind einfach diejenigen, die mir bislang am häufigsten 
untergekommen sind. Außerdem wurde auf die Kernel- 
Routinen verzichtet: Man findet diese sehr gut dokumen¬ 
tiert bereits in einer Reihe von Büchern und im Kurs »Von 
Basic zu Assembler« in diesem Sonderheft. 

Die Tabelle nennt den Label-Namen, die Einsprung¬ 
adresse und gibt eine Kurzbeschreibung der Funktion. Das 
Ein- und das Ausgabeformat ist ebenso angegeben wie die 
Adressen, an denen diese Parameter übergeben werden. 
Die verwendeten Bezeichnungen halten sich eng an die im 
Assembler-Kurs kennengelernten. Sie sind allgemein 
üblich: 

FAC Fließkomma-Akku 1 

ARG Fließkomma-Akku 2 

A Akkumulator 

X,Y X-, Y-Register 

Y 2-Byte-Angabe im Format LSB/MSB 

im Akku/Y-Register 

FLPT Fließkommazahl im Normalformat 
MFLPT gepacktes Fließkommaformat 

Damit das alles nicht so trocken abläuft, soll noch ein 
kleines Beispiel vorgestellt werden! Die oben erwähnte 
Kotangens-Funktion wird in einem Maschinenprogramm 
erzeugt, das durch USR anzuspringen ist. In Bild 1 finden 
Sie ein Flußdiagramm zu dem Programm, welches hier als 
Hypra-Ass-Listing abgebildet ist (Listing 1). Ein kurzes Test¬ 
programm liefert Listing 2. 

Der Einsprung mittels USR bietet den Vorteil, daß der 
Übergabewert gleich im FLPT-Format im FAC »landet«. Es 
ist aber sinnvoll, den Übergabeparameter mittels der 
MOVMF-Routine zu »retten«, weil durch die Kosinus- 
Funktion der FAC verändert wird. Wenn auch das Ergebnis 
der Kosinus-Funktion mittels MOVMF beiseitegelegt 
wurde, holen wir durch MOVFM den Anfangswert wieder in 
den FAC und bilden mittels SIN den Sinus davon. Schließ¬ 
lich teilen wir den im Speicher stehenden Kosinuswert 
durch den im FAC befindlichen Sinuswert (unter Verwen¬ 
dung von FDIV). Das Ergebnis ist der Kotangens: 

COT X = (COS X/SIN X) 

Dieser Wert befindet sich nun im FAC und wird mit dem 
RTS an das Basic-Programm zurückgeliefert. Im Testpro¬ 
gramm weisen wir ihm dann die Variable E zu. 

Dieses kurze Beispiel soll Ihnen den Mund wäßrig 
machen. Sehr viel detaillierter werden die ROM-Routinen 
im Kurs »Von Basic zu Assembler« in diesem Sonderheft 
behandelt werden. 

(Heino Ponnath/sk) 

Literatur: 

1. Kassera/Kassera, Programmieren In Maschinensprache, München 1985: Markt&Technik Ver¬ 
lag, MT 830 

2. West, C64 Computerhandbuch, München 1984, To-wl 

3. Babel/Krause/Dripke, Das Interface Age Systemhandbuch zum C64, München 1983: Interlace 
Age Verlag 

4. Ponnoth, C 64 Wunderland der Grafik, München 1985: Markt&Technik Verlag MT 758. 
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TABELLEN 


hypra-ass 

assemblerlisting: 



10 

.li 

1,4,7 

! 

20 

. ba 

$6000 

;einsprung 
;zuvor usr- 

mittels usr 
vektor einstellen! 


5 

160 - 

-eq 

cos=$e264 


165 - 

. eq 

movfm=$bba2 


170 - 

■ eq 

movmf=$bbd4 


180 - 

.eq 

sin=$e26b 


190 - 

.eq 

fdiv=$bb0f 


200 - 

-eq 

wert=$7000 


205 - 

- eq 

wertl=$7010 

6000 a210 

:212 -Start 

ldx 

#<(wentl) 

6002 a070 

: 214 - 

1 dy 

#>(wertl) 

6004 20d4bb 

: 216 - 

jsr 

movmf 

6007 2064e2 

: 220 - 

jsr 

C05 

600a a200 

: 230 - 

ldx 

#<(wert) 

600c a070 

: 240 - 

ldy 

#>(wert) 

600e 20d4bb 

: 250 - 

jsr 

movmf 

6011 a910 

: 252 - 

lda 

#<(wertl) 

6013 a070 

: 254 - 

1 dy 

ttXwertl) 

6015 20a2bb 

: 256 - 

jsr 

movf m 

6018 206be2 

: 260 - 

jsr 

sin 

601b a?00 

: 270 - 

lda 

#<(wert) 

60ld a070 

: 280 - 

1 dy 

ft > (wert) 

60lf 200fbb 

: 290 - 

jsr 

f di v 

6022 60 

: 300 - 

rts 


9 

320 - 

■ sy 

1,4,7 

symbols in 

alphabetical ordert 


COS 

f di v 

= $e264 
= $bb0f 



movf m 
movmf 
sin 

= $bba2 
= $bbd4 
= $e26b 


Listing 1. 

Start 

= $6000 

Hypra-Ass-Listing der 

wert 

= $7000 

Kotangens-Funktion 

wertl = $7010 

end of assembly 0:25.9 
base = $6000 last byte at 

$6022 



10 REM***TEST FUER COT ANGENS*** 

20 PQKE785,0:P0KE7B6,96:REM USR—VEKTOR 
30 INPUT"WINKEL"; Ul:W=W*n/180:REM AUF BOBENMASS 
40 E=USR(W)sREM AUFRUF DES PROBRAMMES 
50 PRINTW.EsREM ERGEBNIS IN E 
60 END 

READY. Listing 2. Test der Kotangens-Funktion 


Bild 1. 
Flußdiagramm 
einer Kotangens- 
Funktion 


( ^r\r [Einsprung über 
V ^ J | USR-Voklor 


Werl sichern 
durch MOVMF 


COS 


Ergebnis sichern 
durch MOVMF 


Anlangswerl 
zurück In FAC 
mittels MOVFM 


SIN 


Division des 
Cosinus durch 
den Sinus mit FDIV 


C RTS ) 


1. Routinen, die die Kooperation von Basic und 
Assembler erleichtern: 

Label Adresse Funktion Eingabe Ausgabe 

Format Adresse Format Adresse 


CHRGET 

0073 

Holt nächstes Byte 

1 Byte 

Basic-Text 

1 Byte A 

CHRGOT 

0073 

Holt aktuelles Byte 

1 Byte 

Basic-Text 

1 Byte A 

READY 

1474 

Erzeugt READY-Status 

- 

- 

- 

UNGET 

A96B 

Holt Integerwert 

ASCII-Zahl Basic-Text 

2-Byte 14/15 



(0-63999) 



Integer 

FRMNUM 

AD8A 

Holt beliebigen nume- 

Basic- 

Basic-Text 

FLPT FAC 



rischen Ausdruck 

Ausdruck 



FRMEVL 

AD9E 

Holt beliebigen 

Basic- 

Basic-Text 

a) bei Fließkomma: 



Ausdruck 

Ausdruck 


FLPT FAC 

b) bei Integer: 

FLPT FAC 

c) bei String: 
Zeigeraul FAC+3 
Descriptor FAC+4 


Diese Routine setzt außerdem eine Reihe von Flaggen: 

VALTYP($0D) 0=Zahl FF=String 
INTFLAG ($0E| 0=Fiießkomma 80=integer 
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TABELLEN 


C64 




War Ausdruck einfache Variable, dann zeigt VARNAM ($45/6) 




das 1. Byte des Variablen-Namens 

CHKCLS 

AEF7 

Prüft auf»)« 

ASCII 

Basic-Tex 


- 

CHKOPN 

AEFA 

Prüft auf»(« 

ASCII 

Basic-Tex 


- 

CHKCOM AEFD 

Prüft auf»,« 

ASCII 

Basic-Tex 


- 

SYNCHR 

AEFF 

Prüft auf Zeichen 

ASCII 

Basic-Tex 


- 



Im Akkumulator 


A 





Diese 4 Routinen überlesen das Zeichen, wenn vorhanden. 



Wenn nicht vorhanden, folgt SYNTAX ERROR 



ISVAR 

AF28 

Sucht Variablenwert 

Name + 

$45/46 

a) Zahl: 





Kennung 


FLPT 

FAC 






b) String: 

Descrlptor-FAC+3 

ORDVAR 

B0E7 

Sucht Varlablennamen 

Name-t- 

$45/46 






Kennung 


Adresse $47/48 

GTBYTC 

B79B 

Holt Zahl (0-255) 

ASCII 

Baslc-Text 1 Byte 

X 

GETNUM 

B7E8 

Liest 2 Integerzahlen 

ASCII 

Basic-Text 2Byte-lnt. $14/15 



(Trennung durch Komma) 



IByte-Int, X 



1. Zahl: Obis 65535 

2, Zahl: Obis255 





COM BYT 

E200 

Prüft aut»,«und holl 

ASCII 

Basic-Text 1 Byte 

X 



folgende Zahl 





2. Routinen, die Verschiebungen im Speicher 


durchführen: 





BLTUC 

A3BF 

Verschiebt Blöcke 

Adressen 

Quelle 

Start 

$5F/60 






Ende+1 

Ziel 

S5A/5B 






Ende+1 

$58/59 

- 

- 

PUTINT 

A9C4 

Schiebt FAC als Integer 

FLPT 

FAC 

2Byte- 

angegebene 



in Variable 

Adresse 

$49/50 

Integer Variable 

PTFLPT 

A9D6 

Schiebt FAC 

FLPT 

FAC 

MFLPT angegebene 



in Variable 

Adresse 

$49/50 


Variable 

GETSPT 

AA2C 

Schiebt String- 

Zeiger 

FAC+3 





descriptor in Variable 

Adresse 

$49/50 

Descriptor angegebene 

STRVAL 

B7B5 

Zahlenstring in 

ASCII 

ab $22 

FLPT 

fa6 



FAC einiesen 

Länge 

A 



CONUPK 

BA8C 

LädtARGausSpeicher 

MFLPT 

A/Y 

FLPT 

ARG 

MOVFM 

BBA2 

Lädt FACaus Speicher 

MFLPT 

A/Y 

FLPT 

ARG 

MOVMF 

BBD4 

Schiebt FAC 

FLPT 






In Speicher 

Adresse 

FAC X/Y 

MFLPT 

ange¬ 

gebener 

Speicher 

MOVFA 

BBFC 

ARG in FAC kopieren 

FLPT 

ARG 

FLPT 

FAC 

MOVAF 

BCOC 

FAC in ARG kopieren 

FLPT 

FAC 

FLPT 

ARG 

ACTOFC 

BC3C 

Akku in FAC schieben 

IByte 

A 

FLPT 

FAC 

3. Routinen zur Arithmetik: 

ASCADD 

AA27 

Addiert ASCII-Ziffer 

ASCII 

A 

FLPT 

FAC 



zu FAC 

Zitfer 




OROP 

AFE6 

FAC=(FAC)OR( ARG) 

FLPT 

FAC,ARG 

FLPT 

FAC 

ANDOP 

AFE9 

FAC=(FAC) AND( ARG) 

FLPT 

n 

FAC,ARG 
v 

FLPT 

FAC 

FACINX 

B1AA 

FAC wird als Integer 

u 

FLPT 

T 

FAC 

2Byte- 

A/Y ■ 



in A/Y abgelegt 



Integer 


UMULT 

B357 

16-Bit-Multipllkatlon 

2-Byte-lnteger 






Zahll 

$28/29 

2Byte- 

X/Y 




Zahl2 

$71/72 

Integer 


CIVAYF 

B391 

Integer (-32768 bis 

2Byte- 

A/Y 

FLPT 

FAC 



32767) In FAC 

Integer 




SGNFT 

B3A2 

Integer (0 bis 255) 
in FAC 

IByte 

y 

FLPT 

FAC 

GETADR 

B7F7 

Wandelt FAC zu 

FLPT 

FAC 

2Byte- 

Y/A 



Integer (0-65535) 



Integer 

+$14/15 

FADDH 

B849 

FAC = FAC + 0,5 

FLPT 

FAC 

FLPT 

FAC 

FSUB 

B860 

FAC=Speicherzahl 

MFLPT 

Zeiger A/Y FLPT 

FAC 



-FAC 

FLPT 

FAC 



FSUBT 

B853 

FAC = ARG - FAC 

FLPT 

ARG,FAC 

FLPT 

FAC 

FADD 

B867 

FAC=Speicherzahl 

MFLPT 

Zeiger A/Y FLPT 

FAC 



+FAC 

MFLPT 

FAC 



FADDT 

B86A 

FAC = ARG + FAC 

FLPT 

ARG,FAC 

FLPT 

FAC 

COMPLT 

B947 

Erzeugt Zweier¬ 
komplement von FAC 

FLPT 

FAC 

FLPT 

FAC 


LOG 

B9EA 

FAC = In(FAC) 

FLPT 

FAC FLPT 

FAC ‘ 

FMULT 

BA28 

FAC “Speicherwert• FAC MFLPT 

Zeiger A/Y FLPT 

FAC 




FLPT 

FAC 


FMULTT 

BA30 

FAC = ARG • FAC 

FLPT 

ARG,FAC FLPT 

FAC 

MUL10 

BAE2 

FAC = 10 . FAC 

FLPT 

FAC FLPT 

FAC 

DIVIO 

BAFE 

FAC = FAC/10 

FLPT 

FAC FLPT 

FAC 

FDIVF 

BB07 

FAC=ARG/Speicher- 

MFLPT 

Zeiger A/Y FLPT 

FAC 



zahl 

FLPT 

ARG 


FDIV 

BBOF 

FAC=Speicherzahl/FAC MFLPT 

Zeiger A/Y FLPT 

FAC 




FLPT 

FAC 


FDIVT 

BB14 

FAC = ARG/FAC 

FLPT 

FAC,ARG FLPT 

FAC 

SIGN 

BC28 

Ermittelt Vorzeichen 

FLPT 

FAC IByte 

A 



von FAC 


1 - + 
0-0 
FF - - 


ABS 

BC58 

FAC = ABS(FAC) 

FLPT 

FAC FLPT 

FAC 

FCOMP 

BC5B 

Vergleicht FAC mit 

MFLPT 

Zeiger A/Y IByte: 

A 



Speicherzahl 

FLPT 

FAC 1: FAC > Speicher 





0: FAC 

= Speicher 





FF: FAC < Speicher 

INT 

BCCC 

FAC = INT(FAC) 

FLPT 

FAC FLPT 

FAC 

AADD 

BD7E 

Addiert A zu FAC 

FLPT 

FAC FLPT 

FAC 




IByte 

A 


SOR 

BF71 

FAC = SQR(FAC) 

FLPT 

FAC FLPT 

FAC 

MPOT 

BF78 

FAC “Speicherwert 

FLPT 

FAC FLPT 

FAC 



1 FAC 

MFLPT 

Zeiger A/Y 


FPWRT 

BF7B 

FAC = ARG 1 FAC 

FLPT 

ARG,FAC FLPT 

FAC 

NEGOP 

BFB4 

FAC = -FAC 

FLPT 

FAC FLPT 

FAC 

EXP 

BFED 

FAC = elFAC 

FLPT 

FAC FLPT 

FAC 

POLYX 

E059 

Polynomberechnung 
FAC=aO+a1x+a2x 2 + 

Adresse 

Zeiger A/Y FLPT 

FAC 



Zeiger weist auf Start der Konstantentabelle, 




1. Byte = Polynomgrad 





Weitere Bytes sind die Koeffizienten des Polynoms 
in der Reihenfolge an.aO im MFLPT-Format. 

COS 

E264 

FAC = COS(FAC) 

FLPT 

FAC FLPT 

FAC 

SIN ZT6B 

FAC = SIN(FAC) 

FLPT 

FAC FLPT 

FAC 

TAN 

E2B4 

FAC = TAN(FAC) 

FLPT 

FAC FLPT 

FAC 

ATN 

E30E 

FAC = ATN(FAC) 

FLPT 

FAC FLPT 

FAC 


4. Auswahl von Ein-/Ausgabe-Routinen: 


ERROR 

A437 

Fehlermeldung aus¬ 

Fehler¬ 

X 

ASCII 

Bildschirm 



geben und READY 

nummer 




LIST 

A69C 

Listet Basic-Programm 

- 

- 

- 

- 

NUMDON AABC 

Druckt FAC aut 

FLPT 

FAC 

ASCII 

Bildschirm 



Bildschirm aus 





STROUT 

AB1E 

Gibt String aut Bild¬ 

Adresse 

Zeiger A/Y ASCII 

Bildschirm 



schirm aus. Ende=0 





SYNERR 

AF08 

Ausgabe SYNTAX ERROR 

- 

ASCII 

Bildschirm 

OVERR 

B97E 

Ausgabe OVERFLOW ERR, 

- 

- 

ASCII 

Bildschirm 

LINPRT 

BDCD 

Druckt Integerzahl 

2Byte- 

X/A 

ASCII 

Bildschirm 



(0 bis 65535) aus. 

Integer 




FACOUT 

BDD7 

Druckt FAC auf 
Bildschirm aus 

FLPT 

FAC 

ASCII 

Bildschirm 

FOUT 

BDDD 

FAC wird zu ASCII- 

FLPT 

FAC 

ASCII 

ab $100 



String (Ende=0). 



(Ende= 

0) 



Kann direkt mit STROUT 


Startadr. 



ausgegeben werden. 



A/Y 


SAVET 

E156 

Save 

Parameter aus Basic-Text 


VERFYT 

E165 

Verlfy 

Parameter aus Basic-Text 


LOADT 

E168 

Load 

Parameter aus Basic-Text 


SLPARA 

E1D4 

Holt Parameter für Save, Verify, Load aus dem 

Basic-Text 

PLOTK 

E50A 

Setzt Cursorposition 

Zelle . 

X 






Spalte 

Y 



HOME 

E566 

Cursor in Home-Position 




PLOTR 

E56C 

Setzt Cursor-Position 

Zelle 

$D6 






Spalte 

$D3 



GETKBC 

E5B4 

Holt Zeichen aus 
Tastaturpuffer 

- 

- 

IByte 

A 

PRT 

E716 

Gibt Zeichen in A 
auf Bildschirm aus 

IByte 

A 

ASCII 

Bildschirm 

CLRLN 

E9FF 

Löscht xte Bild¬ 

Zeilen¬ 

X 

- 

- 



schirmzeile 

nummer 





Tabelle der ROM-Routinen (Schluß) 
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C64 


EINGABEHILFEN 


Checksummer 

V3 und MSE 

Diese beiden Programme sind unentbehrlich 
beim Abtippen unserer Listings. Sie helfen, 
Tippfehler vor allem bei Maschinenprogram¬ 
men zu vermeiden und sparen eine Menge Zeit. 

N obody is perfect. Jeder Computer-Fan, egal ob bluti¬ 
ger Anfänger oder ausgefuchster Profi, macht beim 
Abtippen von Programmen Tippfehler. Diese Fehler 
später zu finden, kann ein langwieriges Unterfangen sein. 

Deshalb haben wir für Sie die Programme »Checksum¬ 
mer V3« und »MSE« (MaschinenSpracheEditor) entwickelt. 
Der Checksummer ist für Basic-Programme und der MSE 
für Maschinensprache-Listings zuständig. 

Der Checksummer 


Zuerst einmal müssen Sie das Checksummer-Programm 
(siehe Listing 1) abtippen. Dabei sollten Sie äußerst sorgfäl¬ 
tig vorgehen, vor allem bei den Zahlen in den DATA-Zeilen 
20 bis 30. Wenn Sie trotzdem noch einen Tippfehler 
gemacht haben, meldet sich das Programm später mit 
einem entsprechenden Hinweis. Wenn Sie fertig sind, spei¬ 
chern Sie das Programm auf Diskette oder Kassette. 

Jetzt geht es los: 

1. Starten Sie den Checksummer durch die Eingabe von 
»RUN« und das Drücken der RETURN-Taste. 

2. Wenn die Meldung »Checksummer aktiviert...« auf dem 
Bildschirm erscheint, haben Sie keinen Tippfehler 
gemacht und der Checksummer ist nun eingeschaltet. 

3. Zum Löschen des Basic-Programms geben Sie bitte 
»NEW« ein. Keine Angst, der Checksummer selbst wird 
dadurch nicht gelöscht. 

4. Nun können wir den Checksummer testen. Geben Sie 
bitte folgende Zeile ein und drücken Sie die RETURN-Taste: 
1 REM 

In der linken oberen Bildschirmecke sehen Sie nun die 
Prüfsumme über die eben eingegebene Basic-Zeile. Sie 
muß <63> lauten. Dem Checksummer ist es übrigens 
egal, ob Sie »1 REM« oder »1REM« eintippen. Nur innerhalb 
von Anführungszeichen ist die richtige Anzahl an Leerzei¬ 
chen wichtig. Diese Prüfsummen erscheinen (sofern Sie 
den Checksummer eingeschaltet haben) immer dann, wenn 
Sie eine Basic-Zeile eintippen und dann die RETURN-Taste 
drücken. In der 64’er finden Sie die Prüfsumme immer am 
Ende jeder Programmzeile. 


10 PRINT"CHECKSUMMER FUER C 64" 

11 PRINT:PRINT"EINEN MOMENT, BITTE ..." 

12 FOR 1=828 TO 864:READ A:POKE I,A:PS=PS+ 

A:NEXT X 

13 IF PS05765 THEN PRINT "TIPPFEHLER IN DE 
N ZEILEN 20 BIS 22":END 

14 SYS 828:PS=0:FOR 1=58464 TO 58583:READ 
A:POKE I,A:PS=PS+A:NEXT I 

15 IF PS016147 THEN PRINT "TIPPFEHLER IN D 
EN ZEILEN 22 BIS 30":END 

16 POKE 1,53:POKE 42289,96:POKE 42290,228 

17 PRINT"CHECKSUMMER AKTIVIERT." 

18 PRINT:PRINT" AUSSCHALTEN : P0KE1.S5 ODE 
R"SPC(27)"<RUN/STOP+RESTORE>" 

19 PRINT:PRINT" ANSCHALTEN : POKE1.53" 

20 DATA 169,0,133,254,162,1,189,93,3,133,2 
55,160,0,177,254 

21 DATA 145,254,136,208,249,230,255,165,25 
5,221,95,3,208,238,202 

22 DATA 16,230,96,160,224,192,0,160,2,169. 
0,170,133,254,177 

23 DATA 95,240,40,201,32,208,3,200,208,245 
,133,255,138,41,7 

24 DATA 170,240,14,72,165,255,24,42.105,0, 

202.208.249.133.255 

25 DATA 104,170,232,165,255,24,101,254,133 
,254,76,111,228,192,4 

26 DATA 48,219,198,214,165,214,72,162,3,16 
9,32,157,1,4,189 

27 DATA 212,228,32,210,255,208,12,0,92,72, 
32,201,255,170,104 

28 DATA 144.1,138,96,202,16,228,166,254,16 
9,0,32,205,189,169 

29 DATA 62,32,210,255,104,133,214.32.108,2 

29.169.141.32.210.255 

30 DATA 76,128.164,9,60,18,19 
© 64'er 

Listing 1. Der »Checksummer 64 V3« für Basic-Listings 


5 PRINT CHRS(14) 

10 PRINT"<CLR>" 

20 PRINT" 

30 P» NT"C4D0WN,2SPACE> JEST{SPACE,BLUE,6SP 
ACE>" 

40 PRINT" 


<242> 

<254> 

<130> 

< 022 > 

<10B> 


© 64'er 

Bild 1. Die Bedeutung der Steuerzeichen 
wird im nachfolgenden Text erklärt 

In Zeile 10 müssen Sie nach den Anführungszeichen die 
Tasten <SHIFT CLR/HOME> drücken und nicht die 
Klammern mit dem Wort CLR eingeben. In Zeile 20 
drücken Sie nach den Anführungszeichen die CBM- 
Taste und den Buchstaben < Q >, gefolgt von mehreren 
SHIFT- und Stern-Tasten und zum Schluß die CBM- 
Tasteundden Buchstaben <W>. In Zeile 30 ist es vier¬ 
mal die CURSOR-abwärts-Taste, gefolgt von zweimali¬ 
ger Leertaste, dann <SHIFT T> und normal EST, zum 
Schluß noch einmal die Leertaste, die Farbtaste Blau 
<CTRL 7> und sechsmal die Leertaste. Zeile 40 
besteht lediglich aus mehreren Grafikzeichen, die mit 
der CBM-Taste und <B> erzeugt werden. 


CTRL sieht für Control-Taste, so bedeutet |CTRL+A|, daß Sie die Control-Taste und die Taste »A» drücken müssen. Im folgenden steht: 

1DOWNI 

Taste neben rechtem Shllt, 

ISPACEI 

Leertaste 

IRVSONI 

Control-Taste 8 9 


Cursor unten 

|SHIFT-Space| 

Shift-Taste 8 Leertaste 

|RVOFF| 

Control-Taste 8 0 

|UP| 

Shift-Taste 8 Taste neben 

|F1| bis |F8| 

Funktionstasten 

jORANGE) 

Commodore-Taste 8 1 


rechtem Shifl; Cursor hoch 

IRETURN] 

Return-Taste 

IBROWNI 

Commodore-Taste 8 2 

(CLR) 

Shift-Taste 8 2. Taste 

|BLACK| 

Control-Taste 8 1 

|LIG.RED| 

Commodore-Taste 8 3 


ganz rechts oben 

IWHITEI 

Control-Taste 8 2 

IGREY 1| 

Commodore-Taste 8 4 

IINSTJ 

Shift-Taste 8 Taste 

(RED) 

Control-Taste 8 3 

(GREY 2) 

Commodore-Taste 8 5 


ganz rechts oben 

ICYANi 

Control-Taste 8 4 

ILIG.GREEN] 

Commodore-Taste 8 6 

IHOME] 

2. Taste von ganz rechts oben 

|PURPLE| 

Control-Taste 8 5 

(LIG.BLUEI 

Commodore-Taste 8 7 

(DEL| 

Taste ganz rechts oben 

|GREEN| 

Control-Taste 8 6 

IGREY 3| 

Commodore-Taste 8 8 

IRIGHTI 

Taste ganz rechts unten 

|BLUE| 

Control-Taste 8 7 

Tabelle 1. 


ILEFTI 

Shift-Taste 8 Taste unten rechts 

lYELLOWj 

Control-Taste 8 8 

Die Steuerbefehle in den Listings 
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C64 


Diese Zahlen dürfen Sie NICHT mit abtippen. 

Als Beispiel sehen Sie Bild 1. Am rechten Rand jeder 
Spalte sehen Sie die Prüfsummen in eckigen Klammern. 

Damit sind wir beim zweiten wichtigen Punkt: Sehen Sie 
sich die Zeile 240 von Listing 2 genauer an. Nach dem ersten 
Anführungszeichen nach dem PRINT-Befehl sehen Sie eine 
geschweifte Klammer {J. Immer, wenn Sie in einem unserer 
Listings diese Klammern sehen, dürfen Sie das, was inner¬ 
halb der Klammern steht, nicht eintippen. Sie müssen die 
entsprechende Taste drücken. Beispiel: 

10 PRINT " jCLRj * 


bedeutet: Nach dem Anführungszeichen die »Bildschirm- 
Iöschen«-Taste drücken (<SHIFT CLR/HOME>). In Ta¬ 
belle 1 sehen Sie eine Zusammenfassung aller möglichen 
Steuertasten mit dem entsprechenden Klartext. 

Weiterhin sehen Sie in Bild 1 (Bedeutung der Steuerzei¬ 
chen) in Zeile 30 ein unterstrichenes »T« nach der Klammer. 
Das bedeutet, daß Sie ein »T« zusammen mit der SHIFT- 
Taste drücken müssen, also < SHIFTT>. Wenn ein Zeichen 
»überstrichen« ist, müssen Sie dieses zusammen mit der 
CBM-Taste eingeben. Die CBM-Taste befindet sich ganz 
links unten auf der Tastatur und hat die Aufschrift »C=«. 


100 REM DIESES PROGRAMM ERZEUGT DEN <210> 

110 REM MSE VI.1 AUF DISKETTE. <039> 

120 REM BESITZER EINER DATASETTE <178> 

130 REM MUESSEN DIE ’6’ AM ENDE VON <145> 

140 REM ZEILE 343 IN EINE ’1' AENDERN! <176> 

150 REM <212> 

230 IF PEEK<44)032 THEN PRINT"CCLRJSIE HA 
BEN VERGESSEN, DIE POKES EINZUGE- BEN! 

":END <050> 

240 PRINT"CCLR3";sDIM H(75):FOR 1=0 TO 9 <042> 

250 H(48+I)=IsH<65+1)=1+10:NEXT:Z=1000 <136> 

260 FOR 1=2040 TO 3755 STEP 20=PRINT"CHOME 

DICH LESE ZEILE:“Z <253> 

261 FOR N=0 TO 19:READ A$:IF LEN(A$)<>2 TH 

EN '900 <062> 

262 IF PEEK(63)+PEEK(64)#256<>Z THEN 800 <011> 

270 H=ASC(LEFT$< A$,1>):L=ASC(RIGHT$(A$ >1)) <199> 

280 D=H(H)*16+H(L>:S=S+DsPOKE I+N.D <165> 

290 NEXTsREAD V = IF SOV THEN 900 <139> 

300 S=0 : Z=Z+1sNEXT:R=PEEK(2111):H=PEEK(210 

6) <126> 

301 POKE 53280,RsPOKE 53281,HsPOKE 646,R:P 

RINT "CCLR3DIE DATA-ZEILEN SIND FEHLERF 
BEI!” <080> 

302 PRINT"SIE KOENNEN NUN DIE FARBEN DES M 

SE 1 ' <209> 

303 PRINT"EINSTELLEN.":PRINT“C2D0WN,SPACE, 

RVS0N3DRUECKEN SIE <1>, <2> ODER <9> <20.5> 

304 PRINT“CDOWN,2SPACE3<1> - RAHMEN-/SCHRI 

FTFARBE <013> 

305 PRINT"C2SFACE3<2> - HINTERGRUNDFARBE <233> 

306 PRINT"CDOWN,2SPACE3<9> - FARBEN UEBERN 

EHMEN <150> 

307 PRINT“C2D0WN3FARBE <1> : "R:PRINT''FARBE 

<2> s”H <066> 

308 GET AsIF A=0 THEN 308 <210> 

309 IF A=1 THEN R=(R+1)AND 15 <098> 

310 IF A=2 THEN H=(H+1)AND 15 <086> 

311 IF A=9 THEN 340 - <217> 

312 GOTO 301 <034> 

340 POKE 2106,HsPOKE 2111,R <153> 

342 POKE 631,19:POKE 632,13:POKE 198,2 <135> 

343 PRINT"CCLRDSAVE'CHRS(34)"MSE V1.1"CHR$ 

(34)",8 <091> 

344 POKE 43,1=POKE 44,8:POKE 45,172=POKE 4 

6,14 = END <140> 

800 PRINT”CCLR,RVS0N3SIE HABEN ZEILE"Z"CLE 

FT.SPACE3VERGESSEN:":A=PEEK(646)AND 15 <124> 
810 POKE 646,PEEKt53281)AND 15:PRINT"LIST" 

Z-2" -"Z+2:POKE 646,A <224> 

820 GOTO 920 <082> 

900 PRINT"CCLR.RVS0N3SIE HABEN EINEN TIPPF 

EHLER GEMACHT:":A=PEEK(646)AND 15 <154> 

910 POKE 646,PEEKt53281)AND 15:PRINT"LIST" 

Z:POKE 646,A <173> 

920 POKE 631,19 = POKE 632,17:POKE 633,13:PO 

KE 198,3:END <126> 

1000 DATA 00,0B.08,0A,00,9E,32,30,36,31,00 

,00,00,A2,08,A9,36,85,A4,A9, 1247 <119> 

1001 DATA 08,85,A5,A9,00,85,A6,A9,B0,85,A7 

,A0,00,B1,A4,91,A6,C8,D0,F9, 2888 <054> 

1002 DATA E6,A5,E6,A7,CA,D0,F2,A9,36,85,01 

,4C,00,B0,20,Dl,Bl,A9,00,8D, 2781 <096> 

1003 DATA 21,D0,A9,0F,8D,20,D0,8D,86,02,A0 

,B3,A9,74,20,FF,B1,A0,B3,A9, 2679 <089> 

1004 DATA B9,20,FF,Bl,A0,00,20,CF,FF,99,01 

,02,C8,C9,0D,D0,F5,88,F0,D2, 2912 <217> 

1005 DATA C0,11,90,02,A0,10,8C,00,02,20,EA 

,B1,A0,B3,A9.CF,20,FF,B1,20, 2327 <045> 

1006 DATA 8E,B4,85,FC,85,62,20,8E,B4,85,FB 

•85,61,20,A7,B4,D0,20,A0,B3• 2864 <199> 

1007 DATA A9,E5,20,FF,B1,20,8E,B4,85,60,20 


,8E,B4,85,5F,20,A7,B4,D0,0A, 2624 <091> 

1008 DATA A5,61,C5,5F,A5,62,E5,60,90,06,20 

,43,B3,4C,3A,B0,A9,AA,A0,00, 2379 <167> 

1009 DATA EA,EA,E6,FB,D0,02,E6,FC,20,3F,B2 

,90,EF,4C,FB,B4,A2,02,86,58, 3190 <041> 

1010 DATA A9,A6,A0,9D,20,F2,Bl,20,E4,FF,F0 

,FB,C9,30,90,0C,C9,47,B0,08, 2970 <231> 

1011 DATA C9,3A,90,0B,C9,41,B0,07,C9,14,D0 

,0F,4C.0B,Bl,20,D2,FF,A6,58, 2322 <121> 

1012 DATA 95.F7,C6,58,D0.D2,60,AE,8D,02,F0 

,26,C9,0C,D0,03,4C,0B,B6,C9, 2685 <057> 

1013 DATA 13,D0,03,4C,8B,B5,C9,0D,D0,03,4C 

,BA,B4,C9,10,D0,03,4C,68,B5, 2282 <225> 

1014 DATA C9.0E,D0,06,20,5F,B4,4C,64,B1,4C 

,92,B0,A5,F9,20,02,B1,0A,0A, 2132 <208> 

1015 DATA 0A,0A,85,F9,A5,FB,20,02,B1,05.F9 

,60,C9,3A,90,02,69,08,29,0F, 1950 <092> 

1016 DATA 60,A6,59,E0,08,90,IF,A6,58,E0,02 

,B0,06,20,D2,FF,4C,8E,B0,C6, 2509 <188> 

1017 DATA 59,A0,14,A9,92,20,F2,Bl,CA,D0,FA 

,84,57,68,68,4C,8B,Bl,A6,D3, 2891 <197> 

1018 DATA E0,08,B0,03,4C,92,B0,20,D2,FF,A6 

,58,E0,02,90,09,C6,59,20,D2, 2468 <049> 

1019 DATA FF,C6,58,D0.F9,4C,8E,B0,48,4A,4A 

,4A,4A,20,59,B1,68,29,0F,C9, 2419 <035> 

1020 DATA 0A,90,02.69,06,69,30,4C,D2,FF,A2 

,FC,9A,20,Dl,Bl,20,48,B2,20, 2261 <073> 

1021 i- TA EA, Bl , 20,9F, B2 , A5 , FC , 20,4E, Bl , A5 

,FB,20,4E,B1,20,ED,Bl,A9,3A, 2860 <148> 

1022 DATA A0,20,20,F2.B1,A9.00,85,59.20,8E 

,B0,20,ED,B1,A4,59,20,EF,B0, 2530 <233> 

1023 DATA 91,FB,CB,84,59,00,08,90,EC.20.10 

,B2,A9,12,20,D2,FF,20.8E,B0, 2657 <105> 

1024 DATA 20,EF,B0,C5,FF,F0,0D,20,43,B3,A9 

,14,A0.14,20,F2,B1,4C,A2,B1, 2665 <034> 

1025 DATA A9,92,20,D2,FF,20,33,B2.20.E0,B2 

,20,3F,B2,90,9F,4C,8B.B5,A9, 2648 <123> 

1026 DATA 93,20,D2,FF,A2,00,A9,03,9D,00.DB 

,9D,00,D9,9D,00,DA,9D,00,DB, 2476 <237> 

1027 DATA E8,D0,EF,60,A9.0D,2C,A9,20,4C,D2 

,FF,20,D2,FF,98,4C,D2,FF,20, 2965 <160> 

1028 DATA E4,FF,F0,FB,60,84,5D,85,5C,A0,00 

,B1,5C,F0,06,20,D2,FF,C8,I)0, 3100 <077> 

1029 DATA F6,60,A5,FB,85,5A,A0,00,84,5B,Bl 

,FB,18,65,5A,85,5A,90,02,E6, 2606 <156> 

1030 DATA 5B,06,5A,26,5B,C8,C0,08,90,EC,A5 

,5A,65,5B,85,FF,60,18,A5,FB, 2467 <219> 

1031 DATA 69,08,85,FB,90,02,E6,FC,60,A5,FB 

,C5,5F,A5,FC,E5,60,60,A0,B3, 3106 <183> 

1032 DATA A9,FB.20,FF,B1,A0,01,B9,00,02,20 

,D2,FF.CC,00,02,C8,90,F4,A9, 2692 <098> 

1033 DATA 14,ED,00,02,AA,20,ED,Bl,CA,D0,FA 

,A5.62,20,4E,B1,A5,61,20.4E, 2457 <060> 

1034 DATA B1,20,ED,B1.A5,60,20,4E,B1.A5,5F 

,20,4E,Bl,EA,EA,EA,EA,EA,EA, 3122 <190> 

1035 DATA EA.EA,24,5E,10,01,60,A9,12,20,D2 

,FF,A2,28,20,ED,B1,CA,D0,FA, 2703 <087> 

1036 DATA A9,92,4C,D2,FF.A5,D6iC9,16,B0,01 

,60,A9,A0,85,A4,A9,78,85,A6, 2945 <204> 

1037 DATA A9,04,85,A5,85,A7,A2,13.A0,27,B1 

, A4,91, A6,88,10, F9 ,CA , F0,19, 2671 <20B> 

1038 DATA 18,A5.A4,69.28,85,A4,90,02,E6,A5 

,18,A5,A6,69,28,85,A6,90,E0, 2503 <251> 

1039 DATA E6,A7,4C,B6,B2,A9,91,4C,D2,FF,A9 

,0F,8D,18,D4.A9,00,8D,05,D4, 2776 <000> 

1040 DATA A9,F7,8D,06,D4,A9,11,8D.04,D4.A9 

.32,8D,01,D4,A9,00,8D,00,D4, 2413 <126> 

1041 DATA A0,B0,20,09.B3,A9,10,8D,04,D4,60 

,A2,FF,CA,D0,FD,88,D0,F8,60, 2914 <240> 

1042 DATA A9,0F,8D,16,D4,A9,2D,8D,05,D4,A9 

,A5,8D,06,D4,A9,21,8D,04,D4, 2385 <119> 

1043 DATA A9,07,8D,01,D4,A9,05,8D,00.D4.A0 
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,FF,20,09.B3,A9,20,8D,04,D4, 2250 <078> 

1044 DATA A9.00.8D.01.D4,8D,00,D4,60,30,20 

iF0.FF.0A,48.98.40,18iA0i06. 2179 <175> 

1045 DATA A2,10,20,F0,FF,A0,B4,A9,0A,20,FF 

,Bl,20.12,B3,20,E4,FF,F0,FB, 2931 <093> 

1046 DATA A2,ID,A9,14,20,D2,FF,CA,D0.FA.68 

,A8,68.AA,18,4C,F0,FF,0D,0D, 2704 «088) 

1047 DATA 0D,20,20,20,20,20,20,20,4D,41,53 

,43,48,49,4E.45,4E,53,50,52, 1144 <216> 

1040 DATA 41,43,40,45,20,2D,20,45,44,49,54 

,4F,52,20,0D,0D,20,20,20,20. 1023 <038) 

1049 DATA 20,20.20,20,56,4F,4E,20,4E,2E,4D 

,41.4E,4E,20,26,20,44,2E,57, 1120 <206> 

1050 DATA 45,49,4E.45.43,4B,00.0D.0D,0D,20 

,20,20,50,52,4F.47,52,41,4D, 1102 <117 > 

1051 DATA 4D,4E,41,4D,45,20,3A,20,00,0D.0D 

,20,20,20,53,54,41,52,54,41, 1073 <095> 

1052 DATA 44,52,45,53,53,45,20,3A,20,24,00 

,0D,0D,20,20,20,45,4E,44,41, 1014 <129) 

1053 DATA 44,52,45,53,53,45,20,20,20,3A,20 

,24,00,92,01,01,50,52,4F,47, 1136 <228> 

1054 DATA 52,41,4D,4D>20,3A>20>00>12,20,20 

,2A,2A,2A,20.46,41,40,53.43, 1024 <027> 

1055 DATA 40,45,20,45,49,4E,47,41,42,45,20 

,2A,2A,2A,20,20,92,00,0D,0D. 1058 <098> 

1056 DATA 2A,2A,2A,20,45,4E,44,45,20,2A,2A 

,2A,00,13,01,20,20,12,44,92, 916 <153> 

1057 DATA 49,53,4B,20,4F.44,45,52,20,12,54 

,92,41,50,45,00,00,13,20,20. 1151 <035> 

1058 DATA 49,2F.4F,20,2D,20,46,45,48,40,45 

,52,00,20,D1,B1,20,40,B2,A0, 1606 <012> 

1059 DATA B3,A9,CF,20,FF,Bl,20,BE,B4.85,FC 

,20.8E,B4,85,FB,C5,61,A5,FC, 3207 <251> 

1060 DATA E5,62.90,23,A5,FB,C5,5F,A5,FC,E5 

,60,B0,19,20,A7,B4,D0,14,60, 2860 <112> 

1061 DATA 20,A7,B4.F0,0C,85,F9,20,A7,B4,F0 

,05,85,F8,4C,EF.B0,68.60,20, 2749 <080> 

1062 DATA 43,B3,4C,5F.B4,20,CF,FF,C9,4C,D0 

,09,20,D1,B1,20,48,B2,4C,0B, 2372 <046> 

1063 DATA B6,C9,0D,60,A9,00,85,5E,20,5F,B4 

,20,EA,Bl,20,0D,B5,24,5E,30, 2042 <120) 

1064 DATA 05,20,E4,FF,F0,FB,20,El,FF,F0,26 

,20,9F,B2,24,5E,10,09,20,4E, 2435 <198> 

1065 DATA B5,20,0D,B5,20,60,B5,20,33,B2,20 

,3F,B2,90,D7,A0,B4,A9,28,20, 2190 <207> 

1066 DATA FF,B1,20,E4,FF.C9,0D,D0,F9,A9,00 

,85,5E,A5,61,85,FB,A5,62,85, 3056 <240) 

1067 DATA FC,20.E0,B2,4C,64,B1,A5,FC,20,4E 

,B1,A5,FB,05,FF,20,4E,B1,A9, 3003 <221> 

1068 DATA 20,A0,3A,20,F2,B1,A0,00,20,ED,B1 

,Bl,FB,20,4E,Bl,C8,C0,08,90, 2566 <070> 

1069 DATA F3,20,ED,Bl,24,5E,30,03,A9,12,2C 

,A9,20,20,D2,FF,20.10,B2,A5, 2190 <059> 

1070 DATA FF,20,4E,Bl,A9,92,20,D2.FF,4C.EA 

,Bl,A9,FF,85,B8,85,B9.A9,04. 3073 <029> 

1071 DATA 85,BA,20,C0,FF,A2,FF,4C,C9,FF,20 

,CC,FF,A9.FF,4C,C3,FF,20,5F, 3315 <189> 

1072 DATA B4,A9,80,85,5E,20,4E.B5,20,48,B2 

, A2,24, A9,2D, 20,D2, FF.CA,D0, 2596 <1U> 

1073 DATA FA,20,EA,Bl,20,EA,Bl,20,60,B5,4C 

,C1,B4,20.B8,B5,A6,5F,A4,60, 2812 <015> 

1074 DATA A9.61,20,D0,FF,B0,0A,20.B7,FF,29 

,BF,D0,03,4C,FB,B4,A9,01,20, 2577 <201> 

1075 DATA C3,FF,20,68,B6,A0,B4,A9.4F,20.FF 

,Bl,20.F9,Bl,4C,FB,B4,20,68, 2921 <237> 

1076 DATA B6,A9,37,A0,B4,20,FF,B1,20,F9,B1 

,A2,08,C9.44,F0,06,A2,01.C9. 2717 <213> 

1077 DATA 54.D0,Fl,A9.01.A8,20,BA,FF,A0,00 

,E0,01,F0,1A,A9,40,8D,20,02, 2403 <101> 

1070 DATA A9,3A,8D,21.02,B9,01,02,99,22,02 

,C0,CC,00,02,90,F4,C8,C0,D0, 2102 <127> 

1079 DATA 0C.B9.01,02,99,20,02,C0,CC,00,02 

.D0.F4,98,A2.20,A0,02,4C,BD, 2018 <025> 

1000 DATA FF,20,B8,B5.A5,BA.C9,08,90,33,A6 

,B9,86,57,A9,01,20,C3,FF,A9, 2800 <022> 

1001 DATA 60,85,B9,20,C0,FF,B0,28,A5,BA,20 

,B4,FF,A5,B9,20,96,FF,20,A5, 2911 <053> 

1002 DATA FF,05,61,A5,90,4A,4A,B0,13,20.A5 

,FF,05,62,20,AB,FF,A5,57,85, 2663 <214> 

1083 DATA B9,A9,00,20,D5,FF,90,03,4C,A3,B5 

,86,5F,84,60,A5,BA,C9,01,D0, 2639 <131> 

1084 DATA 0A,AD.3D,03,85,61,AD,3E,03,05,62 , 

,4C,FB,B4,A9,13,20,D2,FF,A2, 2300 <120> 

1085 DATA IC,20,ED,Bl,CA,D0,FA,60,00,00,00 

,00.00,00,00,00,00,00.00,00, 1230 <143> 

© 64'er Listing 2. Der MSE-Lader 


Der MSE 


Der MSE dient zur Eingabe von Maschinensprache-Pro¬ 
grammen. Als erstes müssen Sie den sogenannten 
»MSE-Lader« (Listing 2) abtippen. Dieser erzeugt erst das 
eigentliche MSE-Programm auf Diskette oder Kassette. 
Wichtig: Vor dem Eintippen des MSE-Laders müssen 
Sie unbedingt ein paar Befehle eingeben (ohne 
Basic-Zeilennummer): POKE 44,32: POKE 8192,0: NEW 

Jetzt können Sie beginnen, das Listing 2 abzutippen. Der 
MSE-Lader erkennt zwar, wenn Sie beim Eintippen der DA- 
TA-Zeilen einen Fehler gemacht haben, aber wenn Sie 
ganz sicher gehen möchten, sollten Sieden Checksummer 
vor dem Eintippen aktivieren. Die Prüfsummen für den 
MSE-Lader finden Sie am Ende der jeweiligen Pro¬ 
grammzeilen. 

Wenn Sie das Listing 2 nicht auf einmal abtippen möch¬ 
ten, müssen Sie vor jedem neuen Laden des Programms 
unbedingt die oben genannte POKE-Zeile eingeben! 

Wenn Sie alles richtig gemacht haben und das Pro¬ 
gramm fehlerfrei abgetippt wurde, speichert es sich nach 
dem Starten selbst auf Diskette oder Kassette unter dem 
Namen »MSE VI .0«. Dieses fertige MSE-Programm laden 
Sie dann bei Bedarf wie ein normales Basic-Programm und 
starten es mit »RUN«. 

So arbeitet man mit dem MSE 

Als erstes möchte der MSE den Namen des zu bearbei¬ 
tenden Programms wissen. Dieser steht in der ersten Zeile 
unserer MSE-Listings. Dann müssen Sie die Start- und 
Endadresse des Programms eingeben. Dies sind die letz¬ 
ten beiden, vierstelligen Hexadezimalzahlen in der ersten 
Zeile unserer Listings. 

Wenn Sie ein Programm von Diskette oder Kassette 
laden wo'^n, um an einer bestimmten Stelle weiterzutip¬ 
pen oder noch eine Korrektur vorzunehmen, geben Sie auf 
die Frage nach der Startadresse ein »L« ein. Danach müs¬ 
sen Sie < D > oder <T> drücken, je nachdem, ob Sie von 
Diskette oder Kassette (»tape«) laden möchten. Wenn das 
Programm unter diesem Namen nicht auf der Diskette vor¬ 
handen ist oder ein sonstiger Ladefehler vorlag, meldet 
sich der MSE mit »l/O-ERROR«. In diesem Fall drücken Sie 

< RUN/STOP RESTORE > und geben einfach noch einmal 
»RUN« ein. 

Beim Abtippen geben Sie nach und nach die abgedruck¬ 
ten Buchstaben und Zahlen des jeweiligen Listings ohne 
die Freiräume dazwischen ein. Wenn Sie in einer Zeile 
einen Tippfehler gemacht haben, meldet sich der MSE 
sofort mit einem Brummton und der Meldung »EINGABE¬ 
FEHLER«. Nach einem Druck auf die RETURN-Taste kön¬ 
nen Sie mit der DEL-Taste den Fehler korrigieren. Wenn Sie 
das gewünschte Programm vollständig eingegeben 
haben, speichert es der MSE automatisch auf Diskette 
oder Kassette. 

Bei längeren Listings ist es unwahrscheinlich, daß Sie 
das komplette Programm auf einmal eingeben. Sie können 
Ihre bisherige Tipparbeit jederzeit durch <CTRL S> auf 
Diskette oder Kassette speichern und Ihr Werk später fort¬ 
setzen. Sie sollten sich dann allerdings im Heft markieren, 
wie weit Sie beim Abtippen gekommen sind! Später geben 
Sie dann nach dem Laden des ersten Programmteils 

< CTRL N > ein und auf die dann folgende Frage nach der 
Startadresse die Zeilennummer (Adresse), bei der Sie auf¬ 
gehört haben zu tippen. 

<CTRL M> erlaubt Ihnen jederzeit, Ihr Werk listen zu 
lassen. Durch < SPACE > können Sie weiterlisten lassen 
und durch < RUN/STOP > das Listen abbrechen. 

Wenn Sie einen Drucker besitzen, können Sie das Pro¬ 
gramm auch mit <CTRLP> ausdrucken. Mit <CTRLL> 
wird das Programm noch einmal neu in Ihren C 64 geladen. 

(F. Lonczewski/N. Mann/D. Weineck/tr) 
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